# NOT RUN {
if (interactive()) {
library(shiny)
library(shinyMobile)
shiny::shinyApp(
ui = f7Page(
title = "Accordions",
f7SingleLayout(
navbar = f7Navbar("Hide/Show navbar"),
f7Segment(
f7Button(inputId = "hide", "Hide navbar", color = "red"),
f7Button(inputId = "show", "Show navbar", color = "green"),
)
)
),
server = function(input, output, session) {
observeEvent(input$hide, {
f7HideNavbar()
})
observeEvent(input$show, {
f7ShowNavbar()
})
}
)
}
# }
Run the code above in your browser using DataLab