R/templates.R

Defines functions configure preamble template

Documented in configure preamble template

template <- function() {
	path <- paste(system.file(package = "voucher"), "/extdata/template.tex", sep='')
	con <- file(path)
		r <- readLines(con)
	close(con)
	return(r)
}

preamble <- function() {
	path <- paste(system.file(package = "voucher"), "/extdata/preamble.tex", sep='')
	con <- file(path )
		r <- readLines(con)
	close(con)
	return(r)
}

configure <- function() {
	path <- paste(system.file(package = "voucher"), "/extdata/configure.tex", sep='')
	con <- file(path )
		r <- readLines(con)
	close(con)
	return(r)
}
kardinal-eros/voucher documentation built on May 18, 2017, 3:27 p.m.