Question

我有一个问题要打开这个话题。好吧，我正试图为这个Shiny: dynamic dataframe construction; renderUI, observe, reactiveValues做一个类似的应用程序。我想在开头添加一个新类别，它将从表中选择变量。我正朝着正确的方向前进？

Data <- reactive({

    if(input$table == "All"){df_subset <- data} 
    else{df_subset <- data[,input$show_vars,drop=FALSE]}

  })

Answer 1

你可能想要这样的东西：

    Data <- reactive({
      req(input$table)
      if(input$table == "All"){
        return(data)
      } 
      else{
        df_subset <- data[,names(data) %in% input$show_vars]
      }
      df_subset
    })

甚至更短：

Data <- reactive({
  req(input$table)
  if(input$table == "All"){
    return(data)
  } 
  data[,names(data) %in% input$show_vars]
})

闪亮：动态数据帧构造;选择变量

1 个答案: