RShiny не выводит на сервер никаких результатов. 'Ошибка на сервере (...): неиспользуемый аргумент (output = list (<environment>, function (x) x))'

Question

Мое приложение Rshiny не помещает график корреляции, который я хочу, и я не уверен, почему. Я получаю эту ошибку при запуске кода.

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, а не outout