# NOT RUN {
if (interactive()) {
library(shiny)
library(shinyMobile)
shiny::shinyApp(
ui = f7Page(
f7SingleLayout(
navbar = f7Navbar(title = "f7Fabs Morph"),
toolbar = f7Toolbar(
position = "bottom",
lapply(1:3, function(i) f7Link(i) %>% f7FabClose())
) %>% f7FabMorphTarget(),
# put an empty f7Fabs container
f7Fabs(
extended = TRUE,
label = "Open",
position = "center-top",
color = "yellow",
sideOpen = "right",
morph = TRUE,
morphTarget = ".toolbar"
)
)
),
server = function(input, output) {}
)
}
# }
Run the code above in your browser using DataLab