if (interactive()) {
library(shiny)
library(shinyMobile)
shinyApp(
ui = f7Page(
title = "Blocks",
f7SingleLayout(
navbar = f7Navbar(title = "f7Block"),
f7BlockTitle(title = "A large title", size = "large"),
f7Block(
f7BlockHeader(text = "Header"),
"Here comes paragraph within content block.
Donec et nulla auctor massa pharetra
adipiscing ut sit amet sem. Suspendisse
molestie velit vitae mattis tincidunt.
Ut sit amet quam mollis, vulputate
turpis vel, sagittis felis.",
f7BlockFooter(text = "Footer")
),
f7BlockTitle(title = "A medium title", size = "medium"),
f7Block(
strong = TRUE,
outline = TRUE,
f7BlockHeader(text = "Header"),
"Here comes paragraph within content block.
Donec et nulla auctor massa pharetra
adipiscing ut sit amet sem. Suspendisse
molestie velit vitae mattis tincidunt.
Ut sit amet quam mollis, vulputate
turpis vel, sagittis felis.",
f7BlockFooter(text = "Footer")
),
f7BlockTitle(title = "A normal title", size = NULL),
f7Block(
inset = TRUE,
strong = TRUE,
f7BlockHeader(text = "Header"),
"Here comes paragraph within content block.
Donec et nulla auctor massa pharetra
adipiscing ut sit amet sem. Suspendisse
molestie velit vitae mattis tincidunt.
Ut sit amet quam mollis, vulputate
turpis vel, sagittis felis.",
f7BlockFooter(text = "Footer")
),
f7Block(
inset = TRUE,
tablet = TRUE,
strong = TRUE,
f7BlockHeader(text = "Header"),
"Here comes paragraph within content block.
Donec et nulla auctor massa pharetra
adipiscing ut sit amet sem. Suspendisse
molestie velit vitae mattis tincidunt.
Ut sit amet quam mollis, vulputate
turpis vel, sagittis felis.",
f7BlockFooter(text = "Footer")
),
f7Block(
inset = TRUE,
strong = TRUE,
outline = TRUE,
f7BlockHeader(text = "Header"),
"Here comes paragraph within content block.
Donec et nulla auctor massa pharetra
adipiscing ut sit amet sem. Suspendisse
molestie velit vitae mattis tincidunt.
Ut sit amet quam mollis, vulputate
turpis vel, sagittis felis.",
f7BlockFooter(text = "Footer")
)
)
),
server = function(input, output) {}
)
}
Run the code above in your browser using DataLab