Nothing
#' ctmaSaveFile
#'
#' @description Internal fcuntion to save files
#'
#' @param activateRPB set TRUE to receive push messages with 'CoTiMA' notifications on your phone
#' @param activeDirectory directory name
#' @param SaveObject object to save
#' @param FileName filename
#' @param Directory directory to save file in
#' @param silentOverwrite override old files without asking
#'
#' @importFrom RPushbullet pbPost
#' @importFrom crayon red blue
#'
#' @return No return value. Just saves files
#'
ctmaSaveFile <- function(activateRPB,
activeDirectory=activeDirectory,
SaveObject,
FileName,
Directory,
silentOverwrite=FALSE)
{
x1 <- paste0(activeDirectory, "/", Directory); x1
if (!(dir.exists(x1))) {dir.create(x1);print("Directory added!")}
wdFileList <- list.files(x1)
if (FileName %in% wdFileList) {
if (silentOverwrite==FALSE) {
if (activateRPB==TRUE) {RPushbullet::pbPost("note", paste0("CoTiMA (",Sys.time(),")" ), paste0(Sys.info()[[4]], "\n","Data processing stopped.\nYour attention is required."))}
cat(crayon::red$bold(paste("The filename", FileName, "does already exist.", "\n")))
cat(crayon::blue("Do you wish to override the existing file?", "\n"))
cat(crayon::blue("Press 'y' to OVERRIDE the existing file or 'n' to continue WITHOUT SAVING.", "\n"))
cat(crayon::blue("If you wish to CHANGE the filename please press 'c' or press 'q' to QUIT", "\n"))
cat(crayon::blue("Press ENTER afterwards to confirm your choice."))
char <- readline(" ")
while (!(char == 'y') & !(char == 'Y') & !(char == 'n') & !(char == 'N') & !(char == 'c') & !(char == 'C')
& !(char == 'q') & !(char == 'Q')) {
cat(crayon::blue("Please press 'y' to override, or 'n' to continue without saving. Press 'c' to change the filename or 'q to quit. Confirm your choice by pressing ENTER afterwards.", "\n"))
char <- readline(" ")
}
if (char == 'y' | char == 'Y') {
FileName <- paste0(x1, FileName) ######
saveRDS(SaveObject, file=FileName)
} else if (char == 'n' | char == 'N'){char
} else if (char == 'c' | char == 'C'){
cat(crayon::blue("Please enter new filename. Press ENTER afterwards to confirm your choice.", "\n"))
chars <- readline(" ")
FileName <- paste0(chars, ".rds"); FileName
FileName <- paste0(x1, FileName)
saveRDS(SaveObject, file=FileName)
} else if (char == 'q' | char == 'Q') {stop("Good luck for the next try!")}
} else {
FileName <- paste0(x1, FileName)
saveRDS(SaveObject, file=FileName)
}
} else {
FileName <- paste0(x1, FileName)
saveRDS(SaveObject, file=FileName)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.