tests/testthat/helper_constants.R

In kimjam/qrcutils: Contains utility functions for data pipeline project.

roccl_names <- c('yyyymm', 'create_audit_date', 'analyzer', 'family_code',
                 'product_number', 'call_subject', 'call_area',
                 'complaint_number', 'resolution', 'call_type', 'status_desc',
                 'solution_number', 'customer_number', 'customer_name',
                 'j_number', 'device_count', 'lot_serial_number',
                 'country_code', 'problem_desc')

roctm_names <- c('complaint_number', 'create_audit_date', 'date_closed',
                 'prod_no_desc', 'call_type', 'call_subject',
                 'call_subject_desc', 'call_area', 'call_area_desc',
                 'resolution', 'lot_serial_number', 'j_number',
                 'solution_number', 'device_count', 'business_unit_desc',
                 'product_cat', 'line_desc', 'group_desc', 'problem_desc',
                 'customer_name', 'state', 'country_code',
                 'contact_name', 'contact_phone', 'yyyymm')

onedayrange <- strftime(
  c(Sys.time() - lubridate::ddays(1), Sys.time()),
  format = '%Y-%m-%d'
)