# NOT RUN {
if (interactive()) {
library(shiny)
library(shinyMobile)
shiny::shinyApp(
ui = f7Page(
title = "Update f7Button",
init = f7Init(theme = "light", skin = "ios"),
f7SingleLayout(
navbar = f7Navbar(title = "Update f7Button"),
f7Button(
"test",
"Test",
color = "orange",
outline = FALSE,
fill = TRUE,
shadow = FALSE,
rounded = FALSE,
size = NULL),
f7Toggle("prout", "Update Button")
)
),
server = function(input, output, session) {
observe(print(input$test))
observeEvent(input$prout, {
if (input$prout) {
updateF7Button(
inputId = "test",
label = "Updated",
color = "purple",
shadow = TRUE,
rounded = TRUE,
size = "large"
)
}
})
}
)
}
# }
Run the code above in your browser using DataLab