要用textInput更新多个selectizeInput,可以通过以下步骤实现:
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
textInput("textInput", "输入框"),
selectizeInput("select1", "下拉选择框1", choices = NULL),
selectizeInput("select2", "下拉选择框2", choices = NULL)
)
server <- function(input, output, session) {
observeEvent(input$textInput, {
# 这里是你更新selectizeInput选项的代码
updateSelectizeInput(session, "select1", choices = new_choices)
updateSelectizeInput(session, "select2", choices = new_choices)
})
}
在updateSelectizeInput函数中,你可以使用new_choices变量来存储更新后的选项。根据你的具体需求,你可以从数据库、外部文件或其他数据源中获取新的选项列表。
shinyApp(ui, server)
这样,当textInput的值发生变化时,两个selectizeInput的选项都将被更新。
对于这个问题,腾讯云没有明确提供针对性的产品或链接地址。但你可以使用shiny和shinyWidgets这两个R包来实现所需的功能,它们是R语言生态系统中用于创建交互式应用程序的强大工具。
领取专属 10元无门槛券
手把手带您无忧上云