#' Title
#'
#' @param base The root directory of your project
#'
#' @return DIR, a list containing the filenames of your directories
#' @export
#'
#' @examples
#' \dontrun{
#' DIR <- assign_directories(base = "your working directory")
#' }
assign_directories<-function(base="") {
DIR<-list()
# base directory
DIR[["Base"]]<-base
# R directory
DIR[["R"]]<-make_filename("R",DIR[["Base"]],T)
# R functions
DIR[["Functions"]]<-make_filename("Functions",DIR[["R"]],T)
# Scripts
DIR[["Scripts"]]<-make_filename("Scripts", DIR[["R"]],T)
# Raw Data
DIR[["Data"]]<-make_filename("Data",DIR[["Base"]],T)
# Figures
DIR[["Figures"]]<-make_filename("Figures",DIR[["Base"]],T)
return(DIR)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.