Nothing
zipfR.par <- function (..., bw.mode=FALSE)
{
args <- list(...)
known.pars <- ls(.PAR)
if (! length(args)) { # --> zipfR.par()
res <- as.list(.PAR)
return(res[order(names(res))])
}
else if (is.null(names(args))) {
if (length(args) == 1 && is.list(args[[1]])) { # --> zipfR.par(par.save)
args <- args[[1]] # then fall through to default case below
} else { # --> zipfR.par("lty", "lwd")
pars <- as.character(unlist(args))
if (bw.mode) { # bw.mode=TRUE -> return corresponding B/W mode parameters if possible
pars.bw <- paste(pars, "bw", sep=".")
idx <- pars.bw %in% known.pars
if (any(idx)) pars[idx] <- pars.bw[idx]
}
return( if (length(pars) == 1) .PAR[[ pars[1] ]] else as.list(.PAR)[pars] )
}
}
invalid <- !(names(args) %in% known.pars) # --> zipfR.par(lwd.bw=2, bw=TRUE, ...)
if (any(invalid)) {
warning("invalid zipfR graphics parameter(s) ", paste(names(args)[invalid], collapse=", "), " ignored")
args <- args[! invalid]
}
old <- as.list(.PAR)[names(args)] # make sure we get a list (can't call zipfR.arg(names))
for (key in names(args)) { .PAR[[ key ]] <- check.par(key, args[[ key ]]) }
return(invisible(old))
}
## private environment for graphics parameter data
## (I wonder whether this is the way it's supposed to work, but at least it works ...)
.PAR <- new.env()
## styles for colour plots
.PAR$lty <- c(rep("solid", 7), rep("dashed", 7))
.PAR$lwd <- rep(c(3,3,3,3,3,3,3), 2)
.PAR$col <- rep(c("#808080", "#D65F5F", "#6ACC65", "#4878CF", "#C4AD66", "#77BEDB", "#B47CC7"), 2) # seaborn muted
.PAR$pch <- rep(c(1, 3, 15, 2, 20), 3)
.PAR$barcol <- rep(c("#666666", "#C44E52", "#55A868", "#4C72B0", "#CCB974", "#64B5CD", "#8172B2"), 2) # seaborn normal
## styles for b/w plots
.PAR$lty.bw <- rep(c("solid", "dashed", "12", "solid", "dashed"), 2)
.PAR$lwd.bw <- rep(c(2,2,3,1,2), 2)
.PAR$col.bw <- rep(c("grey30", "black", "black", "black", "grey30"), 2)
.PAR$pch.bw <- rep(c(1, 3, 15, 2, 20), 2)
.PAR$barcol.bw <- rep(c("black", "grey50", "white", "grey70", "grey20"), 2)
## whether to produce b/w graphics by default
.PAR$bw <- FALSE
## for the zipfR plotutils functions
.PAR$device <- if (capabilities()["aqua"]) "quartz" else "x11"
.PAR$init.par <- list()
.PAR$width <- 6
.PAR$height <- 6
.PAR$bg <- "white"
.PAR$pointsize <- 12
## interal helper function to check validity of graphics parameters
check.par <- function (name, value) {
if (name %in% c("bw")) { # Boolean parameters
value <- as.logical(value)
if (is.na(value) || length(value) != 1) stop("parameter '",name,"' must be a Boolean value (logical)")
}
else if (name == "device") {
supported <- c("x11", "png", "eps", "pdf")
if (capabilities()["aqua"]) supported <- c("quartz", supported)
value <- match.arg(value, supported)
}
else if (name == "init.par") {
if (is.null(value)) value <- list() # init.par=NULL translates to empty list
if (! is.list(value)) stop("parameter 'init.par' must be a list of name=value pairs")
}
else if (name %in% c("lwd", "lwd.bw")) {
if (! is.numeric(value)) stop("parameter '",name,"' must be a numeric vector")
if (length(value) > 10) warning("extra style options for parameter '",name,"' ignored")
value <- rep(value, length.out=10)
}
else if (name %in% c("lty", "col", "lty.bw", "col.bw")) {
if (length(value) > 10) warning("extra style options for parameter '",name,"' ignored")
value <- rep(value, length.out=10)
}
value
}
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.