#' @importFrom dplyr %>%
.onLoad <- function(libname, pkgname) {
if (!file.exists(config_path())) {
message("No config file found, creating blank one. Use set_cats_path to update config file.")
write_config(list())
} else {
config <- read_config()
if (!("cats_path" %in% names(config)) ||
!file.exists(config$cats_path)) {
message("CATS not found. Use set_cats_path to update config file.")
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.