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

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)