# Autocomplete input
if(interactive()){
library(shiny)
library(shinyMobile)
shinyApp(
ui = f7Page(
title = "My app",
f7SingleLayout(
navbar = f7Navbar(title = "f7AutoComplete"),
f7AutoComplete(
inputId = "myautocomplete1",
placeholder = "Some text here!",
dropdownPlaceholderText = "Try to type Apple",
label = "Type a fruit name",
openIn = "dropdown",
choices = c('Apple', 'Apricot', 'Avocado', 'Banana', 'Melon',
'Orange', 'Peach', 'Pear', 'Pineapple')
),
textOutput("autocompleteval1"),
f7AutoComplete(
inputId = "myautocomplete2",
placeholder = "Some text here!",
openIn = "popup",
multiple = TRUE,
label = "Type a fruit name",
choices = c('Apple', 'Apricot', 'Avocado', 'Banana', 'Melon',
'Orange', 'Peach', 'Pear', 'Pineapple')
),
verbatimTextOutput("autocompleteval2")
)
),
server = function(input, output) {
observe({
print(input$myautocomplete1)
print(input$myautocomplete2)
})
output$autocompleteval1 <- renderText(input$myautocomplete1)
output$autocompleteval2 <- renderPrint(input$myautocomplete2)
}
)
}
# Update autocomplete
if (interactive()) {
library(shiny)
library(shinyMobile)
shinyApp(
ui = f7Page(
title = "My app",
f7SingleLayout(
navbar = f7Navbar(title = "Update autocomplete"),
f7Card(
f7Button(inputId = "update", label = "Update autocomplete"),
f7AutoComplete(
inputId = "myautocomplete",
placeholder = "Some text here!",
openIn = "dropdown",
label = "Type a fruit name",
choices = c('Apple', 'Apricot', 'Avocado', 'Banana', 'Melon',
'Orange', 'Peach', 'Pear', 'Pineapple')
),
verbatimTextOutput("autocompleteval")
)
)
),
server = function(input, output, session) {
observe({
print(input$myautocomplete)
})
output$autocompleteval <- renderText(input$myautocomplete)
observeEvent(input$update, {
updateF7AutoComplete(
inputId = "myautocomplete",
value = "plip",
choices = c("plip", "plap", "ploup")
)
})
}
)
}
Run the code above in your browser using DataLab