mydefinitions.R
No OneTemporary
Actions

Subscribers

None

File Metadata

	packages <- c("knitr", "kableExtra", "dplyr")
	# Install packages not yet installed
	installed_packages <- packages %in% rownames(installed.packages())
	if (any(installed_packages == FALSE)) {
	install.packages(packages[!installed_packages])
	}

	library(knitr)
	library(kableExtra)
	library(dplyr)

	knit_hooks$set(document = function(x,options) {
	sub('\\usepackage[]{color}', '\\usepackage[]{xcolor}', x, fixed = TRUE)
	#paste("\\begin{lstlisting}\n", x, "\\end{lstlisting}\n", sep = "")
	})
	opts_chunk$set(
	fig.path = "fig/"
	)

	# <<options, echo=FALSE, warning=FALSE, message= FALSE, results = FALSE>>=
	# options(digits=3)
	# packages <- c("dplyr", "knitr")
	# # Install packages not yet installed
	# installed_packages <- packages %in% rownames(installed.packages())
	# if (any(installed_packages == FALSE)) {
	# install.packages(packages[!installed_packages])
	# }
	# lapply(packages, require, character.only = TRUE)
	# @