f7Select | R Documentation |
f7Select
creates a select input.
updateF7Select
changes the value of a select input on the client
f7Select(inputId, label, choices, selected = NULL, width = NULL)
updateF7Select(
inputId,
selected = NULL,
session = shiny::getDefaultReactiveDomain()
)
inputId |
The id of the input object. |
label |
Select input label. |
choices |
Select input choices. |
selected |
New value. |
width |
The width of the input, e.g. |
session |
The Shiny session object, usually the default value will suffice. |
# Select input
if(interactive()){
library(shiny)
library(shinyMobile)
shiny::shinyApp(
ui = f7Page(
title = "My app",
f7SingleLayout(
navbar = f7Navbar(title = "f7Select"),
f7Select(
inputId = "variable",
label = "Choose a variable:",
choices = colnames(mtcars)[-1],
selected = "hp"
),
tableOutput("data")
)
),
server = function(input, output) {
output$data <- renderTable({
mtcars[, c("mpg", input$variable), drop = FALSE]
}, rownames = TRUE)
}
)
}
# Update select input
if (interactive()) {
library(shiny)
library(shinyMobile)
shinyApp(
ui = f7Page(
title = "My app",
f7SingleLayout(
navbar = f7Navbar(title = "updateF7Select"),
f7Card(
f7Button(inputId = "update", label = "Update select"),
br(),
f7Select(
inputId = "variable",
label = "Choose a variable:",
choices = colnames(mtcars)[-1],
selected = "hp"
),
verbatimTextOutput("test")
)
)
),
server = function(input, output, session) {
output$test <- renderPrint(input$variable)
observeEvent(input$update, {
updateF7Select(
inputId = "variable",
selected = "gear"
)
})
}
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.