如何自定义下拉列表中显示的变量

Question

我正在开发一个SHINY应用程序，我正在使用一个包含100个不同变量的下拉菜单。我想只显示其中的一部分。我可以缩短data.frame，但出于其他原因我需要这么长。有什么想法吗？

感谢您的帮助。

这就是我在server.R上所拥有的：

output$xvar <- renderUI(selectInput('xvar',label='I want to show only certain variables here', choices = names(df),selected =  names(df)[1]))

Answer 1

将子集包装到被动反应中，然后渲染：

library(shiny)

ui <- fluidPage(
  uiOutput("xvar")
)

df <- 1:100
server <- function(input, output, session) {

  dfsubset <- reactive({
    df[1:10]
  })

  output$xvar <- renderUI(selectInput('xvar',label='I want to show only certain variables here', 
                                      choices = dfsubset(),selected =  dfsubset()))
}

shinyApp(ui,server)