.onAttach <- function(...) {
# inst_needed <- core[!is_installed(core)]
# pearsonverse_install()
att_needed <- core[!is_attached(core)]
if (length(att_needed) == 0)
return()
crayon::num_colors(TRUE)
pearsonverse_attach()
}
# is_installed <- function(x) {
# pkg_installed <- utils::installed.packages() %>%
# as.data.frame() %>%
# dplyr::filter(Package %in% core) %>%
# dplyr::pull(Package) %>%
# as.character()
#
# x %in% pkg_installed
# }
is_attached <- function(x) {
paste0("package:", x) %in% search()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.