In EvaMaeRey/doublecrochet: Pairs Bits of Rmd Source and Output
class: inverse
From source .Rmd:
```r
cat('---
title: "Introducing Double Crochet"\nauthor: "Featuring a few of my favorite things"\noutput:\n xaringan::moon_reader:\n lib_dir: libs\n css: [default, "custom.css"]\n nature:\n ratio: 16:9\n highlightStyle: github\n highlightLines: true\n countIncrementalSlides: false')
---
class: inverse
####From source .Rmd:
```r
cat('---
\n\n```r\nknitr::opts_chunk$set(echo = TRUE, message = F, \n warning = F, comment = "",\n fig.height = 4, cache = T)\nlibrary(tidyverse)\nlibrary(flipbookr)\noptions(knitr.duplicate.label = "allow")\nxaringanExtra::use_share_again()\n```\n\n# Hi!\n\n```{css style, eval = TRUE, echo = FALSE}\n.remark-code{line-height: 1.5; font-size: 120%}\n```\n\n```{css style2, eval = TRUE, echo = FALSE}\n.left-code {\n color: #777;\n width: 38%;\n height: 92%;\n float: left;\n}\n.right-plot {\n width: 60%;\n float: right;\n padding-left: 1%;\n}\n```\n\n\n\n\n\n')
knitr::opts_chunk$set(echo = TRUE, message = F,
warning = F, comment = "",
fig.height = 4, cache = T)
library(tidyverse)
library(flipbookr)
options(knitr.duplicate.label = "allow")
xaringanExtra::use_share_again()
Hi!
```{css style, eval = TRUE, echo = FALSE}
.remark-code{line-height: 1.5; font-size: 120%}
```{css style2, eval = TRUE, echo = FALSE}
.left-code {
color: #777;
width: 38%;
height: 92%;
float: left;
}
.right-plot {
width: 60%;
float: right;
padding-left: 1%;
}
class: inverse
From source .Rmd:
```r
cat('---
\n# Hello. \n--\nHow are you? \n--\nGood?\n\n--\n## Hope so!\n\n\n\n')
---
# Hello.
--
How are you?
--
Good?
--
## Hope so!
<!-- No trailing spaces! after dash-dash-->
---
class: inverse
####From source .Rmd:
```r
cat('---
\n\n\n.pull-right[# Hello!]\n')
.pull-right[# Hello!]
class: inverse
From source .Rmd:
r
cat('---
\nr\nggplot(starwars) +\n aes(x = height) +\n geom_histogram( #<<\n binwidth = 10, #<<\n color = "grey85" #<<\n ) #<<\n```\n\n\n')
---
```r
ggplot(starwars) +
aes(x = height) +
geom_histogram( #<<
binwidth = 10, #<<
color = "grey85" #<<
) #<<
class: inverse
From source .Rmd:
r
cat('---
\n\n.left-code[\nr\nggplot(starwars) +\n aes(x = height) +\n aes(y = mass) +\n geom_point() +\n scale_x_log10() + #<<\n scale_y_log10() #<<\n\n]\n\n.right-plot[\nr\n```\n]\n\n')
---
.left-code[
```r
ggplot(starwars) +
aes(x = height) +
aes(y = mass) +
geom_point() +
scale_x_log10() + #<<
scale_y_log10() #<<
]
.right-plot[
]
class: inverse
From source .Rmd:
```r
cat('---
class: inverse, center, middle\nbackground-image: url(https://images.unsplash.com/photo-1522210667936-c3402f6742c3?ixid=MXwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHw%3D&ixlib=rb-1.2.1&auto=format&fit=crop&w=1402&q=80)\nbackground-size: contain\n\n# {flipbookr}\n\n')
---
class: inverse, center, middle
background-image: url(https://images.unsplash.com/photo-1522210667936-c3402f6742c3?ixid=MXwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHw%3D&ixlib=rb-1.2.1&auto=format&fit=crop&w=1402&q=80)
background-size: contain
# {flipbookr}
---
class: inverse
####From source .Rmd:
```r
cat('---
\n`r chunk_reveal("explain_dist", chunk_options = "fig.height = 6")`\n\n```r\ncars %>% \n ggplot() +\n aes(y = dist) +\n geom_rug() +\n aes(x = speed) +\n geom_point() +\n geom_smooth(method = "lm",\n se = F)\n```\n\n\n\n')
r chunk_reveal("explain_dist", chunk_options = "fig.height = 6")
cars %>%
ggplot() +
aes(y = dist) +
geom_rug() +
aes(x = speed) +
geom_point() +
geom_smooth(method = "lm",
se = F)
class: inverse
From source .Rmd:
```r
cat('---
class: inverse, middle, right\nbackground-image: url(https://images.unsplash.com/photo-1520999166456-6c498658829d?ixid=MXwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHw%3D&ixlib=rb-1.2.1&auto=format&fit=crop&w=1500&q=80)\nbackground-size: cover\n\n# {flair}\n')
---
class: inverse, middle, right
background-image: url(https://images.unsplash.com/photo-1520999166456-6c498658829d?ixid=MXwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHw%3D&ixlib=rb-1.2.1&auto=format&fit=crop&w=1500&q=80)
background-size: cover
# {flair}
---
class: inverse
####From source .Rmd:
```r
cat('---
\n```r\nlibrary(flair)\n```\n\n```r\niris %>%\n group_by(Species) %>%\n summarize(mean(Sepal.Length))\n```\n\n```r\ndecorate("how_to_pipe") %>% \n flair("%>%")\n```\n')
library(flair)
iris %>%
group_by(Species) %>%
summarize(mean(Sepal.Length))
decorate("how_to_pipe") %>%
flair("%>%")
class: inverse
From source .Rmd:
r
cat('---
\nr\nggplot(cars) +\n aes(x = speed) +\n aes(y = dist) +\n geom_point() +\n aes(size = speed) +\n aes(color = dist) +\n scale_color_viridis_c()\n\n\nr\ndecorate("plot") %>% \n flair_funs()\n```\n')
---
```r
ggplot(cars) +
aes(x = speed) +
aes(y = dist) +
geom_point() +
aes(size = speed) +
aes(color = dist) +
scale_color_viridis_c()
decorate("plot") %>%
flair_funs()
class: inverse
From source .Rmd:
r
cat('---
\n\nr\ndecorate("plot") %>% \n flair_args(color = "steelblue")\n```\n')
---
```r
decorate("plot") %>%
flair_args(color = "steelblue")
class: inverse
From source .Rmd:
r
cat('---
\n# `aes()` is "asking for representation"\n\n\n\nr\ndecorate("plot") %>% \n flair_args(pattern = "aes")\n```\n\n')
---
# `aes()` is "asking for representation"
```r
decorate("plot") %>%
flair_args(pattern = "aes")
class: inverse
From source .Rmd:
```r
cat('---
class: inverse, center, middle\nbackground-image: url(https://images.unsplash.com/photo-1557428894-56bcc97113fe?ixid=MXwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHw%3D&ixlib=rb-1.2.1&auto=format&fit=crop&w=1576&q=80)\nbackground-size: contain\n\n# {xaringanExtra}\n')
---
class: inverse, center, middle
background-image: url(https://images.unsplash.com/photo-1557428894-56bcc97113fe?ixid=MXwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHw%3D&ixlib=rb-1.2.1&auto=format&fit=crop&w=1576&q=80)
background-size: contain
# {xaringanExtra}
---
class: inverse
####From source .Rmd:
```r
cat('---
\n```r\nxaringanExtra::use_editable(expires = 1)\n```\n\n## .can-edit[You can edit this slide title]\n\n### A few of my favorite things\n\n.can-edit.key-likes[\n- thing one\n- thing two\n]\n\n')
xaringanExtra::use_editable(expires = 1)
.can-edit[You can edit this slide title]
A few of my favorite things
.can-edit.key-likes[
- thing one
- thing two
]
class: inverse
From source .Rmd:
r
cat('---
\nr\nxaringanExtra::use_tachyons()\n```\n\n.bg-washed-green.b--dark-green.ba.bw2.br3.shadow-5.ph4.mt5[\nTachyons provides small, single-purpose CSS classes that are easily composed to achieve larger functionality and styles. In the remarkjs content classes syntax, you can compose classes by chaining them together. For example, the following markdown produces a box with a washed green background (.bg-washed-green) and a dark green border (.b--dark-green) on all sides (.ba) with line width 2 (.bw2) and border radius (.br3). The box has a shadow (.shadow-5) and medium-large horizontal padding (.ph4) with a large top margin (.mt5).\n.tr[\n— Garrick Aden-Buie\n]]\n')
---
```r
xaringanExtra::use_tachyons()
.bg-washed-green.b--dark-green.ba.bw2.br3.shadow-5.ph4.mt5[
Tachyons provides small, single-purpose CSS classes that are easily composed to achieve larger functionality and styles. In the remarkjs content classes syntax, you can compose classes by chaining them together. For example, the following markdown produces a box with a washed green background (.bg-washed-green) and a dark green border (.b--dark-green) on all sides (.ba) with line width 2 (.bw2) and border radius (.br3). The box has a shadow (.shadow-5) and medium-large horizontal padding (.ph4) with a large top margin (.mt5).
.tr[
— Garrick Aden-Buie
]]
class: inverse
From source .Rmd:
r
cat('---
\nr\nxaringanExtra::use_panelset()\n\n\n.panel[.panel-name[This is a Panel Set]\nSome things that hang together\n]\n\n.panelset[\n.panel[.panel-name[R Code]\n\nr\nplot(pressure)\n\n]\n\n.panel[.panel-name[Plot]\n\nr\nplot(pressure)\n```\n]\n]\n')
---
```r
xaringanExtra::use_panelset()
.panel[.panel-name[This is a Panel Set]
Some things that hang together
]
.panelset[
.panel[.panel-name[R Code]
plot(pressure)
]
.panel[.panel-name[Plot]
plot(pressure)
]
]
class: inverse
From source .Rmd:
r
cat('---
\n\n# Animation\n\nr\nxaringanExtra::use_animate_css()\n# xaringanExtra::use_animate_all("slide_left")\n```\n')
---
# Animation
```r
xaringanExtra::use_animate_css()
# xaringanExtra::use_animate_all("slide_left")
class: inverse
From source .Rmd:
```r
cat('---
class: animated slideInLeft fadeOutRight\n\n## This slide...\n\n- slides in from the left \n- and fades out to the right on exit\n\n\n')
---
class: animated slideInLeft fadeOutRight
## This slide...
- slides in from the left
- and fades out to the right on exit
---
class: inverse
####From source .Rmd:
```r
cat('---
class: animated fadeInLeft rollOutRight inverse\nbackground-image: url(https://images.unsplash.com/photo-1467546706352-fa0391181b7c?ixid=MXwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHw%3D&ixlib=rb-1.2.1&auto=format&fit=crop&w=1050&q=80)\nbackground-size: cover\n\n# Now watch this\n\n- slides in from the left \n- and rolls out to the left on the Right\n\n')
class: animated fadeInLeft rollOutRight inverse
background-image: url(https://images.unsplash.com/photo-1467546706352-fa0391181b7c?ixid=MXwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHw%3D&ixlib=rb-1.2.1&auto=format&fit=crop&w=1050&q=80)
background-size: cover
Now watch this
- slides in from the left
- and rolls out to the left on the Right
class: inverse
From source .Rmd:
r
cat('---
\n# The end')
The end
EvaMaeRey/doublecrochet documentation built on Jan. 13, 2022, 7:30 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
class: inverse
From source .Rmd:
```r cat('--- title: "Introducing Double Crochet"\nauthor: "Featuring a few of my favorite things"\noutput:\n xaringan::moon_reader:\n lib_dir: libs\n css: [default, "custom.css"]\n nature:\n ratio: 16:9\n highlightStyle: github\n highlightLines: true\n countIncrementalSlides: false')
--- class: inverse ####From source .Rmd: ```r cat('--- \n\n```r\nknitr::opts_chunk$set(echo = TRUE, message = F, \n warning = F, comment = "",\n fig.height = 4, cache = T)\nlibrary(tidyverse)\nlibrary(flipbookr)\noptions(knitr.duplicate.label = "allow")\nxaringanExtra::use_share_again()\n```\n\n# Hi!\n\n```{css style, eval = TRUE, echo = FALSE}\n.remark-code{line-height: 1.5; font-size: 120%}\n```\n\n```{css style2, eval = TRUE, echo = FALSE}\n.left-code {\n color: #777;\n width: 38%;\n height: 92%;\n float: left;\n}\n.right-plot {\n width: 60%;\n float: right;\n padding-left: 1%;\n}\n```\n\n\n\n\n\n')
knitr::opts_chunk$set(echo = TRUE, message = F, warning = F, comment = "", fig.height = 4, cache = T) library(tidyverse) library(flipbookr) options(knitr.duplicate.label = "allow") xaringanExtra::use_share_again()
Hi!
```{css style, eval = TRUE, echo = FALSE} .remark-code{line-height: 1.5; font-size: 120%}
```{css style2, eval = TRUE, echo = FALSE} .left-code { color: #777; width: 38%; height: 92%; float: left; } .right-plot { width: 60%; float: right; padding-left: 1%; }
class: inverse
From source .Rmd:
```r cat('--- \n# Hello. \n--\nHow are you? \n--\nGood?\n\n--\n## Hope so!\n\n\n\n')
---
# Hello.
--
How are you?
--
Good?
--
## Hope so!
<!-- No trailing spaces! after dash-dash-->
---
class: inverse
####From source .Rmd:
```r
cat('---
\n\n\n.pull-right[# Hello!]\n')
.pull-right[# Hello!]
class: inverse
From source .Rmd:
r
cat('---
\nr\nggplot(starwars) +\n aes(x = height) +\n geom_histogram( #<<\n binwidth = 10, #<<\n color = "grey85" #<<\n ) #<<\n```\n\n\n')
---
```r
ggplot(starwars) +
aes(x = height) +
geom_histogram( #<<
binwidth = 10, #<<
color = "grey85" #<<
) #<<
class: inverse
From source .Rmd:
r
cat('---
\n\n.left-code[\nr\nggplot(starwars) +\n aes(x = height) +\n aes(y = mass) +\n geom_point() +\n scale_x_log10() + #<<\n scale_y_log10() #<<\n\n]\n\n.right-plot[\nr\n```\n]\n\n')
--- .left-code[ ```r ggplot(starwars) + aes(x = height) + aes(y = mass) + geom_point() + scale_x_log10() + #<< scale_y_log10() #<<
]
.right-plot[
]
class: inverse
From source .Rmd:
```r cat('--- class: inverse, center, middle\nbackground-image: url(https://images.unsplash.com/photo-1522210667936-c3402f6742c3?ixid=MXwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHw%3D&ixlib=rb-1.2.1&auto=format&fit=crop&w=1402&q=80)\nbackground-size: contain\n\n# {flipbookr}\n\n')
---
class: inverse, center, middle
background-image: url(https://images.unsplash.com/photo-1522210667936-c3402f6742c3?ixid=MXwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHw%3D&ixlib=rb-1.2.1&auto=format&fit=crop&w=1402&q=80)
background-size: contain
# {flipbookr}
---
class: inverse
####From source .Rmd:
```r
cat('---
\n`r chunk_reveal("explain_dist", chunk_options = "fig.height = 6")`\n\n```r\ncars %>% \n ggplot() +\n aes(y = dist) +\n geom_rug() +\n aes(x = speed) +\n geom_point() +\n geom_smooth(method = "lm",\n se = F)\n```\n\n\n\n')
r chunk_reveal("explain_dist", chunk_options = "fig.height = 6")
cars %>% ggplot() + aes(y = dist) + geom_rug() + aes(x = speed) + geom_point() + geom_smooth(method = "lm", se = F)
class: inverse
From source .Rmd:
```r cat('--- class: inverse, middle, right\nbackground-image: url(https://images.unsplash.com/photo-1520999166456-6c498658829d?ixid=MXwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHw%3D&ixlib=rb-1.2.1&auto=format&fit=crop&w=1500&q=80)\nbackground-size: cover\n\n# {flair}\n')
---
class: inverse, middle, right
background-image: url(https://images.unsplash.com/photo-1520999166456-6c498658829d?ixid=MXwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHw%3D&ixlib=rb-1.2.1&auto=format&fit=crop&w=1500&q=80)
background-size: cover
# {flair}
---
class: inverse
####From source .Rmd:
```r
cat('---
\n```r\nlibrary(flair)\n```\n\n```r\niris %>%\n group_by(Species) %>%\n summarize(mean(Sepal.Length))\n```\n\n```r\ndecorate("how_to_pipe") %>% \n flair("%>%")\n```\n')
library(flair)
iris %>% group_by(Species) %>% summarize(mean(Sepal.Length))
decorate("how_to_pipe") %>% flair("%>%")
class: inverse
From source .Rmd:
r
cat('---
\nr\nggplot(cars) +\n aes(x = speed) +\n aes(y = dist) +\n geom_point() +\n aes(size = speed) +\n aes(color = dist) +\n scale_color_viridis_c()\n\n\nr\ndecorate("plot") %>% \n flair_funs()\n```\n')
--- ```r ggplot(cars) + aes(x = speed) + aes(y = dist) + geom_point() + aes(size = speed) + aes(color = dist) + scale_color_viridis_c()
decorate("plot") %>% flair_funs()
class: inverse
From source .Rmd:
r
cat('---
\n\nr\ndecorate("plot") %>% \n flair_args(color = "steelblue")\n```\n')
---
```r
decorate("plot") %>%
flair_args(color = "steelblue")
class: inverse
From source .Rmd:
r
cat('---
\n# `aes()` is "asking for representation"\n\n\n\nr\ndecorate("plot") %>% \n flair_args(pattern = "aes")\n```\n\n')
---
# `aes()` is "asking for representation"
```r
decorate("plot") %>%
flair_args(pattern = "aes")
class: inverse
From source .Rmd:
```r cat('--- class: inverse, center, middle\nbackground-image: url(https://images.unsplash.com/photo-1557428894-56bcc97113fe?ixid=MXwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHw%3D&ixlib=rb-1.2.1&auto=format&fit=crop&w=1576&q=80)\nbackground-size: contain\n\n# {xaringanExtra}\n')
---
class: inverse, center, middle
background-image: url(https://images.unsplash.com/photo-1557428894-56bcc97113fe?ixid=MXwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHw%3D&ixlib=rb-1.2.1&auto=format&fit=crop&w=1576&q=80)
background-size: contain
# {xaringanExtra}
---
class: inverse
####From source .Rmd:
```r
cat('---
\n```r\nxaringanExtra::use_editable(expires = 1)\n```\n\n## .can-edit[You can edit this slide title]\n\n### A few of my favorite things\n\n.can-edit.key-likes[\n- thing one\n- thing two\n]\n\n')
xaringanExtra::use_editable(expires = 1)
.can-edit[You can edit this slide title]
A few of my favorite things
.can-edit.key-likes[ - thing one - thing two ]
class: inverse
From source .Rmd:
r
cat('---
\nr\nxaringanExtra::use_tachyons()\n```\n\n.bg-washed-green.b--dark-green.ba.bw2.br3.shadow-5.ph4.mt5[\nTachyons provides small, single-purpose CSS classes that are easily composed to achieve larger functionality and styles. In the remarkjs content classes syntax, you can compose classes by chaining them together. For example, the following markdown produces a box with a washed green background (.bg-washed-green) and a dark green border (.b--dark-green) on all sides (.ba) with line width 2 (.bw2) and border radius (.br3). The box has a shadow (.shadow-5) and medium-large horizontal padding (.ph4) with a large top margin (.mt5).\n.tr[\n— Garrick Aden-Buie\n]]\n')
--- ```r xaringanExtra::use_tachyons()
.bg-washed-green.b--dark-green.ba.bw2.br3.shadow-5.ph4.mt5[ Tachyons provides small, single-purpose CSS classes that are easily composed to achieve larger functionality and styles. In the remarkjs content classes syntax, you can compose classes by chaining them together. For example, the following markdown produces a box with a washed green background (.bg-washed-green) and a dark green border (.b--dark-green) on all sides (.ba) with line width 2 (.bw2) and border radius (.br3). The box has a shadow (.shadow-5) and medium-large horizontal padding (.ph4) with a large top margin (.mt5). .tr[ — Garrick Aden-Buie ]]
class: inverse
From source .Rmd:
r
cat('---
\nr\nxaringanExtra::use_panelset()\n\n\n.panel[.panel-name[This is a Panel Set]\nSome things that hang together\n]\n\n.panelset[\n.panel[.panel-name[R Code]\n\nr\nplot(pressure)\n\n]\n\n.panel[.panel-name[Plot]\n\nr\nplot(pressure)\n```\n]\n]\n')
--- ```r xaringanExtra::use_panelset()
.panel[.panel-name[This is a Panel Set] Some things that hang together ]
.panelset[ .panel[.panel-name[R Code]
plot(pressure)
]
.panel[.panel-name[Plot]
plot(pressure)
] ]
class: inverse
From source .Rmd:
r
cat('---
\n\n# Animation\n\nr\nxaringanExtra::use_animate_css()\n# xaringanExtra::use_animate_all("slide_left")\n```\n')
---
# Animation
```r
xaringanExtra::use_animate_css()
# xaringanExtra::use_animate_all("slide_left")
class: inverse
From source .Rmd:
```r cat('--- class: animated slideInLeft fadeOutRight\n\n## This slide...\n\n- slides in from the left \n- and fades out to the right on exit\n\n\n')
---
class: animated slideInLeft fadeOutRight
## This slide...
- slides in from the left
- and fades out to the right on exit
---
class: inverse
####From source .Rmd:
```r
cat('---
class: animated fadeInLeft rollOutRight inverse\nbackground-image: url(https://images.unsplash.com/photo-1467546706352-fa0391181b7c?ixid=MXwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHw%3D&ixlib=rb-1.2.1&auto=format&fit=crop&w=1050&q=80)\nbackground-size: cover\n\n# Now watch this\n\n- slides in from the left \n- and rolls out to the left on the Right\n\n')
class: animated fadeInLeft rollOutRight inverse background-image: url(https://images.unsplash.com/photo-1467546706352-fa0391181b7c?ixid=MXwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHw%3D&ixlib=rb-1.2.1&auto=format&fit=crop&w=1050&q=80) background-size: cover
Now watch this
- slides in from the left
- and rolls out to the left on the Right
class: inverse
From source .Rmd:
r
cat('---
\n# The end')
The end
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.