Question

我有一个在R Shiny中是projectdashboard的UI。我希望能够在文本/搜索框中键入内容，并让与之关联的数据在我键入时显示出来。

server <- function(input, output,session) {
   output$ui_names = renderUI({
name_list = mydata()[,"names"]
pickerInput("name", label=h3(" Names:"),
            choices = sort(unique(name_list)),options = list("actions-box" = TRUE,"live-search" = TRUE,"none-selected-text"='Select Names'),
            selected = NULL,multiple = TRUE)
})
ui <- dashboardPage(
dashboardHeader(title=textOutput("title"),titleWidth = 1500),
dashboardSidebar(
       uiOutput("ui_names")
)
shinyApp(ui = ui, server = server)

但是，这不能给我带来预期的效果或工作效果。如何在控制台的侧边栏中放置文本/搜索栏，以“实时搜索”我提供的数据。

Answer 1

您可以使用以下内容：

sidebarSearchForm(textId = "searchText", buttonId = "searchButton",label = "Search...")

请检查是否满足您的要求

R Shiny DashboardPage搜索输入

1 个答案: