r语言 - RShiny 不会向服务器输出任何结果。'服务器(...)中的错误：未使用的参数(输出 = list(<environment>， 函数 (x) x))'

Question

我的Rshine应用程序不会放我想要的相关性图，我不确定为什么。运行代码时出现此错误。

Warning: Error in server: unused argument (output = list(<environment>, function (x) x))
[No stack trace available]
Error in server(...) : 
unused argument (output = list(<environment>, function (x) x))

这是我正在使用的代码：

library(shiny)
library(shinydashboard)
combined1 = read.csv("combined.csv", stringsAsFactors=F, na.strings=c(NA,"NA"," NA", "na"))

ui <- dashboardPage(
dashboardHeader(title = "NBA Draft"),
dashboardSidebar(),
dashboardBody(
box(plotOutput("correlation_plot"), width = 8),
box(
selectInput("features", "Features:",
c("Pts", "Ast", "Trb",
"WS.48")), width = 4
)
)
)

server <- function(input, outout){
outout$correlation_plot <- renderPlot({
plot(combined1$Pk, combined1[[input$Features]],
xlab = "Pk", ylab = "Features")
})
}

shinyApp(ui, server)

我不知道为什么我会出现这个错误，有人能帮我吗？

Answer 1

试试这个：

library(shiny)
library(shinydashboard)
combined1 = read.csv("combined.csv", stringsAsFactors=F, na.strings=c(NA,"NA"," NA", "na"))

ui <- dashboardPage(
dashboardHeader(title = "NBA Draft"),
dashboardSidebar(),
dashboardBody(
box(plotOutput("correlation_plot"), width = 8),
box(
selectInput("features", "Features:",
c("Pts", "Ast", "Trb",
"WS.48")), width = 4
)
)
)

server <- function(input, output){
output$correlation_plot <- renderPlot({
plot(combined1$Pk, combined1[[input$Features]],
xlab = "Pk", ylab = "Features")
})
}

shinyApp(ui, server)

变量应被称为output not out