# NOT RUN {
### A simple card
column(
width = 4,
card(
p("Praesent fermentum tempor tellus.")
)
)
### Adding a title, subtitle
column(
width = 4,
card(
h5("Mauris mollis tincidunt felis."),
h6("Phasellus at dui in ligula mollis ultricies."),
p("Nullam tempus. Mauris mollis tincidunt felis."),
p("Nullam libero mauris, consequat quis, varius et, dictum id, arcu.")
)
)
### Styling cards
deck(
card(
header = "Donec pretium posuere tellus",
p("Donec hendrerit tempor tellus."),
p("Cras placerat accumsan nulla.")
) %>%
font(color = "teal"),
card(
p("Aliquam posuere."),
p("Phasellus neque orci, porta a, aliquet quis, semper a, massa."),
p("Pellentesque dapibus suscipit ligula.")
) %>%
border("orange"),
card(
header = "Phasellus lacus",
p("Etiam laoreet quam sed arcu."),
p("Etiam vel tortor sodales tellus ultricies commodo."),
footer = "Nam euismod tellus id erat."
) %>%
background("grey") %>%
font(color = "indigo")
)
### Cards with list groups
column(
width = 4,
card(
listGroupInput(
id = "lg1",
flush = TRUE,
choices = c(
"Pellentesque tristique imperdiet tortor.",
"Lorem ipsum dolor sit amet, consectetuer adipiscing elit.",
"Phasellus purus."
),
values = c(
"choice1",
"choice2",
"choice3"
)
)
)
)
### Tabbed content in cards
card(
header = navInput(
id = "tabs",
choices = c("Tab 1", "Tab 2", "Tab 3"),
appearance = "tabs"
),
navContent(
navPane(
"Phasellus purus.",
"Proin neque massa, cursus ut, gravida ut, lobortis eget, lacus.",
"Phasellus purus."
),
navPane(
"Donec at pede. Praesent augue.",
"Pellentesque tristique imperdiet tortor."
),
navPane(
"Fusce suscipit, wisi nec facilisis facilisis,",
"est dui fermentum leo, quis tempor ligula erat quis odio.",
"Donec hendrerit tempor tellus."
)
)
)
### Deck of cards
deck(
card(
title = "Nullam tristique",
p("Fusce sagittis, libero non molestie mollis, magna orci ultrices ",
"dolor, at vulputate neque nulla lacinia eros."),
p("Nunc rutrum turpis sed pede."),
footer = "Cras placerat accumsan nulla."
),
card(
title = "Integer placerat",
p("Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec ",
"hendrerit tempor tellus."),
footer = "Cras placerat accumsan nulla."
),
card(
title = "Phasellus neque",
p("Donec at pede. Etiam vel neque nec dui dignissim bibendum."),
footer = "Cras placerat accumsan nulla."
)
)
# }
Run the code above in your browser using DataLab