Quotes on Statistics, Data Visualization and Science"

In statquotes: Quotes on Statistics, Data Visualization and Science

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")))}))

statquotes documentation built on Oct. 10, 2023, 5:07 p.m.