Nothing
.onAttach <- function(lib, pkg, ...) {
packageStartupMessage(opt("startup_message"))
}
.onLoad <- function(lib, pkg, ...) {
# global options ----------------------------------------------------------
op <- options()
op_scan <- list(
scan.print.cases = "fit",
scan.print.rows = 15,
scan.print.cols = "all",
scan.print.digits = 2,
scan.print.long = FALSE,
scan.print.bar = "|",
scan.print.scdf.name = TRUE,
scan.plot.style = "grid",
scan.deprecated.warning = TRUE,
scan.export.kable = list(digits = 2, linesep ="", booktab = TRUE),
scan.export.kable_styling = list(
bootstrap_options = c("bordered", "condensed"),
full_width = FALSE, position = "left",
latex_options = c("hold_position"),
htmltable_class = "lightable-classic"
)
)
toset <- !(names(op_scan) %in% names(op))
if (any(toset)) options(op_scan[toset])
invisible()
}
.onAttach()
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.