Nothing
## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----echo=FALSE, results='asis'-----------------------------------------------
library("statquotes")
library("utils")
f <- statquotes::get_quotes()
n <- nrow(f)
invisible(lapply(1:n, function(i) { cat(sprintf("%i.", i),
as.markdown(f[i,], cite=TRUE,
form = "%s\n\n -- *%s*\n"),
ifelse(is.na(f[i,]$tags), "\n\n",
paste0('~(*#', f[i,]$tags, "*)~\n\n")))}))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.