# NOT RUN {
if (interactive()) {
library(shiny)
library(shinyMobile)
shiny::shinyApp(
ui = f7Page(
title = "Cards",
f7SingleLayout(
navbar = f7Navbar(title = "f7Card"),
f7Card(
title = "Card header",
"This is a simple card with plain text,
but cards can also contain their own header,
footer, list view, image, or any other element.",
footer = tagList(
f7Button(color = "blue", label = "My button", src = "https://www.google.com"),
f7Badge("Badge", color = "green")
)
) %>% f7Skeleton(),
f7List(
f7ListItem(
url = "https://www.google.com",
title = "Item 1"
) %>% f7Skeleton(effect = "pulse", duration = 5) ,
f7ListItem(
url = "https://www.google.com",
title = "Item 2"
) %>% f7Skeleton(effect = "pulse", duration = 5)
)
)
),
server = function(input, output) {}
)
}
# }
Run the code above in your browser using DataLab