我有下面的代码。我需要将搜索方面放在“操作”标签下。我可以将其添加到以下代码中吗?原因是如果正在操作的物品很多,我可能需要搜索
# faithful is the dataset
sample1 <- 1:3
library(shiny)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
selectInput(
"x",
"Operations",
choices = c("summary", "stem", "typeof", "mode", "birth")
)
),
mainPanel(
h6("Here it is"),
verbatimTextOutput("message")
)
)
)
server <- function(input, output, session) {
output$message <- renderPrint({
if(input$x == "summary") {
summary(faithful$eruptions)
} else if (input$x == "stem") {
print(stem(faithful$eruptions))
} else if (input$x == "typeof") {
typeof(sample1)
} else if (input$x == "mode") {
mode(sample1)
}
})
}
shinyApp(ui, server)
答案 0 :(得分:1)
另一种选择是在selectInput中使用selectize = TRUE,然后用户可以键入选择的一部分,它将像在搜索按钮中一样找到它,而不是仅包含无法过滤的选择列表
请检查最后一个示例this link。