R/log_this_as.R

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

#' Universal log function to use to log items
#' @import dplyr
#' @import readr
#' @import somersaulteR
#' @export

log_this_as <-
        function(project_log_dir = "",
                 project_log_load_timestamp = "",
                 project_log_load_comment = "",
                 project_log_parent_fn = "",
                 project_log_source_comment = "",
                 project_log_fn = "",
                 project_log_fn_md5sum = "",
                 project_log_id = "",
                 project_log_robj_name = "",
                 project_log_rdata_fn = "",
                 project_log_rdata_fn_md5sum = "",
                 project_log_timestamp = "",
                 project_log_comment = "",
                 project_log_write_timestamp = "",
                 project_log_write_comment = "",
                 project_log_write_full_fn = "",
                 project_log_write_full_fn_md5sum = "",
                 project_log_gsheet_key = "",
                 project_log_gsheet_title = "",
                 project_log_gsheet_tab_name = "",
                 project_log_to_db_timestamp = "",
                 project_log_to_db_comment = "",
                 project_log_to_db_name = "",
                 project_log_to_db_schema = "",
                 project_log_to_db_table = "",
                 project_log_from_db_timestamp = "",
                 project_log_from_db_comment = "",
                 project_log_from_db_name = "",
                 project_log_from_db_schema = "",
                 project_log_from_db_table = "") {
                new_df <-
                        data.frame(
                                PROJECT_LOG_DIR = project_log_dir,
                                PROJECT_LOG_LOAD_TIMESTAMP = project_log_load_timestamp,
                                PROJECT_LOG_LOAD_COMMENT = project_log_load_comment,
                                PROJECT_LOG_PARENT_FN = project_log_parent_fn,
                                PROJECT_LOG_SOURCE_COMMENT = project_log_source_comment,
                                PROJECT_LOG_FN = project_log_fn,
                                PROJECT_LOG_FN_MD5SUM = project_log_fn_md5sum,
                                PROJECT_LOG_ID = project_log_id,
                                PROJECT_LOG_ROBJ_NAME = project_log_robj_name,
                                PROJECT_LOG_RDATA_FN = project_log_rdata_fn,
                                PROJECT_LOG_RDATA_FN_MD5SUM = project_log_rdata_fn_md5sum,
                                PROJECT_LOG_TIMESTAMP = project_log_timestamp,
                                PROJECT_LOG_COMMENT = project_log_comment,
                                PROJECT_LOG_WRITE_TIMESTAMP = project_log_write_timestamp,
                                PROJECT_LOG_WRITE_COMMENT = project_log_write_comment,
                                PROJECT_LOG_WRITE_FULL_FN = project_log_write_full_fn,
                                PROJECT_LOG_WRITE_FULL_FN_MD5SUM = project_log_write_full_fn_md5sum,
                                PROJECT_LOG_GSHEET_KEY = project_log_gsheet_key,
                                PROJECT_LOG_GSHEET_TITLE = project_log_gsheet_title,
                                PROJECT_LOG_GSHEET_TAB_NAME = project_log_gsheet_tab_name,
                                PROJECT_LOG_TO_DB_TIMESTAMP = project_log_to_db_timestamp,
                                PROJECT_LOG_TO_DB_COMMENT = project_log_to_db_comment,
                                PROJECT_LOG_TO_DB_NAME = project_log_to_db_name,
                                PROJECT_LOG_TO_DB_SCHEMA = project_log_to_db_schema,
                                PROJECT_LOG_TO_DB_TABLE = project_log_to_db_table,
                                PROJECT_LOG_FROM_DB_TIMESTAMP = project_log_from_db_timestamp,
                                PROJECT_LOG_FROM_DB_COMMENT = project_log_from_db_comment,
                                PROJECT_LOG_FROM_DB_NAME = project_log_from_db_name,
                                PROJECT_LOG_FROM_DB_SCHEMA = project_log_from_db_schema,
                                PROJECT_LOG_FROM_DB_TABLE = project_log_from_db_table
                        ) %>%
                        somersaulteR::call_mr_clean()

                history_df <- readr::read_csv("PROJECT_LOG.csv", col_types = cols(.default = "c"))

                final_df <- dplyr::bind_rows(history_df, new_df) %>%
                                                somersaulteR::call_mr_clean()

                readr::write_csv(final_df, "PROJECT_LOG.csv")
        }