Nothing
text_col <- function(x) {
# This function is adapted from: https://github.com/tidyverse/tidyverse
# If RStudio not available, messages already printed in black
if (!rstudioapi::isAvailable()) {
return(x)
}
if (!rstudioapi::hasFun("getThemeInfo")) {
return(x)
}
theme <- rstudioapi::getThemeInfo()
if (isTRUE(theme$dark)) crayon::white(x) else crayon::black(x)
}
.onAttach <- function(libname, pkgname) {
packageStartupMessage(
text_col(paste(
"Learn SticsRFiles at:",
crayon::blue$underline$bold("https://SticsRPacks.github.io/SticsRFiles")
))
)
}
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.