Как создать простое выпадающее меню в блестящем?

Question

Итак, у меня есть три кнопки загрузки на трех панелях вкладок внутри панели вкладок в моем блестящем приложении. Есть ли способ, которым я не могу создать выпадающее меню вместо этих панелей вкладок? Я не хочу связываться с выводами, просто организуйте код ниже в виде выпадающего меню вместо панелей вкладок.

tabsetPanel(tabPanel("download 1", downloadBttn("downloadData",size="sm","Download1"),tabPanel("download 2",downloadBttn("downloadData",size="sm","Download2"),tabPanel("download 3",downloadBttn("downloadData",size="sm","Download3"))

Answer 1

Используйте select input, чтобы пользователь просто выбирал данные для загрузки из выпадающего списка. Нет необходимости иметь отдельные вкладки для загрузки данных

library(shiny)

ui <- fluidPage(
  selectInput("download", "Select Data to download", choices = c("euro", "mtcars", "iris")),
  downloadButton("downloadData")
)

server <- function(input, output, session) {

  dataDownload <- reactive({
    switch(input$download,
           "euro" = euro,
           "mtcars" = mtcars,
           "iris" = iris)
  })

  output$downloadData <- downloadHandler(
    filename = function() {
      paste(input$download, ".csv", sep = "")
    },
    content = function(file) {
      write.csv(dataDownload(), file, row.names = FALSE)
    }
  )

}

shinyApp(ui, server)