R有光泽的select变量基于checkboxGroupInput

Question

我正在使用R shiny来开发交互式分析工具.现在我想根据变量checkGroupInput做分类树.如何选择该数据子集？谢谢!

用户界面:

       dateInput("date","Enter date:",value = date),
       checkboxGroupInput("variable", "Variable:",
                         choices = names ,selected = names
        )

服务器我试过,但不起作用:

 dataall <-  reactive({
     filename <- paste0("dataall_'", input$date, "'.RData")
     load(filename)
     feature.test[,names(feature.test) %in% input$variable]
   })

feature.test是加载文件中的数据.

Answer 1

很难理解你想要什么,因为你没有对你加载的文件进行子集化.什么是feature.test？

下面是一个简单的示例,说明如何使用输入和闪亮的反应来对数据框进行子集化:

shiny::runApp(list(
  ui = basicPage(
    selectInput("specy", "Specy", choices = levels(iris$Species)),
    tableOutput("content")
  ),
  server = function(input, output, session) {
    output$content <- renderTable({
      iris[iris$Species == input$specy, ]
    })
  }
))

编辑##:按列子集:

shiny::runApp(list(
  ui = pageWithSidebar(
    headerPanel("Example"),
    sidebarPanel(
      checkboxGroupInput("variable", "Variable:", choices = names(iris))
    ),
    mainPanel(
     tableOutput("content")
    )
  ),
  server = function(input, output, session) {
    output$content <- renderTable({
      if(is.null(input$variable))
        return()

      iris[input$variable]
    })
  }
))