从 Flexdashboard 的下拉菜单中选择所有值
Selecting all values from drop down menu in Flexdashbaord
我已经获取了 Shiny Flexdashboard 之一的示例代码。
在示例代码中,有一个下拉菜单一次 select 一个区域。
我只想知道有没有办法 select 下拉菜单中的所有值?
请在下面找到代码 link,
beta.rstudioconnect.com/jjallaire/shiny-embedding
要获取代码,请单击最右上角的 "Source Code"。
此致,
墨涵
你可以做到
library(shiny)
ui = fluidPage(
selectInput("sel", NULL, letters[1:2], multiple = T),
actionButton("but", "all")
)
server <- function(input, output, session) {
observeEvent(input$but, {
updateSelectInput(session, "sel", selected = letters[1:2])
})
}
shinyApp(ui, server)
使用 ?updateSelectInput
访问有关该函数的文档。
我已经获取了 Shiny Flexdashboard 之一的示例代码。 在示例代码中,有一个下拉菜单一次 select 一个区域。 我只想知道有没有办法 select 下拉菜单中的所有值?
请在下面找到代码 link,
beta.rstudioconnect.com/jjallaire/shiny-embedding
要获取代码,请单击最右上角的 "Source Code"。
此致,
墨涵
你可以做到
library(shiny)
ui = fluidPage(
selectInput("sel", NULL, letters[1:2], multiple = T),
actionButton("but", "all")
)
server <- function(input, output, session) {
observeEvent(input$but, {
updateSelectInput(session, "sel", selected = letters[1:2])
})
}
shinyApp(ui, server)
使用 ?updateSelectInput
访问有关该函数的文档。