if (interactive()) {
library(shiny)
library(shinyMobile)
ui <- f7Page(
f7SingleLayout(
navbar = f7Navbar(title = "updateF7Fab"),
f7Fab("trigger", "Click me")
)
)
server <- function(input, output, session) {
observeEvent(input$trigger, {
updateF7Fab("trigger", label = "Don't click me")
})
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab