This creates a default search field using Semantic UI styles with Shiny input. Search field is already initialized and available under input[[input_id]]. Search will automatically route to the named API endpoint provided as parameter. API response is expected to be a JSON with property fields `title` and `description`. See https://semantic-ui.com/modules/search.html#behaviors for more details.
Arguments
- input_id
Input name. Reactive value is available under input[[input_id]].
- search_api_url
Register custom API url with server JSON Response containing fields `title` and `description`.
- default_text
Text to be visible on serach field when nothing is selected.
- value
Pass value if you want to initialize selection for search field.
Examples
## Only run examples in interactive R sessions
if (FALSE) {
if (interactive()) {
library(shiny)
library(shiny.semantic)
library(gapminder)
library(dplyr)
ui <- function() {
shinyUI(
semanticPage(
title = "Dropdown example",
p("Search country:"),
uiOutput("search_country"),
p("Selected country:"),
textOutput("selected_country")
)
)
}
server <- shinyServer(function(input, output, session) {
search_api <- function(gapminder, q) {
has_matching <- function(field) {
startsWith(field, q)
}
gapminder %>%
mutate(country = as.character(country)) %>%
select(country) %>%
unique %>%
filter(has_matching(country)) %>%
head(5) %>%
transmute(title = country,
description = country)
}
search_api_url <- register_search(session, gapminder, search_api)
output$search_letters <- shiny::renderUI(
search_field("search_result", search_api_url)
)
output$selected_country <- renderText(input[["search_result"]])
})
}
shinyApp(ui = ui(), server = server)
}