R/aaa.R

In xdvir: Render 'LaTeX' in Plots

## Package global state
xdvir_state <- new.env()

get <- function(name) {
    base::get0(name, envir=xdvir_state, inherits=FALSE)
}

mget <- function(names) {
    base::mget(names, envir=xdvir_state, inherits=FALSE)
}

set <- function(name, value) {
    assign(name, value, envir=xdvir_state)
}

## Signatures to put in TeX code when authoring and DVI output when typesetting
commentHeader <- "R package xdvir_"
commentSep <- "; "
commentEngineName <- "engine name: "
commentEngineVersion <- "engine version: "
commentPackages <- "packages: "
commentPackageSep <- ", "

buildSignature <- function(engine, packages) {
    paste0(commentHeader, packageVersion("xdvir"), commentSep,
           commentEngineName, engine$name, commentSep,
           commentEngineVersion, engine$version, commentSep,
           commentPackages, paste(packages, collapse=commentPackageSep))
}

splitSignature <- function(sig) {
    strsplit(sig, commentSep)[[1]]
}

signatureEngine <- function(sig) {
    sig <- splitSignature(sig)
    list(name=gsub(commentEngineName, "", sig[2], fixed=TRUE),
         version=gsub(commentEngineVersion, "", sig[3], fixed=TRUE))
}

signaturePackages <- function(sig) {
    sig <- splitSignature(sig)
    pkgList <- gsub(commentPackages, "", sig[4], fixed=TRUE)
    strsplit(pkgList, commentPackageSep)[[1]]
}