Nothing
knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
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.