Nothing
as.define <- function(x, ...)UseMethod('as.define')
as.define.spec <- function(x,sep = ' = ',collapse = '; ',escape = c('_','%','$'),...){
x$required <- NULL
names(x) <- c('Variable', 'Label', 'Type', 'Codes','Comments')
x$Type <- map(x$Type, from = c('character','numeric','integer','datetime'),
to = c('char','num','num','char'))
codes <- codes(x$Codes)
decodes <- decodes(x$Codes)
blend <- function(codes,decodes){
if(length(codes) == 1) if(is.na(codes))return(as.character(NA))
stopifnot(length(codes) == length(decodes))
list <- paste(codes,decodes,sep = sep)
list[is.na(decodes)] <- codes[is.na(decodes)]
string <- paste(list,collapse = collapse)
string
}
x$Codes <- sapply(seq_along(codes),function(i)blend(codes[[i]],decodes[[i]]))
polish <- function(x,escape){
for(i in escape)x <- gsub(i,glue('\\',i),x,fixed = TRUE)
x
}
x[] <- lapply(x, polish,escape = escape)
class(x) <- c('define','keyed','data.frame')
x
}
as.pdf.define <- function(x,stem,...)as.pdf(stem=stem,as.document(x,...),...)
tabular.define <- function(
x,
caption = '',
grid = TRUE,
rules = 1,
colwidth = c('1in','1in','0.5in','1.5in','1.5in'),
tabularEnvironment = 'longtable',
walls = 1,
tabnum = FALSE,
pretable = if(is.null(caption)) '' else paste(if(tabnum) '\\caption{' else '\\caption*{',caption,'}\\\\'),
prepos = 1,
headerBold = TRUE,
...
){
if(headerBold) names(x) <- glue('\\textbf{',names(x),'}')
tab <- tabular.data.frame(
x,
caption=caption,
grid=grid,
rules=rules,
colwidth=colwidth,
tabularEnvironment=tabularEnvironment,
walls=walls,
...
)
tab <- append(tab,pretable,prepos)
tab
}
as.document.define <- function(
x,
morePreamble = command('usepackage',args = 'longtable'),
geoLeft = '1in',
geoRight = '1in',
geoTop = '1in',
geoBottom = '1in',
pagestyle = command("pagestyle", args = "plain"),
...
){
tab <- tabular(x, ...)
tex <- as.document(
morePreamble = morePreamble,
geoLeft = geoLeft,
geoRight = geoRight,
geoTop = geoTop,
geoBottom = geoBottom,
pagestyle = pagestyle,
tab,
...
)
tex
}
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.