R/reset_log_csv.R

In patelm9/projectloggeR: This package creates the tools needed to log data input for provenance.

#' Resets log files in all root folders provided to a fresh version
#' @param dir_to_log character vector of length 1 of the root folder name that contains the log to be reset
#' @importFrom utils write.csv
#' @importFrom typewriteR stop_and_enter
#' @importFrom typewriteR tell_me
#' @export
#'

reset_log_csv <-
        function(dir_to_log) {
                typewriteR::tell_me("WARNING: This function will overwrite the existing log!")
                typewriteR::stop_and_enter()
                LOG_FN <- paste0("./", dir_to_log, "/", tolower(dir_to_log), "_log.csv")
                TEMP_DF <- create_log_dataframe()

                utils::write.csv(TEMP_DF, LOG_FN, row.names = FALSE)
        }