# Toggle f7Navbar
if (interactive()) {
library(shiny)
library(shinyMobile)
shinyApp(
ui = f7Page(
title = "Show navbar",
f7SingleLayout(
navbar = f7Navbar("Hide/Show navbar"),
f7Button(inputId = "toggle", "Toggle navbar", color = "red")
)
),
server = function(input, output, session) {
observeEvent(input$toggle, {
updateF7Navbar()
})
}
)
}
Run the code above in your browser using DataLab