Remove fix_* functions

NAMESPACE

@@ -2,10 +2,6 @@
 
 export(connect_to_rcc_billing_db)
 export(draft_communication_record_from_line_item)
-export(fix_data_in_invoice_line_item)
-export(fix_data_in_invoice_line_item_communication)
-export(fix_data_in_redcap_projects)
-export(fix_data_in_redcap_user_information)
 export(get_bad_emails_from_log)
 export(get_billable_candidates)
 export(get_creators)

R/transform.R

@@ -59,122 +59,6 @@ invoice_line_item_df_from <- function(invoice_line_item_communications) {
   return(invoice_line_item)
 }
 
-#' fix_data_in_invoice_line_item
-#'
-#' Fixes column data types that can vary between MySQL/MariaDB and SQLite3.
-#' This allows testing in SQLite3 while production is MariaDB
-#'
-#' @param data - a dataframe with data from the invoice_line_item table
-#'
-#' @return The input dataframe with revised data types
-#' @export
-#'
-#' @examples
-#' \dontrun{
-#' fix_data_in_invoice_line_item(invoice_line_item_test_data)
-#' }
-#' @export
-fix_data_in_invoice_line_item <- function(data) {
-  time_columns <- c(
-    "created",
-    "updated",
-    "je_posting_date",
-    "date_sent",
-    "date_received"
-  )
-
-  return(mutate_columns_to_posixct(data, time_columns))
-}
-
-#' fix_data_in_invoice_line_item_communication
-#'
-#' Fixes column data types that can vary between MySQL/MariaDB and SQLite3.
-#' This allows testing in SQLite3 while production is MariaDB
-#'
-#' @param data - a dataframe with data from the invoice_line_item_communication table
-#'
-#' @return The input dataframe with revised data types
-#' @export
-#'
-#' @examples
-#' \dontrun{
-#' fix_data_in_invoice_line_item_communication(invoice_line_item_communication_test_data)
-#' }
-#' @export
-fix_data_in_invoice_line_item_communication <- function(data) {
-  time_columns <- c(
-    "created",
-    "updated",
-    "je_posting_date",
-    "date_sent",
-    "date_received"
-  )
-
-  return(mutate_columns_to_posixct(data, time_columns))
-}
-
-#' fix_data_in_redcap_projects
-#'
-#' Fixes column data types that can vary between MySQL/MariaDB and SQLite3.
-#' This allows testing in SQLite3 while production is MariaDB
-#'
-#' @param data - a dataframe with data from the redcap_projects table
-#'
-#' @return The input dataframe with revised data types
-#' @export
-#'
-#' @examples
-#' \dontrun{
-#' fix_data_in_redcap_projects(redcap_projects)
-#' }
-#' @export
-fix_data_in_redcap_projects <- function(data) {
-  time_columns <- c(
-    "creation_time",
-    "production_time",
-    "inactive_time",
-    "completed_time",
-    "date_deleted",
-    "last_logged_event",
-    "datamart_cron_end_date",
-    "twilio_request_inspector_checked"
-  )
-
-  return(mutate_columns_to_posixct(data, time_columns))
-}
-
-#' fix_data_in_redcap_user_information
-#'
-#' Fixes column data types that can vary between MySQL/MariaDB and SQLite3.
-#' This allows testing in SQLite3 while production is MariaDB
-#'
-#' @param data - a dataframe with data from the redcap_user_information table
-#'
-#' @return The input dataframe with revised data types
-#' @export
-#'
-#' @examples
-#' \dontrun{
-#' fix_data_in_redcap_user_information(redcap_user_information_test_data)
-#' }
-#' @export
-fix_data_in_redcap_user_information <- function(data) {
-  time_columns <- c(
-    "user_creation",
-    "user_firstvisit",
-    "user_firstactivity",
-    "user_lastactivity",
-    "user_lastlogin",
-    "user_suspended_time",
-    "user_expiration",
-    "user_access_dashboard_view",
-    "messaging_email_ts",
-    "messaging_email_queue_time"
-  )
-
-  return(mutate_columns_to_posixct(data, time_columns))
-}
-
 #' Renames columns of a dataframe from CTSIT format to CSBT format
 #'
 #' Excludes non-CSBT columns and renames CTSIT column names to the corresponding CSBT names.