Nothing
#' Prices of 3 jams
#'
#' A huxtable of jams.
#'
#' @format A huxtable with 4 rows and 2 columns ("Type" and "Price").
"jams"
.onLoad <- function(libname, pkgname) {
set_default_option("huxtable.add_colnames", TRUE)
set_default_option("huxtable.autoformat", TRUE)
set_default_option("huxtable.autolabel", TRUE)
set_default_option("huxtable.bookdown", NULL)
set_default_option("huxtable.color_screen",
requireNamespace("crayon", quietly = TRUE))
set_default_option("huxtable.knit_print_df_theme", theme_plain)
set_default_option("huxtable.print", print_screen)
set_default_option("huxtable.latex_use_fontspec", FALSE)
set_default_option("huxtable.latex_siunitx_align", FALSE)
set_default_option("huxtable.long_minus", FALSE)
set_default_option("huxtable.quarto_process", FALSE)
set_default_option("huxtable.autoformat_number_format", list(
integer = 0,
numeric = "%.3g",
complex = "%.3g"
))
set_default_option("huxtable.autoformat_align", list(
numeric = getOption("OutDec", "."),
complex = getOption("OutDec", "."),
integer = "right",
Date = "right",
POSIXct = "right",
POSIXlt = "right"
))
if (requireNamespace("knitr", quietly = TRUE)) {
register_s3_method("knitr", "knit_print")
register_s3_method("knitr", "knit_print", class = "data.frame")
}
if (requireNamespace("dplyr", quietly = TRUE)) {
register_s3_method("dplyr", "arrange")
register_s3_method("dplyr", "arrange_")
register_s3_method("dplyr", "filter")
register_s3_method("dplyr", "filter_")
register_s3_method("dplyr", "mutate")
register_s3_method("dplyr", "mutate_")
register_s3_method("dplyr", "slice")
register_s3_method("dplyr", "slice_")
register_s3_method("dplyr", "transmute")
register_s3_method("dplyr", "transmute_")
if (utils::packageVersion("dplyr") <= "0.8.5") {
register_s3_method("dplyr", "rename")
register_s3_method("dplyr", "rename_")
register_s3_method("dplyr", "select")
register_s3_method("dplyr", "select_")
}
}
}
.onAttach <- function (libname, pkgname) {
set_default_option("huxtable.knit_print_df", TRUE)
}
set_default_option <- function (opt, value) {
ol <- list(getOption(opt, value))
names(ol) <- opt
options(ol)
}
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.