knitr::opts_chunk$set(echo = TRUE, fig.cap = TRUE) library(officedown) library(officer) library(msand) library(tidyverse) theme_set(theme_msand()) fp <- fp_par( text.align = "center", padding.bottom = 20, padding.top = 120, border.bottom = fp_border()) ft <- fp_text(shading.color='#EFEFEF', bold = TRUE)
knitr::include_graphics("sandilands_data_science_logo.png")
\newpage
block_toc(level = 5)
block_toc(seq_id = "fig")
block_toc(seq_id = "tab")
\newpage
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nulla eu pulvinar arcu, quis aliquam dui. In at cursus ante. Vestibulum non sagittis lacus. Duis vitae iaculis dui. Vivamus tempor, nibh ut pretium tempus, enim lorem dignissim quam, at euismod massa magna at magna. Sed facilisis dapibus diam nec volutpat. Maecenas facilisis dapibus egestas. Curabitur dignissim pharetra pulvinar. Nunc bibendum elit sed cursus congue.
r run_columnbreak()
Curabitur ligula quam, iaculis faucibus orci quis, vestibulum lobortis lectus. Suspendisse fringilla nisl pulvinar, laoreet tellus sed, sollicitudin tortor. Donec consequat congue erat in iaculis. Curabitur luctus tellus ut turpis iaculis, nec laoreet ligula scelerisque.
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nulla eu pulvinar arcu, quis aliquam dui. In at cursus ante. Vestibulum non sagittis lacus. Duis vitae iaculis dui. Vivamus tempor, nibh ut pretium tempus, enim lorem dignissim quam, at euismod massa magna at magna. Sed facilisis dapibus diam nec volutpat. Maecenas facilisis dapibus egestas. Curabitur dignissim pharetra pulvinar. Nunc bibendum elit sed cursus congue. Curabitur ligula quam, iaculis faucibus orci quis, vestibulum lobortis lectus. Suspendisse fringilla nisl pulvinar, laoreet tellus sed, sollicitudin tortor. Donec consequat congue erat in iaculis. Curabitur luctus tellus ut turpis iaculis, nec laoreet ligula scelerisque.
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nulla eu pulvinar arcu, quis aliquam dui. In at cursus ante. Vestibulum non sagittis lacus. Duis vitae iaculis dui. Vivamus tempor, nibh ut pretium tempus, enim lorem dignissim quam, at euismod massa magna at magna.
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nulla eu pulvinar arcu, quis aliquam dui. In at cursus ante. Vestibulum non sagittis lacus. Duis vitae iaculis dui. Vivamus tempor, nibh ut pretium tempus, enim lorem dignissim quam, at euismod massa magna at magna. Sed facilisis dapibus diam nec volutpat. Maecenas facilisis dapibus egestas. Curabitur dignissim pharetra pulvinar. Nunc bibendum elit sed cursus congue. Curabitur ligula quam, iaculis faucibus orci quis, vestibulum lobortis lectus. Suspendisse fringilla nisl pulvinar, laoreet tellus sed, sollicitudin tortor. Donec consequat congue erat in iaculis. Curabitur luctus tellus ut turpis iaculis, nec laoreet ligula scelerisque.
\newpage
mtcars %>% ggplot(aes(disp, mpg)) + geom_point(color = palette_msand()[1], size = 3) + labs( title = "MPG vs DISP", x = "DISP", y = "MPG" )
head(mtcars)
mtcars %>% ggplot(aes(disp, mpg)) + geom_point(color = palette_msand()[1], size = 3) + labs( title = "MPG vs DISP", x = "DISP", y = "MPG" )
Here is a link to GOOGLE
Here is a word in bold and another word in bold.
Here is a word in italics and another word in italics.
When we compile our document, we are using the rmarkdown
package.
Here are some example R commands:
2+2 mean(c(1,2,3,4,5))
\newpage
Here is an example of a non-numbered list:
Here is an example of a numbered list:
\newpage
Here is an example of a blockquote:
This is a block quote. This paragraph has two lines.
- This is a list inside a block quote.
- Second item.
Here is an example of a nested blockquote:
This is a block quote. This paragraph has two lines.
This text is nested
Here is an example of code in a blockquote:
2+2 mean(c(1,2,3,4,5))
paste("This is text", "This is more text", sep = " ")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.