光泽中是否有R函数来搜索项目

时间:2019-06-29 16:40:17

标签: r shiny

我有下面的代码。我需要将搜索方面放在“操作”标签下。我可以将其添加到以下代码中吗?原因是如果正在操作的物品很多,我可能需要搜索

# 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)

1 个答案:

答案 0 :(得分:1)

另一种选择是在selectInput中使用selectize = TRUE,然后用户可以键入选择的一部分,它将像在搜索按钮中一样找到它,而不是仅包含无法过滤的选择列表

请检查最后一个示例this link