Question

我想在我的闪亮应用程序中实现聚合函数，但是在使其工作方面存在很大问题。

负责文件上传的代码片段

  data <- reactive({
    file1 <- input$file
    if(is.null(file1)){return()} 
    dataSet <- read.table(file=file1$datapath, sep=input$sep, header = input$header, dec = input$dec )

    updateCheckboxGroupInput(session, "choices1", choices = colnames(dataSet))


    updateSelectInput(session, "combobox", choices = colnames(dataSet))
    updateSelectInput(session, "combobox1", choices = colnames(dataSet))
    updateSelectInput(session, "combobox2", choices = colnames(dataSet))
    updateSelectInput(session, "combobox3", choices = colnames(dataSet))
    updateSelectInput(session, "combobox4", choices = colnames(dataSet))
    dataSet
  })

实际上这段代码还会更新我的应用程序中的其他重要的widges，例如名为“combobox”的小部件用于选择列来制作直方图。

小部件“combobox3”和“combobox4”用于聚合函数

还有代码片段负责聚合

output$policz2 <- renderTable({
x <- data()


aggregate(x$input$combobox3, by=list( wartosc = x$input$combobox4), FUN=sum)
})

当然，当我上传文件并尝试使用聚合时，它总是会显示

“错误：没有要聚合的行”

我必须使用聚合代码更改它以使其最终正常工作？

R闪亮。从上传的文件聚合。错误

0 个答案: