闪亮的R. boxplot，上传文件中的选定列（ggplot2）

Question

我想将boxplot功能添加到我闪亮的应用程序中，但它不想工作得很好。

这是响应文件上传的应用程序的一部分

  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))
        updateSelectInput(session, "combobox5", choices = colnames(dataSet))
            updateSelectInput(session, "combobox6", choices = colnames(dataSet))


    dataSet
  })

当然，它还为某些小部件设置了列名。我使用combobox5和combobox6为ggplot2中的boxplot选择变量。

当然，还有代码响应制作boxplot

    output$pudla <- renderPlot({
dat <- data()


ggplot(dat, aes(x=input$combobox5, y=input$combobox6, fill=input$combobox5)) + geom_boxplot()

 }) 

上传文件，设置右分隔符等后，当然也可以通过选择分组变量和变量来通过小部件进行绘图。 Only this appears

而且我不知道为什么盒子不想绘图。