diff --git a/R/data.R b/R/data.R index 8f6f45f9..ae37d2ff 100644 --- a/R/data.R +++ b/R/data.R @@ -1,38 +1,3 @@ -#' Sample data for invoice_line_item table -#' -#' @format -#' \describe{ -#' \item{\code{id}}{the primary key} -#' \item{\code{service_identifier}}{either a redcap project ID, or redcap username} -#' \item{\code{service_type_code}}{a numeric code that uniquely identifies the service_type} -#' \item{\code{service_instance_id}}{a numeric code that uniquely identifies the service_instance} -#' \item{\code{ctsi_study_id}}{CSBT's unique identifier for a service} -#' \item{\code{name_of_service}}{name of the service} -#' \item{\code{name_of_service_instance}}{name of the study} -#' \item{\code{other_system_invoicing_comments}}{additional invoice information, either project url, or sponsor and pi} -#' \item{\code{price_of_service}}{price of the service, in US dollars} -#' \item{\code{qty_provided}}{quantity provided} -#' \item{\code{amount_due}}{amount due, in US dollars} -#' \item{\code{fiscal_year}}{fiscal year of the invoice} -#' \item{\code{month_invoiced}}{month of the invoice} -#' \item{\code{pi_last_name}}{last name of the person invoiced} -#' \item{\code{pi_first_name}}{first name of the person invoiced} -#' \item{\code{pi_email}}{email of the person invoiced} -#' \item{\code{gatorlink}}{gatorlink of the person invoiced} -#' \item{\code{reason}}{reason for the invoice} -#' \item{\code{status}}{status of the invoice} -#' \item{\code{sender}}{character: message sender, typically an email address} -#' \item{\code{recipient}}{character: message recipient, typically an email address} -#' \item{\code{date_sent}}{POSIXct: date CTSI sent the message} -#' \item{\code{date_received}}{POSIXct: date CTSIT received the email} -#' \item{\code{script_name}}{character: the script that created this record} -#' \item{\code{created}}{created at timestamp} -#' \item{\code{updated}}{updated at timestamp} -#' } -#' -#' @source \url{https://github.com/ctsit/rcc.billing/issues/3} -"invoice_line_item_test_data" - #' @title CTS-IT Staff #' @description usernames of CTS-IT staff #' @format A data frame with 6 rows and 1 variable: @@ -54,318 +19,6 @@ #'} "ctsit_staff_employment_periods" -#' @title one_deleted_project_record -#' @description A single REDCap project record for a deleted project -#' @format A data frame with 1 rows and 149 variables: -#' \describe{ -#' \item{\code{project_id}}{double} -#' \item{\code{project_name}}{character} -#' \item{\code{app_title}}{character} -#' \item{\code{status}}{integer} -#' \item{\code{creation_time}}{double} -#' \item{\code{production_time}}{double} -#' \item{\code{inactive_time}}{double} -#' \item{\code{completed_time}}{double} -#' \item{\code{completed_by}}{character} -#' \item{\code{data_locked}}{integer} -#' \item{\code{log_event_table}}{character} -#' \item{\code{created_by}}{integer} -#' \item{\code{draft_mode}}{integer} -#' \item{\code{surveys_enabled}}{integer} -#' \item{\code{repeatforms}}{integer} -#' \item{\code{scheduling}}{integer} -#' \item{\code{purpose}}{integer} -#' \item{\code{purpose_other}}{character} -#' \item{\code{show_which_records}}{integer} -#' \item{\code{__SALT__}}{character} -#' \item{\code{count_project}}{integer} -#' \item{\code{investigators}}{character} -#' \item{\code{project_note}}{character} -#' \item{\code{online_offline}}{integer} -#' \item{\code{auth_meth}}{character} -#' \item{\code{double_data_entry}}{integer} -#' \item{\code{project_language}}{character} -#' \item{\code{project_encoding}}{character} -#' \item{\code{is_child_of}}{character} -#' \item{\code{date_shift_max}}{integer} -#' \item{\code{institution}}{character} -#' \item{\code{site_org_type}}{character} -#' \item{\code{grant_cite}}{character} -#' \item{\code{project_contact_name}}{character} -#' \item{\code{project_contact_email}}{character} -#' \item{\code{headerlogo}}{character} -#' \item{\code{auto_inc_set}}{integer} -#' \item{\code{custom_data_entry_note}}{character} -#' \item{\code{custom_index_page_note}}{character} -#' \item{\code{order_id_by}}{character} -#' \item{\code{custom_reports}}{character} -#' \item{\code{report_builder}}{character} -#' \item{\code{disable_data_entry}}{integer} -#' \item{\code{google_translate_default}}{character} -#' \item{\code{require_change_reason}}{integer} -#' \item{\code{dts_enabled}}{integer} -#' \item{\code{project_pi_firstname}}{character} -#' \item{\code{project_pi_mi}}{character} -#' \item{\code{project_pi_lastname}}{character} -#' \item{\code{project_pi_email}}{character} -#' \item{\code{project_pi_alias}}{character} -#' \item{\code{project_pi_username}}{character} -#' \item{\code{project_pi_pub_exclude}}{integer} -#' \item{\code{project_pub_matching_institution}}{character} -#' \item{\code{project_irb_number}}{character} -#' \item{\code{project_grant_number}}{character} -#' \item{\code{history_widget_enabled}}{integer} -#' \item{\code{secondary_pk}}{character} -#' \item{\code{secondary_pk_display_value}}{integer} -#' \item{\code{secondary_pk_display_label}}{integer} -#' \item{\code{custom_record_label}}{character} -#' \item{\code{display_project_logo_institution}}{integer} -#' \item{\code{imported_from_rs}}{integer} -#' \item{\code{display_today_now_button}}{integer} -#' \item{\code{auto_variable_naming}}{integer} -#' \item{\code{randomization}}{integer} -#' \item{\code{enable_participant_identifiers}}{integer} -#' \item{\code{survey_email_participant_field}}{character} -#' \item{\code{survey_phone_participant_field}}{character} -#' \item{\code{data_entry_trigger_url}}{character} -#' \item{\code{template_id}}{integer} -#' \item{\code{date_deleted}}{double} -#' \item{\code{data_resolution_enabled}}{integer} -#' \item{\code{field_comment_edit_delete}}{integer} -#' \item{\code{realtime_webservice_enabled}}{integer} -#' \item{\code{realtime_webservice_type}}{character} -#' \item{\code{realtime_webservice_offset_days}}{double} -#' \item{\code{realtime_webservice_offset_plusminus}}{character} -#' \item{\code{last_logged_event}}{double} -#' \item{\code{edoc_upload_max}}{integer} -#' \item{\code{file_attachment_upload_max}}{integer} -#' \item{\code{survey_queue_custom_text}}{character} -#' \item{\code{survey_queue_hide}}{integer} -#' \item{\code{survey_auth_enabled}}{integer} -#' \item{\code{survey_auth_field1}}{character} -#' \item{\code{survey_auth_event_id1}}{integer} -#' \item{\code{survey_auth_field2}}{character} -#' \item{\code{survey_auth_event_id2}}{integer} -#' \item{\code{survey_auth_field3}}{character} -#' \item{\code{survey_auth_event_id3}}{integer} -#' \item{\code{survey_auth_min_fields}}{character} -#' \item{\code{survey_auth_apply_all_surveys}}{integer} -#' \item{\code{survey_auth_custom_message}}{character} -#' \item{\code{survey_auth_fail_limit}}{integer} -#' \item{\code{survey_auth_fail_window}}{integer} -#' \item{\code{twilio_enabled}}{integer} -#' \item{\code{twilio_modules_enabled}}{character} -#' \item{\code{twilio_hide_in_project}}{integer} -#' \item{\code{twilio_account_sid}}{character} -#' \item{\code{twilio_auth_token}}{character} -#' \item{\code{twilio_from_number}}{double} -#' \item{\code{twilio_voice_language}}{character} -#' \item{\code{twilio_option_voice_initiate}}{integer} -#' \item{\code{twilio_option_sms_initiate}}{integer} -#' \item{\code{twilio_option_sms_invite_make_call}}{integer} -#' \item{\code{twilio_option_sms_invite_receive_call}}{integer} -#' \item{\code{twilio_option_sms_invite_web}}{integer} -#' \item{\code{twilio_default_delivery_preference}}{character} -#' \item{\code{twilio_request_inspector_checked}}{double} -#' \item{\code{twilio_request_inspector_enabled}}{integer} -#' \item{\code{twilio_append_response_instructions}}{integer} -#' \item{\code{twilio_multiple_sms_behavior}}{character} -#' \item{\code{twilio_delivery_preference_field_map}}{character} -#' \item{\code{two_factor_exempt_project}}{integer} -#' \item{\code{two_factor_force_project}}{integer} -#' \item{\code{disable_autocalcs}}{integer} -#' \item{\code{custom_public_survey_links}}{character} -#' \item{\code{pdf_custom_header_text}}{character} -#' \item{\code{pdf_show_logo_url}}{integer} -#' \item{\code{pdf_hide_secondary_field}}{integer} -#' \item{\code{pdf_hide_record_id}}{integer} -#' \item{\code{shared_library_enabled}}{integer} -#' \item{\code{allow_delete_record_from_log}}{integer} -#' \item{\code{delete_file_repository_export_files}}{integer} -#' \item{\code{custom_project_footer_text}}{character} -#' \item{\code{custom_project_footer_text_link}}{character} -#' \item{\code{google_recaptcha_enabled}}{integer} -#' \item{\code{datamart_allow_repeat_revision}}{integer} -#' \item{\code{datamart_allow_create_revision}}{integer} -#' \item{\code{datamart_enabled}}{integer} -#' \item{\code{break_the_glass_enabled}}{integer} -#' \item{\code{datamart_cron_enabled}}{integer} -#' \item{\code{datamart_cron_end_date}}{double} -#' \item{\code{fhir_include_email_address_project}}{integer} -#' \item{\code{file_upload_vault_enabled}}{integer} -#' \item{\code{file_upload_versioning_enabled}}{integer} -#' \item{\code{missing_data_codes}}{character} -#' \item{\code{record_locking_pdf_vault_enabled}}{integer} -#' \item{\code{record_locking_pdf_vault_custom_text}}{character} -#' \item{\code{fhir_cdp_auto_adjudication_enabled}}{integer} -#' \item{\code{fhir_cdp_auto_adjudication_cronjob_enabled}}{integer} -#' \item{\code{project_dashboard_min_data_points}}{integer} -#' \item{\code{bypass_branching_erase_field_prompt}}{integer} -#' \item{\code{protected_email_mode}}{integer} -#' \item{\code{protected_email_mode_custom_text}}{character} -#' \item{\code{protected_email_mode_trigger}}{character} -#' \item{\code{protected_email_mode_logo}}{integer} -#' \item{\code{hide_filled_forms}}{integer} -#' \item{\code{form_activation_survey_autocontinue}}{integer} -#' } -"one_deleted_project_record" - -#' @title projects_table_fragment -#' @description a portion of a REDCap project table used to make test datasets -#' @format A data frame with 4 rows and 149 variables: -#' \describe{ -#' \item{\code{project_id}}{double} -#' \item{\code{project_name}}{character} -#' \item{\code{app_title}}{character} -#' \item{\code{status}}{integer} -#' \item{\code{creation_time}}{double} -#' \item{\code{production_time}}{double} -#' \item{\code{inactive_time}}{double} -#' \item{\code{completed_time}}{double} -#' \item{\code{completed_by}}{character} -#' \item{\code{data_locked}}{integer} -#' \item{\code{log_event_table}}{character} -#' \item{\code{created_by}}{integer} -#' \item{\code{draft_mode}}{integer} -#' \item{\code{surveys_enabled}}{integer} -#' \item{\code{repeatforms}}{integer} -#' \item{\code{scheduling}}{integer} -#' \item{\code{purpose}}{integer} -#' \item{\code{purpose_other}}{character} -#' \item{\code{show_which_records}}{integer} -#' \item{\code{__SALT__}}{character} -#' \item{\code{count_project}}{integer} -#' \item{\code{investigators}}{character} -#' \item{\code{project_note}}{character} -#' \item{\code{online_offline}}{integer} -#' \item{\code{auth_meth}}{character} -#' \item{\code{double_data_entry}}{integer} -#' \item{\code{project_language}}{character} -#' \item{\code{project_encoding}}{character} -#' \item{\code{is_child_of}}{character} -#' \item{\code{date_shift_max}}{integer} -#' \item{\code{institution}}{character} -#' \item{\code{site_org_type}}{character} -#' \item{\code{grant_cite}}{character} -#' \item{\code{project_contact_name}}{character} -#' \item{\code{project_contact_email}}{character} -#' \item{\code{headerlogo}}{character} -#' \item{\code{auto_inc_set}}{integer} -#' \item{\code{custom_data_entry_note}}{character} -#' \item{\code{custom_index_page_note}}{character} -#' \item{\code{order_id_by}}{character} -#' \item{\code{custom_reports}}{character} -#' \item{\code{report_builder}}{character} -#' \item{\code{disable_data_entry}}{integer} -#' \item{\code{google_translate_default}}{character} -#' \item{\code{require_change_reason}}{integer} -#' \item{\code{dts_enabled}}{integer} -#' \item{\code{project_pi_firstname}}{character} -#' \item{\code{project_pi_mi}}{character} -#' \item{\code{project_pi_lastname}}{character} -#' \item{\code{project_pi_email}}{character} -#' \item{\code{project_pi_alias}}{character} -#' \item{\code{project_pi_username}}{character} -#' \item{\code{project_pi_pub_exclude}}{integer} -#' \item{\code{project_pub_matching_institution}}{character} -#' \item{\code{project_irb_number}}{character} -#' \item{\code{project_grant_number}}{character} -#' \item{\code{history_widget_enabled}}{integer} -#' \item{\code{secondary_pk}}{character} -#' \item{\code{secondary_pk_display_value}}{integer} -#' \item{\code{secondary_pk_display_label}}{integer} -#' \item{\code{custom_record_label}}{character} -#' \item{\code{display_project_logo_institution}}{integer} -#' \item{\code{imported_from_rs}}{integer} -#' \item{\code{display_today_now_button}}{integer} -#' \item{\code{auto_variable_naming}}{integer} -#' \item{\code{randomization}}{integer} -#' \item{\code{enable_participant_identifiers}}{integer} -#' \item{\code{survey_email_participant_field}}{character} -#' \item{\code{survey_phone_participant_field}}{character} -#' \item{\code{data_entry_trigger_url}}{character} -#' \item{\code{template_id}}{integer} -#' \item{\code{date_deleted}}{double} -#' \item{\code{data_resolution_enabled}}{integer} -#' \item{\code{field_comment_edit_delete}}{integer} -#' \item{\code{realtime_webservice_enabled}}{integer} -#' \item{\code{realtime_webservice_type}}{character} -#' \item{\code{realtime_webservice_offset_days}}{double} -#' \item{\code{realtime_webservice_offset_plusminus}}{character} -#' \item{\code{last_logged_event}}{double} -#' \item{\code{edoc_upload_max}}{integer} -#' \item{\code{file_attachment_upload_max}}{integer} -#' \item{\code{survey_queue_custom_text}}{character} -#' \item{\code{survey_queue_hide}}{integer} -#' \item{\code{survey_auth_enabled}}{integer} -#' \item{\code{survey_auth_field1}}{character} -#' \item{\code{survey_auth_event_id1}}{integer} -#' \item{\code{survey_auth_field2}}{character} -#' \item{\code{survey_auth_event_id2}}{integer} -#' \item{\code{survey_auth_field3}}{character} -#' \item{\code{survey_auth_event_id3}}{integer} -#' \item{\code{survey_auth_min_fields}}{character} -#' \item{\code{survey_auth_apply_all_surveys}}{integer} -#' \item{\code{survey_auth_custom_message}}{character} -#' \item{\code{survey_auth_fail_limit}}{integer} -#' \item{\code{survey_auth_fail_window}}{integer} -#' \item{\code{twilio_enabled}}{integer} -#' \item{\code{twilio_modules_enabled}}{character} -#' \item{\code{twilio_hide_in_project}}{integer} -#' \item{\code{twilio_account_sid}}{character} -#' \item{\code{twilio_auth_token}}{character} -#' \item{\code{twilio_from_number}}{double} -#' \item{\code{twilio_voice_language}}{character} -#' \item{\code{twilio_option_voice_initiate}}{integer} -#' \item{\code{twilio_option_sms_initiate}}{integer} -#' \item{\code{twilio_option_sms_invite_make_call}}{integer} -#' \item{\code{twilio_option_sms_invite_receive_call}}{integer} -#' \item{\code{twilio_option_sms_invite_web}}{integer} -#' \item{\code{twilio_default_delivery_preference}}{character} -#' \item{\code{twilio_request_inspector_checked}}{double} -#' \item{\code{twilio_request_inspector_enabled}}{integer} -#' \item{\code{twilio_append_response_instructions}}{integer} -#' \item{\code{twilio_multiple_sms_behavior}}{character} -#' \item{\code{twilio_delivery_preference_field_map}}{character} -#' \item{\code{two_factor_exempt_project}}{integer} -#' \item{\code{two_factor_force_project}}{integer} -#' \item{\code{disable_autocalcs}}{integer} -#' \item{\code{custom_public_survey_links}}{character} -#' \item{\code{pdf_custom_header_text}}{character} -#' \item{\code{pdf_show_logo_url}}{integer} -#' \item{\code{pdf_hide_secondary_field}}{integer} -#' \item{\code{pdf_hide_record_id}}{integer} -#' \item{\code{shared_library_enabled}}{integer} -#' \item{\code{allow_delete_record_from_log}}{integer} -#' \item{\code{delete_file_repository_export_files}}{integer} -#' \item{\code{custom_project_footer_text}}{character} -#' \item{\code{custom_project_footer_text_link}}{character} -#' \item{\code{google_recaptcha_enabled}}{integer} -#' \item{\code{datamart_allow_repeat_revision}}{integer} -#' \item{\code{datamart_allow_create_revision}}{integer} -#' \item{\code{datamart_enabled}}{integer} -#' \item{\code{break_the_glass_enabled}}{integer} -#' \item{\code{datamart_cron_enabled}}{integer} -#' \item{\code{datamart_cron_end_date}}{double} -#' \item{\code{fhir_include_email_address_project}}{integer} -#' \item{\code{file_upload_vault_enabled}}{integer} -#' \item{\code{file_upload_versioning_enabled}}{integer} -#' \item{\code{missing_data_codes}}{character} -#' \item{\code{record_locking_pdf_vault_enabled}}{integer} -#' \item{\code{record_locking_pdf_vault_custom_text}}{character} -#' \item{\code{fhir_cdp_auto_adjudication_enabled}}{integer} -#' \item{\code{fhir_cdp_auto_adjudication_cronjob_enabled}}{integer} -#' \item{\code{project_dashboard_min_data_points}}{integer} -#' \item{\code{bypass_branching_erase_field_prompt}}{integer} -#' \item{\code{protected_email_mode}}{integer} -#' \item{\code{protected_email_mode_custom_text}}{character} -#' \item{\code{protected_email_mode_trigger}}{character} -#' \item{\code{protected_email_mode_logo}}{integer} -#' \item{\code{hide_filled_forms}}{integer} -#' \item{\code{form_activation_survey_autocontinue}}{integer} -#' } -"projects_table_fragment" - #' @title csbt_column_names #' @description Column names useful for CTSI-IT billing #' @format A data frame with 12 rows and 2 variables: diff --git a/data/invoice_line_item_test_data.rda b/data/invoice_line_item_test_data.rda deleted file mode 100644 index 777b5b03..00000000 Binary files a/data/invoice_line_item_test_data.rda and /dev/null differ diff --git a/data/one_deleted_project_record.rda b/data/one_deleted_project_record.rda deleted file mode 100644 index 7410afe1..00000000 Binary files a/data/one_deleted_project_record.rda and /dev/null differ diff --git a/data/projects_table_fragment.rda b/data/projects_table_fragment.rda deleted file mode 100644 index 235a5d81..00000000 Binary files a/data/projects_table_fragment.rda and /dev/null differ diff --git a/man/invoice_line_item_test_data.Rd b/man/invoice_line_item_test_data.Rd deleted file mode 100644 index e29a22a6..00000000 --- a/man/invoice_line_item_test_data.Rd +++ /dev/null @@ -1,46 +0,0 @@ -% Generated by roxygen2: do not edit by hand -% Please edit documentation in R/data.R -\docType{data} -\name{invoice_line_item_test_data} -\alias{invoice_line_item_test_data} -\title{Sample data for invoice_line_item table} -\format{ -\describe{ - \item{\code{id}}{the primary key} - \item{\code{service_identifier}}{either a redcap project ID, or redcap username} - \item{\code{service_type_code}}{a numeric code that uniquely identifies the service_type} - \item{\code{service_instance_id}}{a numeric code that uniquely identifies the service_instance} - \item{\code{ctsi_study_id}}{CSBT's unique identifier for a service} - \item{\code{name_of_service}}{name of the service} - \item{\code{name_of_service_instance}}{name of the study} - \item{\code{other_system_invoicing_comments}}{additional invoice information, either project url, or sponsor and pi} - \item{\code{price_of_service}}{price of the service, in US dollars} - \item{\code{qty_provided}}{quantity provided} - \item{\code{amount_due}}{amount due, in US dollars} - \item{\code{fiscal_year}}{fiscal year of the invoice} - \item{\code{month_invoiced}}{month of the invoice} - \item{\code{pi_last_name}}{last name of the person invoiced} - \item{\code{pi_first_name}}{first name of the person invoiced} - \item{\code{pi_email}}{email of the person invoiced} - \item{\code{gatorlink}}{gatorlink of the person invoiced} - \item{\code{reason}}{reason for the invoice} - \item{\code{status}}{status of the invoice} - \item{\code{sender}}{character: message sender, typically an email address} - \item{\code{recipient}}{character: message recipient, typically an email address} - \item{\code{date_sent}}{POSIXct: date CTSI sent the message} - \item{\code{date_received}}{POSIXct: date CTSIT received the email} - \item{\code{script_name}}{character: the script that created this record} - \item{\code{created}}{created at timestamp} - \item{\code{updated}}{updated at timestamp} -} -} -\source{ -\url{https://github.com/ctsit/rcc.billing/issues/3} -} -\usage{ -invoice_line_item_test_data -} -\description{ -Sample data for invoice_line_item table -} -\keyword{datasets} diff --git a/man/one_deleted_project_record.Rd b/man/one_deleted_project_record.Rd deleted file mode 100644 index 9b926f01..00000000 --- a/man/one_deleted_project_record.Rd +++ /dev/null @@ -1,167 +0,0 @@ -% Generated by roxygen2: do not edit by hand -% Please edit documentation in R/data.R -\docType{data} -\name{one_deleted_project_record} -\alias{one_deleted_project_record} -\title{one_deleted_project_record} -\format{ -A data frame with 1 rows and 149 variables: -\describe{ - \item{\code{project_id}}{double} - \item{\code{project_name}}{character} - \item{\code{app_title}}{character} - \item{\code{status}}{integer} - \item{\code{creation_time}}{double} - \item{\code{production_time}}{double} - \item{\code{inactive_time}}{double} - \item{\code{completed_time}}{double} - \item{\code{completed_by}}{character} - \item{\code{data_locked}}{integer} - \item{\code{log_event_table}}{character} - \item{\code{created_by}}{integer} - \item{\code{draft_mode}}{integer} - \item{\code{surveys_enabled}}{integer} - \item{\code{repeatforms}}{integer} - \item{\code{scheduling}}{integer} - \item{\code{purpose}}{integer} - \item{\code{purpose_other}}{character} - \item{\code{show_which_records}}{integer} - \item{\code{__SALT__}}{character} - \item{\code{count_project}}{integer} - \item{\code{investigators}}{character} - \item{\code{project_note}}{character} - \item{\code{online_offline}}{integer} - \item{\code{auth_meth}}{character} - \item{\code{double_data_entry}}{integer} - \item{\code{project_language}}{character} - \item{\code{project_encoding}}{character} - \item{\code{is_child_of}}{character} - \item{\code{date_shift_max}}{integer} - \item{\code{institution}}{character} - \item{\code{site_org_type}}{character} - \item{\code{grant_cite}}{character} - \item{\code{project_contact_name}}{character} - \item{\code{project_contact_email}}{character} - \item{\code{headerlogo}}{character} - \item{\code{auto_inc_set}}{integer} - \item{\code{custom_data_entry_note}}{character} - \item{\code{custom_index_page_note}}{character} - \item{\code{order_id_by}}{character} - \item{\code{custom_reports}}{character} - \item{\code{report_builder}}{character} - \item{\code{disable_data_entry}}{integer} - \item{\code{google_translate_default}}{character} - \item{\code{require_change_reason}}{integer} - \item{\code{dts_enabled}}{integer} - \item{\code{project_pi_firstname}}{character} - \item{\code{project_pi_mi}}{character} - \item{\code{project_pi_lastname}}{character} - \item{\code{project_pi_email}}{character} - \item{\code{project_pi_alias}}{character} - \item{\code{project_pi_username}}{character} - \item{\code{project_pi_pub_exclude}}{integer} - \item{\code{project_pub_matching_institution}}{character} - \item{\code{project_irb_number}}{character} - \item{\code{project_grant_number}}{character} - \item{\code{history_widget_enabled}}{integer} - \item{\code{secondary_pk}}{character} - \item{\code{secondary_pk_display_value}}{integer} - \item{\code{secondary_pk_display_label}}{integer} - \item{\code{custom_record_label}}{character} - \item{\code{display_project_logo_institution}}{integer} - \item{\code{imported_from_rs}}{integer} - \item{\code{display_today_now_button}}{integer} - \item{\code{auto_variable_naming}}{integer} - \item{\code{randomization}}{integer} - \item{\code{enable_participant_identifiers}}{integer} - \item{\code{survey_email_participant_field}}{character} - \item{\code{survey_phone_participant_field}}{character} - \item{\code{data_entry_trigger_url}}{character} - \item{\code{template_id}}{integer} - \item{\code{date_deleted}}{double} - \item{\code{data_resolution_enabled}}{integer} - \item{\code{field_comment_edit_delete}}{integer} - \item{\code{realtime_webservice_enabled}}{integer} - \item{\code{realtime_webservice_type}}{character} - \item{\code{realtime_webservice_offset_days}}{double} - \item{\code{realtime_webservice_offset_plusminus}}{character} - \item{\code{last_logged_event}}{double} - \item{\code{edoc_upload_max}}{integer} - \item{\code{file_attachment_upload_max}}{integer} - \item{\code{survey_queue_custom_text}}{character} - \item{\code{survey_queue_hide}}{integer} - \item{\code{survey_auth_enabled}}{integer} - \item{\code{survey_auth_field1}}{character} - \item{\code{survey_auth_event_id1}}{integer} - \item{\code{survey_auth_field2}}{character} - \item{\code{survey_auth_event_id2}}{integer} - \item{\code{survey_auth_field3}}{character} - \item{\code{survey_auth_event_id3}}{integer} - \item{\code{survey_auth_min_fields}}{character} - \item{\code{survey_auth_apply_all_surveys}}{integer} - \item{\code{survey_auth_custom_message}}{character} - \item{\code{survey_auth_fail_limit}}{integer} - \item{\code{survey_auth_fail_window}}{integer} - \item{\code{twilio_enabled}}{integer} - \item{\code{twilio_modules_enabled}}{character} - \item{\code{twilio_hide_in_project}}{integer} - \item{\code{twilio_account_sid}}{character} - \item{\code{twilio_auth_token}}{character} - \item{\code{twilio_from_number}}{double} - \item{\code{twilio_voice_language}}{character} - \item{\code{twilio_option_voice_initiate}}{integer} - \item{\code{twilio_option_sms_initiate}}{integer} - \item{\code{twilio_option_sms_invite_make_call}}{integer} - \item{\code{twilio_option_sms_invite_receive_call}}{integer} - \item{\code{twilio_option_sms_invite_web}}{integer} - \item{\code{twilio_default_delivery_preference}}{character} - \item{\code{twilio_request_inspector_checked}}{double} - \item{\code{twilio_request_inspector_enabled}}{integer} - \item{\code{twilio_append_response_instructions}}{integer} - \item{\code{twilio_multiple_sms_behavior}}{character} - \item{\code{twilio_delivery_preference_field_map}}{character} - \item{\code{two_factor_exempt_project}}{integer} - \item{\code{two_factor_force_project}}{integer} - \item{\code{disable_autocalcs}}{integer} - \item{\code{custom_public_survey_links}}{character} - \item{\code{pdf_custom_header_text}}{character} - \item{\code{pdf_show_logo_url}}{integer} - \item{\code{pdf_hide_secondary_field}}{integer} - \item{\code{pdf_hide_record_id}}{integer} - \item{\code{shared_library_enabled}}{integer} - \item{\code{allow_delete_record_from_log}}{integer} - \item{\code{delete_file_repository_export_files}}{integer} - \item{\code{custom_project_footer_text}}{character} - \item{\code{custom_project_footer_text_link}}{character} - \item{\code{google_recaptcha_enabled}}{integer} - \item{\code{datamart_allow_repeat_revision}}{integer} - \item{\code{datamart_allow_create_revision}}{integer} - \item{\code{datamart_enabled}}{integer} - \item{\code{break_the_glass_enabled}}{integer} - \item{\code{datamart_cron_enabled}}{integer} - \item{\code{datamart_cron_end_date}}{double} - \item{\code{fhir_include_email_address_project}}{integer} - \item{\code{file_upload_vault_enabled}}{integer} - \item{\code{file_upload_versioning_enabled}}{integer} - \item{\code{missing_data_codes}}{character} - \item{\code{record_locking_pdf_vault_enabled}}{integer} - \item{\code{record_locking_pdf_vault_custom_text}}{character} - \item{\code{fhir_cdp_auto_adjudication_enabled}}{integer} - \item{\code{fhir_cdp_auto_adjudication_cronjob_enabled}}{integer} - \item{\code{project_dashboard_min_data_points}}{integer} - \item{\code{bypass_branching_erase_field_prompt}}{integer} - \item{\code{protected_email_mode}}{integer} - \item{\code{protected_email_mode_custom_text}}{character} - \item{\code{protected_email_mode_trigger}}{character} - \item{\code{protected_email_mode_logo}}{integer} - \item{\code{hide_filled_forms}}{integer} - \item{\code{form_activation_survey_autocontinue}}{integer} -} -} -\usage{ -one_deleted_project_record -} -\description{ -A single REDCap project record for a deleted project -} -\keyword{datasets} diff --git a/man/projects_table_fragment.Rd b/man/projects_table_fragment.Rd deleted file mode 100644 index 794f3ad2..00000000 --- a/man/projects_table_fragment.Rd +++ /dev/null @@ -1,167 +0,0 @@ -% Generated by roxygen2: do not edit by hand -% Please edit documentation in R/data.R -\docType{data} -\name{projects_table_fragment} -\alias{projects_table_fragment} -\title{projects_table_fragment} -\format{ -A data frame with 4 rows and 149 variables: -\describe{ - \item{\code{project_id}}{double} - \item{\code{project_name}}{character} - \item{\code{app_title}}{character} - \item{\code{status}}{integer} - \item{\code{creation_time}}{double} - \item{\code{production_time}}{double} - \item{\code{inactive_time}}{double} - \item{\code{completed_time}}{double} - \item{\code{completed_by}}{character} - \item{\code{data_locked}}{integer} - \item{\code{log_event_table}}{character} - \item{\code{created_by}}{integer} - \item{\code{draft_mode}}{integer} - \item{\code{surveys_enabled}}{integer} - \item{\code{repeatforms}}{integer} - \item{\code{scheduling}}{integer} - \item{\code{purpose}}{integer} - \item{\code{purpose_other}}{character} - \item{\code{show_which_records}}{integer} - \item{\code{__SALT__}}{character} - \item{\code{count_project}}{integer} - \item{\code{investigators}}{character} - \item{\code{project_note}}{character} - \item{\code{online_offline}}{integer} - \item{\code{auth_meth}}{character} - \item{\code{double_data_entry}}{integer} - \item{\code{project_language}}{character} - \item{\code{project_encoding}}{character} - \item{\code{is_child_of}}{character} - \item{\code{date_shift_max}}{integer} - \item{\code{institution}}{character} - \item{\code{site_org_type}}{character} - \item{\code{grant_cite}}{character} - \item{\code{project_contact_name}}{character} - \item{\code{project_contact_email}}{character} - \item{\code{headerlogo}}{character} - \item{\code{auto_inc_set}}{integer} - \item{\code{custom_data_entry_note}}{character} - \item{\code{custom_index_page_note}}{character} - \item{\code{order_id_by}}{character} - \item{\code{custom_reports}}{character} - \item{\code{report_builder}}{character} - \item{\code{disable_data_entry}}{integer} - \item{\code{google_translate_default}}{character} - \item{\code{require_change_reason}}{integer} - \item{\code{dts_enabled}}{integer} - \item{\code{project_pi_firstname}}{character} - \item{\code{project_pi_mi}}{character} - \item{\code{project_pi_lastname}}{character} - \item{\code{project_pi_email}}{character} - \item{\code{project_pi_alias}}{character} - \item{\code{project_pi_username}}{character} - \item{\code{project_pi_pub_exclude}}{integer} - \item{\code{project_pub_matching_institution}}{character} - \item{\code{project_irb_number}}{character} - \item{\code{project_grant_number}}{character} - \item{\code{history_widget_enabled}}{integer} - \item{\code{secondary_pk}}{character} - \item{\code{secondary_pk_display_value}}{integer} - \item{\code{secondary_pk_display_label}}{integer} - \item{\code{custom_record_label}}{character} - \item{\code{display_project_logo_institution}}{integer} - \item{\code{imported_from_rs}}{integer} - \item{\code{display_today_now_button}}{integer} - \item{\code{auto_variable_naming}}{integer} - \item{\code{randomization}}{integer} - \item{\code{enable_participant_identifiers}}{integer} - \item{\code{survey_email_participant_field}}{character} - \item{\code{survey_phone_participant_field}}{character} - \item{\code{data_entry_trigger_url}}{character} - \item{\code{template_id}}{integer} - \item{\code{date_deleted}}{double} - \item{\code{data_resolution_enabled}}{integer} - \item{\code{field_comment_edit_delete}}{integer} - \item{\code{realtime_webservice_enabled}}{integer} - \item{\code{realtime_webservice_type}}{character} - \item{\code{realtime_webservice_offset_days}}{double} - \item{\code{realtime_webservice_offset_plusminus}}{character} - \item{\code{last_logged_event}}{double} - \item{\code{edoc_upload_max}}{integer} - \item{\code{file_attachment_upload_max}}{integer} - \item{\code{survey_queue_custom_text}}{character} - \item{\code{survey_queue_hide}}{integer} - \item{\code{survey_auth_enabled}}{integer} - \item{\code{survey_auth_field1}}{character} - \item{\code{survey_auth_event_id1}}{integer} - \item{\code{survey_auth_field2}}{character} - \item{\code{survey_auth_event_id2}}{integer} - \item{\code{survey_auth_field3}}{character} - \item{\code{survey_auth_event_id3}}{integer} - \item{\code{survey_auth_min_fields}}{character} - \item{\code{survey_auth_apply_all_surveys}}{integer} - \item{\code{survey_auth_custom_message}}{character} - \item{\code{survey_auth_fail_limit}}{integer} - \item{\code{survey_auth_fail_window}}{integer} - \item{\code{twilio_enabled}}{integer} - \item{\code{twilio_modules_enabled}}{character} - \item{\code{twilio_hide_in_project}}{integer} - \item{\code{twilio_account_sid}}{character} - \item{\code{twilio_auth_token}}{character} - \item{\code{twilio_from_number}}{double} - \item{\code{twilio_voice_language}}{character} - \item{\code{twilio_option_voice_initiate}}{integer} - \item{\code{twilio_option_sms_initiate}}{integer} - \item{\code{twilio_option_sms_invite_make_call}}{integer} - \item{\code{twilio_option_sms_invite_receive_call}}{integer} - \item{\code{twilio_option_sms_invite_web}}{integer} - \item{\code{twilio_default_delivery_preference}}{character} - \item{\code{twilio_request_inspector_checked}}{double} - \item{\code{twilio_request_inspector_enabled}}{integer} - \item{\code{twilio_append_response_instructions}}{integer} - \item{\code{twilio_multiple_sms_behavior}}{character} - \item{\code{twilio_delivery_preference_field_map}}{character} - \item{\code{two_factor_exempt_project}}{integer} - \item{\code{two_factor_force_project}}{integer} - \item{\code{disable_autocalcs}}{integer} - \item{\code{custom_public_survey_links}}{character} - \item{\code{pdf_custom_header_text}}{character} - \item{\code{pdf_show_logo_url}}{integer} - \item{\code{pdf_hide_secondary_field}}{integer} - \item{\code{pdf_hide_record_id}}{integer} - \item{\code{shared_library_enabled}}{integer} - \item{\code{allow_delete_record_from_log}}{integer} - \item{\code{delete_file_repository_export_files}}{integer} - \item{\code{custom_project_footer_text}}{character} - \item{\code{custom_project_footer_text_link}}{character} - \item{\code{google_recaptcha_enabled}}{integer} - \item{\code{datamart_allow_repeat_revision}}{integer} - \item{\code{datamart_allow_create_revision}}{integer} - \item{\code{datamart_enabled}}{integer} - \item{\code{break_the_glass_enabled}}{integer} - \item{\code{datamart_cron_enabled}}{integer} - \item{\code{datamart_cron_end_date}}{double} - \item{\code{fhir_include_email_address_project}}{integer} - \item{\code{file_upload_vault_enabled}}{integer} - \item{\code{file_upload_versioning_enabled}}{integer} - \item{\code{missing_data_codes}}{character} - \item{\code{record_locking_pdf_vault_enabled}}{integer} - \item{\code{record_locking_pdf_vault_custom_text}}{character} - \item{\code{fhir_cdp_auto_adjudication_enabled}}{integer} - \item{\code{fhir_cdp_auto_adjudication_cronjob_enabled}}{integer} - \item{\code{project_dashboard_min_data_points}}{integer} - \item{\code{bypass_branching_erase_field_prompt}}{integer} - \item{\code{protected_email_mode}}{integer} - \item{\code{protected_email_mode_custom_text}}{character} - \item{\code{protected_email_mode_trigger}}{character} - \item{\code{protected_email_mode_logo}}{integer} - \item{\code{hide_filled_forms}}{integer} - \item{\code{form_activation_survey_autocontinue}}{integer} -} -} -\usage{ -projects_table_fragment -} -\description{ -a portion of a REDCap project table used to make test datasets -} -\keyword{datasets} diff --git a/tests/testthat/redcap_entity_project_ownership/make_test_data.R b/tests/testthat/redcap_entity_project_ownership/make_test_data.R index c953abd7..cd3deca3 100644 --- a/tests/testthat/redcap_entity_project_ownership/make_test_data.R +++ b/tests/testthat/redcap_entity_project_ownership/make_test_data.R @@ -4,8 +4,7 @@ library(rcc.billing) library(tidyverse) library(lubridate) -load(file = testthat::test_path("redcap_projects", - "redcap_projects_test_data.rda")) +redcap_projects_test_data <- readRDS(file = testthat::test_path("redcap_projects", "redcap_projects_test_data.rds")) redcap_entity_project_ownership_test_data <- redcap_projects_test_data %>% diff --git a/tests/testthat/redcap_projects/make_test_data.R b/tests/testthat/redcap_projects/make_test_data.R index b6b346ef..c46a3398 100644 --- a/tests/testthat/redcap_projects/make_test_data.R +++ b/tests/testthat/redcap_projects/make_test_data.R @@ -1,5 +1,3 @@ -## Create redcap_projects_test_data from invoice_line_items_test_data - library(redcapcustodian) library(rcc.billing) library(tidyverse) @@ -8,6 +6,13 @@ library(DBI) library(RMariaDB) library(dotenv) +invoice_line_item_test_data <- readRDS( + file = testthat::test_path( + "invoice_line_item", + "invoice_line_item.rds" + ) +) + project_table_cols <- invoice_line_item_test_data %>% filter(service_type_code == 1) %>% @@ -22,7 +27,11 @@ project_table_cols <- ) %>% mutate(project_id = as.numeric(project_id)) %>% mutate(project_name = gsub(" ", "_", tolower(app_title))) %>% - mutate(creation_time = ymd("2021-05-15") + ddays(c(-3.2, 5.5, -1.7, -7.4)) - years(c(0,3,2,1))) + mutate( + creation_time = ymd("2021-05-15") + + ddays(c(-3.2, 5.5, -1.7, -7.4)) - + years(c(0, 3, 2, 1)) + ) # # run this once against a test redcap to extract the part we need # conn <- connect_to_redcap_db() @@ -36,7 +45,10 @@ project_table_cols <- # collect() %>% # mutate(across(colnames(project_table_cols), ~ NA)) # -# usethis::use_data(projects_table_fragment, overwrite = T) +# saveRDS( +# projects_table_fragment, +# testthat::test_path("redcap_projects", "projects_table_fragment.rds") +# ) # # one_deleted_project_record <- projects %>% # filter(project_id >= 15) %>% @@ -49,13 +61,30 @@ project_table_cols <- # creation_time = min(project_table_cols$creation_time) - ddays(2), # date_deleted = creation_time + ddays(30) # ) -# usethis::use_data(one_deleted_project_record, overwrite = T) +# +# saveRDS( +# one_deleted_project_record, +# testthat::test_path("redcap_projects", "one_deleted_project_record.rds") +# ) + +projects_table_fragment <- readRDS( + file = testthat::test_path("redcap_projects", "projects_table_fragment.rds") +) + +one_deleted_project_record <- readRDS( + file = testthat::test_path("redcap_projects", "one_deleted_project_record.rds") +) redcap_projects_test_data <- - bind_cols(project_table_cols, - projects_table_fragment %>% select(-colnames(project_table_cols))) %>% + bind_cols( + project_table_cols, + projects_table_fragment %>% select(-colnames(project_table_cols)) + ) %>% bind_rows(one_deleted_project_record) %>% select(colnames(projects_table_fragment)) %>% mutate(twilio_from_number = as.integer(NA)) -usethis::use_data(redcap_projects_test_data, overwrite = T) +saveRDS( + redcap_projects_test_data, + file = testthat::test_path("redcap_projects", "redcap_projects_test_data.rds") +) diff --git a/tests/testthat/redcap_projects/one_deleted_project_record.rds b/tests/testthat/redcap_projects/one_deleted_project_record.rds new file mode 100644 index 00000000..eda3a379 Binary files /dev/null and b/tests/testthat/redcap_projects/one_deleted_project_record.rds differ diff --git a/tests/testthat/redcap_projects/projects_table_fragment.rds b/tests/testthat/redcap_projects/projects_table_fragment.rds new file mode 100644 index 00000000..0b75f53f Binary files /dev/null and b/tests/testthat/redcap_projects/projects_table_fragment.rds differ diff --git a/tests/testthat/redcap_projects/redcap_projects_test_data.rda b/tests/testthat/redcap_projects/redcap_projects_test_data.rda deleted file mode 100644 index bf9db3bd..00000000 Binary files a/tests/testthat/redcap_projects/redcap_projects_test_data.rda and /dev/null differ diff --git a/tests/testthat/redcap_projects/redcap_projects_test_data.rds b/tests/testthat/redcap_projects/redcap_projects_test_data.rds new file mode 100644 index 00000000..22f3b1fb Binary files /dev/null and b/tests/testthat/redcap_projects/redcap_projects_test_data.rds differ diff --git a/tests/testthat/test-redcap_projects.R b/tests/testthat/test-redcap_projects.R index a5dcc35e..227696da 100644 --- a/tests/testthat/test-redcap_projects.R +++ b/tests/testthat/test-redcap_projects.R @@ -143,7 +143,7 @@ test_that("update_billable_by_ownership", { load(file = testthat::test_path("redcap_entity_project_ownership", "test_data.rda")) duckdb::duckdb_register(conn, "redcap_entity_project_ownership", redcap_entity_project_ownership_test_data) - load(file = testthat::test_path("redcap_projects", "redcap_projects_test_data.rda")) + redcap_projects_test_data <- readRDS(file = testthat::test_path("redcap_projects", "redcap_projects_test_data.rds")) duckdb::duckdb_register(conn, "redcap_projects", redcap_projects_test_data) output <- update_billable_by_ownership(conn) @@ -176,7 +176,7 @@ test_that("update_billable_if_owned_by_ctsit", { statement = sql ) - load(file = testthat::test_path("redcap_projects", "redcap_projects_test_data.rda")) + redcap_projects_test_data <- readRDS(file = testthat::test_path("redcap_projects", "redcap_projects_test_data.rds")) duckdb::dbWriteTable(conn, "redcap_projects", redcap_projects_test_data) output <- update_billable_if_owned_by_ctsit(conn)