#' @title Reset poiscon folders
#'
#' @description
#' Resets poiscon folders to the default values. The folders are
#' used for saving plots, tables, rdata and analyses.
#'
#' @param dir a character scalar indicating the name of the folders
#' @return NULL
#' @export
reset_folders <- function(dir = "output") {
set_rdata_folder(dir = paste0(dir, "/rdata"))
set_analyses_folder(dir = paste0(dir, "/analyses"))
set_plots_folder(dir = paste0(dir, "/plots"))
set_tables_folder(dir = paste0(dir, "/tables"))
return(invisible())
}
#' @title Reset poiscon directories
#'
#' @description
#' Resets poiscon directories to the default values. The directories are
#' used for saving plots, tables, rdata and analyses.
#'
#' @param share a logical element indicating whether or not the directories
#' should be nested in the work directory (share = TRUE) or saved a level
#' higher in the directory structure (share = FALSE) the default
#' @return NULL
#' @export
reset_dirs <- function(share = FALSE) {
warning("deprecated - use reset folders")
if (!inherits(share, "logical"))
stop("share must be class logical")
if (length(share) != 1)
stop("share must be a logical vector of length one")
if (is.na(share))
stop("share must be TRUE or FALSE")
if (share) {
set_rdata_folder(dir = "rdata")
set_analyses_folder(dir = "analyses")
set_plots_folder(dir = "plots")
set_tables_folder(dir = "tables")
} else {
set_rdata_folder(dir = "../rdata")
set_analyses_folder(dir = "../analyses")
set_plots_folder(dir = "../plots")
set_tables_folder(dir = "../tables")
}
return(invisible())
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.