Nothing
#' Default quantiles
default_quantiles <-
c(0.01,
0.025,
0.05,
0.1,
0.2,
0.25,
0.5,
0.75,
0.8,
0.9,
0.95,
0.975,
0.99)
#' Default weights
default_weights <- seq(0, 1, by = 0.005)
# Colors
#' Custom dark blue
tipmap_darkblue <- grDevices::rgb(0, 102, 153, max = 255)
#' Custom light red
tipmap_lightred <- grDevices::rgb(204, 51, 51, max = 255)
# Utils
utils::globalVariables(c(
"default_quantiles",
"default_weights",
"tipmap_darkblue",
"tipmap_lightred"
))
utils::globalVariables(
c(
"t.0.025",
"t.0.05",
"t.0.1",
"t.0.2",
"t.0.8",
"t.0.9",
"t.0.95",
"t.0.975",
"t.est",
"x.at",
"x.col"
)
)
# Set environmental variable
# Sys.getenv("_R_CHECK_RD_VALIDATE_RD2HTML")
Sys.setenv("_R_CHECK_RD_VALIDATE_RD2HTML" = "F")
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.