package_version <- function(x) {
version <- as.character(unclass(utils::packageVersion(x))[[1]])
if (length(version) > 3) {
version[4:length(version)] <- crayon::red(as.character(version[4:length(version)]))
}
paste0(version, collapse = ".")
}
msg <- function(..., startup = FALSE) {
if (startup) {
if (!isTRUE(getOption("tidyverse.quiet"))) {
packageStartupMessage(text_col(...))
}
} else {
message(text_col(...))
}
}
text_col <- function(x) {
# 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)
}
msg(
cli::rule(
left = crayon::bold("Attached:"),
right = paste0("Circadian Dynamics ", package_version("circadiandynamics"))
),
startup = TRUE
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.