# NOT RUN {
if (interactive()) {
library(shiny)
library(shinyMobile)
shiny::shinyApp(
ui = f7Page(
color = "pink",
title = "My app",
f7SingleLayout(
navbar = f7Navbar(title = "f7Sheet"),
f7Button(inputId = "go", label = "Go"),
f7Sheet(
id = "sheet1",
label = "More",
orientation = "bottom",
swipeToClose = TRUE,
swipeToStep = TRUE,
backdrop = TRUE,
"Lorem ipsum dolor sit amet, consectetur adipiscing elit.
Quisque ac diam ac quam euismod porta vel a nunc. Quisque sodales
scelerisque est, at porta justo cursus ac"
)
)
),
server = function(input, output, session) {
observe({print(input$sheet1)})
observeEvent(input$go, {
updateF7Sheet(inputId = "sheet1", session = session)
})
}
)
}
# }
Run the code above in your browser using DataLab