创建滑块，隐藏它并在数据加载后显示

Question

我尝试创建选择输入并仅在加载数据后才在侧栏中显示。我尝试过：

selectInput("valueinput", "VALUE", choices = c("a" = "ds","b"= "dsa")),

observeEvent(input$FileInput, {
    shinyjs::toggle("valueinput")
  })

我的结果是加载数据后消失的选择。

Answer 1

我认为如果您执行以下操作，req()可能对您有用：

服务器：

output$slider.ui <- renderUI({
req(YOUR DATAFRAME())
selectInput("valueinput", "VALUE",
                    choices = c("a" = "ds","b"= "dsa"))
})

UI：

uiOutput('slider.ui')