Nothing
#===== Source file: ../prEntries.r on 2024-01-26
#-----
prEntries <- function(x, style=tablesggOpt("entryStyle"), scale=1.0)
{
x <- as.tblEntries(x) # validity checks
props_replace <- NA # don't want to overwrite 'hjust' inherited from
# 'textTable' object
xattr <- attributes(x)
if (!inherits(style, "styleObj")) stop("'style' is not a 'styleObj' object")
if ((chk <- attr(style, "element_type")) != "entry") stop(
"'style' is not a style for entries, its 'element_type' is '", chk, "'")
x <- apply_style(x, style=style, replace=props_replace,
setEnabled=FALSE, unstyled="base",
base_style=styles_pkg$entryStyle_pkg_base)
x <- apply_scale(x, type="entry", scale=scale)
x <- structure(x, row.names=x[, "id"], current_scale=scale, style=style,
mergeRuns=xattr[["mergeRuns"]],
rowheadInside=xattr[["rowheadInside"]],
rowhier=xattr[["rowhier"]], colhier=xattr[["colhier"]])
class(x) <- c("prEntries", "tblEntries", "data.frame")
x
}
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.