#' Default Tasks
#'
#' Disables / Enables default dailies, monthlies, and weeklies.
#'
#' @param name Specifies which default task will be changed.
#' @param enabled Defaults to \code{FALSE}, which disables the task. \code{enabled = TRUE} allows you to re-enable previously disabled defaults.
#' @family task configuration
defaults <- function(name, enabled = FALSE){
if(enabled == FALSE){
if(name == "walk"){
stats$dailyd1.used <<- FALSE
} else {
if(name == "tidy"){
stats$dailyd2.used <<- FALSE
} else {
if(name == "meditate"){
stats$dailyd3.used <<- FALSE
} else {
if(name == "meds"){
stats$dailyd4.used <<- FALSE
} else {
if(name == "read science"){
stats$weeklyd1.used <<- FALSE
} else {
if(name == "read social justice"){
stats$weeklyd2.used <<- FALSE
} else {
if(name == "hobby"){
stats$weeklyd3.used <<- FALSE
} else {
if(name == "deep clean"){
stats$monthlyd1.used <<- FALSE
} else {
return("Invalid name.")
}
}
}
}
}
}
}
}
}
if(enabled == TRUE){
if(name == "walk"){
stats$dailyd1.used <<- TRUE
} else {
if(name == "tidy"){
stats$dailyd2.used <<- TRUE
} else {
if(name == "meditate"){
stats$dailyd3.used <<- TRUE
} else {
if(name == "meds"){
stats$dailyd4.used <<- TRUE
} else {
if(name == "read science"){
stats$weeklyd1.used <<- TRUE
} else {
if(name == "read social justice"){
stats$weeklyd2.used <<- TRUE
} else {
if(name == "hobby"){
stats$weeklyd3.used <<- TRUE
} else {
if(name == "deep clean"){
stats$monthlyd1.used <<- TRUE
} else {
return("Invalid name.")
}
}
}
}
}
}
}
}
}
write.csv(stats, savespot)
return("Default tasks settings updated.")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.