R闪亮，没有堆栈跟踪和未使用的参数

编程问答 2022-07-26

问题描述

我有以下代码，这些代码应聚合在用户输入选择的列上，并使用ggplot将结果绘制在条形图中

library(shiny)
library(tidyverse)
options(shiny.port = 8000)

churn = read.csv('churn.csv')
ui <- fluidPage(
    
    selectInput(
        inputId = 'column',label = 'choose column',choices = c(names(churn)[2:5],names(churn)[7:18],names(churn)[21]),),plotOutput('bar')
)
server <- function(input,ouput){
    result <- reactive({
        churn %>% group_by(input$column) %>% summarize(counts = n())
    })

    output$bar <- renderPlot({
        ggplot(result(),aes_string(x=input$column,y="counts",fill = input$column))+geom_bar(stat='identity')
    })
}


shinyApp(ui = ui,server = server)

相反，应用程序立即崩溃并出现以下错误：

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))

任何帮助将不胜感激。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

rrshiny-reactivityshinyapps