Taking the r2resize R package to a new level with multiple new functionalities
Visit docs: https://github.com/oobianom/r2resize
Install and Use
install.packages(r2resize)
library(r2resize)Theme setting
r2resize::add.resizer(
theme.color = "black",
position = "top",
font.size = "12px",
font.color = "black",
tables = TRUE,
images = TRUE,
line.color = "orange",
line.height = 5,
line.width = 200
)Great new features since Version 1.3
empahsisCard function: container with moving border
r2resize::emphasisCard(shiny::div(
shiny::tags$h2("Question"),
shiny::tags$h4("Let's begin with a simply curiousity. Do you consider yourself successful?")
), bg.color = "#f1f1f1")Question
Let's begin with a simply curiousity. Do you consider yourself successful?
Sample text as a separator - Porttitor rhoncus dolor purus non enim praesent elementum facilisis. Risus pretium quam vulputate dignissim suspendisse in. Rhoncus mattis rhoncus urna neque viverra justo nec ultrices. Sed viverra ipsum nunc aliquet bibendum enim.
Images Examples
Single image
Elit pellentesque habitant morbi tristique senectus et netus et malesuada. Amet massa vitae tortor condimentum lacinia quis vel eros.
Table Examples
Use with dataTable
Libero id faucibus nisl tincidunt. Ultrices tincidunt arcu non sodales neque sodales ut etiam. Ut placerat orci nulla pellentesque dignissim enim sit amet. Tempus quam pellentesque nec nam.
library(DT)
datatable(iris)Regular Markdown Table 1 and 2
Egestas purus viverra accumsan in. Eu ultrices vitae auctor eu augue ut lectus. Leo integer malesuada nunc vel risus commodo.
| Column 1 | Column 2 | Column 3 | Column 4 | Column 5 |
|---|---|---|---|---|
| 1 | 23 | 1 | 45 | 6 - 12 |
| 3 | 4 | 5 | NA | 4 - 5.5 |
| 7 | 7 | 5 | 0 | 5 - 34 |
splitCard function: Resizable split screen container
r2resize::splitCard(
"Sample text",
"Sample text 2"
)Sample text
Sample text 2
r2resize::splitCard(
"Sample r2symbols 1",
"Sample nextGen 1",
bg.right.color = "white",
bg.left.color = "lightgray",
position = "vertical"
)Sample r2symbols 1
Sample nextGen 1
r2resize::splitCard(
"Sample shinyStorePlus",
"Sample nextGen 1",
bg.right.color = "white",
bg.left.color = "lightgray",
border.color = "black",
text.left.color = "black",
text.right.color = "black",
position = "vertical"
)Sample shinyStorePlus
Sample nextGen 1
r2resize::elastiCard(
item1 = c(
icon = "edit",
title="Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.",
subtitle="A cool subtitle",
text.color="blue"),
item2 = c(
title="Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.",
subtitle="A cool subtitle",
text.color = "brown"
)
)Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.
A cool subtitle
Sample text - Porttitor rhoncus dolor purus non enim praesent elementum facilisis. Risus pretium quam vulputate dignissim suspendisse in. Rhoncus mattis rhoncus urna neque viverra justo nec ultrices. Sed viverra ipsum nunc aliquet bibendum enim.
sizeableCard function: Container with sizing toolbar
r2resize::sizeableCard(shiny::h2("Sizeable text"), "
Lobortis mattis aliquam faucibus purus in massa tempor. Quis enim lobortis scelerisque fermentum dui faucibus in ornare quam. At lectus urna duis convallis. Arcu non odio euismod lacinia at quis risus. Tincidunt ornare massa eget egestas purus viverra accumsan in. Cras adipiscing enim eu turpis egestas pretium aenean.")Sizeable text
Lobortis mattis aliquam faucibus purus in massa tempor. Quis enim lobortis scelerisque fermentum dui faucibus in ornare quam. At lectus urna duis convallis. Arcu non odio euismod lacinia at quis risus. Tincidunt ornare massa eget egestas purus viverra accumsan in. Cras adipiscing enim eu turpis egestas pretium aenean.r2resize::sizeableCard(shiny::h1("Second seziable text"),"
Lobortis mattis aliquam faucibus purus in massa tempor. Quis enim lobortis scelerisque fermentum dui faucibus in ornare quam. At lectus urna duis convallis. Arcu non odio euismod lacinia at quis risus. Tincidunt ornare massa eget egestas purus viverra accumsan in. Cras adipiscing enim eu turpis egestas pretium aenean.", bg.color = "lightgray", border.color="black")Second seziable text
Lobortis mattis aliquam faucibus purus in massa tempor. Quis enim lobortis scelerisque fermentum dui faucibus in ornare quam. At lectus urna duis convallis. Arcu non odio euismod lacinia at quis risus. Tincidunt ornare massa eget egestas purus viverra accumsan in. Cras adipiscing enim eu turpis egestas pretium aenean.Sample text as a separator - Porttitor rhoncus dolor purus non enim praesent elementum facilisis. Risus pretium quam vulputate dignissim suspendisse in. Rhoncus mattis rhoncus urna neque viverra justo nec ultrices. Sed viverra ipsum nunc aliquet bibendum enim.
windowCard function: Window like container with resizable and expandable functions
r2resize::windowCard( shiny::div(
shiny::tags$h2("Answer"),
shiny::tags$h4("I’m interviewing with a few companies for a range of positions, but they all come down to delivering an excellent customer experience. I wanted to keep an open mind about how to best achieve that goal, but so far it seems that this role will really allow me to focus all of my energy on customer experience and retention, which I find very appealing.")
),
title = "Draggable, Resizable, Exapandable",
width = "500px",
bg.color = "white",
border.color = "brown",
header.text.color = "white",
body.text.color = "black")Draggable, Resizable, Exapandable
Answer
I’m interviewing with a few companies for a range of positions, but they all come down to delivering an excellent customer experience. I wanted to keep an open mind about how to best achieve that goal, but so far it seems that this role will really allow me to focus all of my energy on customer experience and retention, which I find very appealing.
Sample text as a separator - Porttitor rhoncus dolor purus non enim praesent elementum facilisis. Risus pretium quam vulputate dignissim suspendisse in. Rhoncus mattis rhoncus urna neque viverra justo nec ultrices. Sed viverra ipsum nunc aliquet bibendum enim.