From a64078ab981bc55aa7d58a6f1c882d8c5fd55641 Mon Sep 17 00:00:00 2001
From: Philip Chase <pbc@ufl.edu>
Date: Mon, 29 Sep 2025 16:47:59 -0400
Subject: [PATCH] Move more test data to test scope

Reconstruct make_test_data.R.
Convert rda to rds as we move them to test scope.
Delete 3 more man pages.
---
 R/data.R                                      | 347 ------------------
 data/invoice_line_item_test_data.rda          | Bin 1912 -> 0 bytes
 data/one_deleted_project_record.rda           | Bin 2011 -> 0 bytes
 data/projects_table_fragment.rda              | Bin 2274 -> 0 bytes
 man/invoice_line_item_test_data.Rd            |  46 ---
 man/one_deleted_project_record.Rd             | 167 ---------
 man/projects_table_fragment.Rd                | 167 ---------
 .../make_test_data.R                          |   3 +-
 .../testthat/redcap_projects/make_test_data.R |  45 ++-
 .../one_deleted_project_record.rds            | Bin 0 -> 2044 bytes
 .../projects_table_fragment.rds               | Bin 0 -> 2321 bytes
 .../redcap_projects_test_data.rda             | Bin 2555 -> 0 bytes
 .../redcap_projects_test_data.rds             | Bin 0 -> 2582 bytes
 tests/testthat/test-redcap_projects.R         |   4 +-
 14 files changed, 40 insertions(+), 739 deletions(-)
 delete mode 100644 data/invoice_line_item_test_data.rda
 delete mode 100644 data/one_deleted_project_record.rda
 delete mode 100644 data/projects_table_fragment.rda
 delete mode 100644 man/invoice_line_item_test_data.Rd
 delete mode 100644 man/one_deleted_project_record.Rd
 delete mode 100644 man/projects_table_fragment.Rd
 create mode 100644 tests/testthat/redcap_projects/one_deleted_project_record.rds
 create mode 100644 tests/testthat/redcap_projects/projects_table_fragment.rds
 delete mode 100644 tests/testthat/redcap_projects/redcap_projects_test_data.rda
 create mode 100644 tests/testthat/redcap_projects/redcap_projects_test_data.rds

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 777b5b03e3c9f572c642580fbcc2f0ba29092339..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 1912
zcmV-;2Z#7VT4*^jL0KkKS^uj(*Z>NRfB*mg{q6PF|Nj5~-f_SG|M9|**%K9%0SyQV
zC{hprU>D#A{{cV%0000001+h6X)<WjO)@kFnK3e8)YBj|28^0wVH#w>jF<ro5C8xM
z5NVNw(WVe$7@A-R$kPzSzzLH81jsaC00_y1$$%yih&0H;XwwKW3{5ZuWNC<EU<Ap4
z0%RI600d;hWWW;$#2RE_G--qwh9;N-GBm_7Fal)20Wu9300J^$GGGaWVhu7dnl!=;
zLlaB^85&|3m;o|i0GS4i009{=nJ@&xFe*tCKt_py8e%lio~EhoF*1#lDW;yJ+BBc4
z8$|Snl4hgzMvbYbq8^|&6BP9HCWoe}^b&s`Q?)&@=oIgt!TX;M-qN>lXpzBEHsaO2
zZhs$7lgsLPonJTar1x8!H)}lWb4fgqKDAk~9O$$QM=sElrR86R_oJa}B#Me4qDn||
zS(c)DwcX>ilNB(M9@P&=dcCT-H3;I7Vk`0KGE{r{ztijcIx=}M#dY2nx3i;G1GlYc
z%=%8gk9G3y`=0aSe}-N^>Sui3JZ?q)Kcf}zMSptCA^E?4+B`PqxN30a<`O4VtM6N#
z`RyYVbdSe}Po;&gKAVz69&IE*Rj?qavzD3cfiDga7`^Fk!GKkY*bwG~Ip7c>5W|R?
zq=ng10F3pCX1vyEYby)2x3V<FW-D83Lur-$ik*%4$jdgY$&*Cd!%lgb6>O;0+s4?%
z%GmS$p614lPs!}*<>}Jensd)XV(gbR)V20M@?Eois}?DhxU$uYCNx~OEz8XKw~Q$n
zE}1i5D;1^1B(>KUZe5>r+HSX1mhBw9DG2HkNKqn1R0>H+1+&^n@f9FNr9wl#l^{np
zk`LPdn@HcG`BZw8n3W-4hSI6U6p1p@OQ@wusX)H3pE)c`QblKe%dV#PW}FjZS~v$0
z`eVT!_~^$Z%ydfPJ`>=PaYyLa<th2<>UF*2pn0)6RFt)z4zzz1lj)4T>=B6@=QTGG
zxOJr!DO9S7)!W<$sE>gfu39@LYD(QkbXgs}Z;$FG;_16|>X%-*DcS8@amc-b3=1q{
zsU8t>^ihuU<3-XfU%IS}eVdK*{fd$PMWkGkb|t2Na#A|^e+$~D-bSJ_va+s69!wF@
z3^2yEt~TNFG4G>op9Hv<l}&8ZG|ewe(+Ze4S5&txbxMcpMY0uM+}wE<hekV5<)b`1
z=;$NA-$hWWpE*(Wst)+1y=9ZRom8iHxhhp6lB!PjuWt)WtkW4!xt_&wS)oGTk@%)Z
zf4Gd8N|cf^(~s2n<Nm%Rd`}FId}uMJz&!qq(?GD$|JUioAGIid^nJM((mRqr?WpV`
zy$(t5U69Oo-{(9J0KPv_veZVhFN;RRX_pVQk6*AX=5Wa1M|aUP8DnSUjIu783NLme
zpQF=r(bEhaH><Mpd1>nQtJSyjEMNT<J&xV6S9OkCi|YCJ1@U7o&thc1BxS{9XUT|C
zc%z>&BxBK%N!b}Y($PmV@B=&LD?F)DM~TlF;u-W056j|zOw8SeJ(t=`b3Rzpwuea7
zjuX;7*(MLg8NS)DIlTQb3?rWB9112<W9p^Xbhw<@>TLIRdL2D{-*zfTpEXh2^`w`z
zq*WrNW~HTAq-oDsdOP^y81c4bW3})t&`w4s&knuPT`f27var6~T-v$7SQo}a9J)<h
z3+c&NKdwdD*VL1Pf%+;YB4WhU$8m}wy93z#)l|Hg;Mna<dhxefWN5BYv2_@^FIEYI
zVV{NAdBd(~MS)$7`MpC|mB)M~jm!q7!W5K}km2&C=Dl_0M-AGgk$YXs9OH2qrDt!(
zMy0HpA~l{1WJW9a?$^_o9{iEcdPw2GRFh`bOz)G|>RnQ?Of%@DRcuKxFzKQC-+{fw
zxJtVEs@+KH^SSN3k){&cCg&?oHs~pYY^C_*n<<Jy_p3_cY{@g?QcFq~MM&yM>Di|g
z&gI_&1^ACB!ftjtU3{#Xh|8!iF4j~f%Y~?@qWH5E7p2x-%@~HP);^0o=R-VhWSGZ5
z;~0sl7;$KxX7p-#ai0j^Hi2?{BOj@gJbm`7yxT(>k<CRx=}6>}w<9dEy~DSzkGu6e
zznL7(fPXA%cOBa2PuVX<@-k-QhSg3}UM$(MYsUTd^zG$H&)4&a+IXVK$($SPyZ#As
zTJ*%a7mCZT*49iSx;3uETa|Ivn^*mbf@ekyC!v3xo*SHI<mOkq>1jmA^<uTTEps<d
zb{HDD>?`jv_v4#sQADX!Fp_TFw`HS4BwXbj^4+~SPUMoGaz=9s%bQxShNQ%qn~yN$
zFpTN8jJZ)bk%VDbeEOZeXy1}Cibpd$LS0{CN!CYQiYR)`r290-sEx8`OY#l^-a8^V
zQ;!WRS!vyspCdlhj2H60Z7#C?4`0_Otf6X{yGZ^1o-}h0BhOhsf>EeR<S-@B@;J{N
yo<03dm(b{Ii9aiS?mm)FvM1{1$C1F`lKBSl*NYJseR(1O;_gVN3KAdnXWIbqxWuOb

diff --git a/data/one_deleted_project_record.rda b/data/one_deleted_project_record.rda
deleted file mode 100644
index 7410afe18ddb7495deecc7f311450a6447d3e178..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 2011
zcmV<12PF7HT4*^jL0KkKSxXAE4gd#3|Nj5~|Ns6Qe=u%m-(bK0|M0*73IGrQKmfoX
z0YE?j;0S*_jx1bps2z7;&<=)9Y*T_!0!>r&r|O@nl=5VrnN0GLqthwq)Y?x>nwkIr
z01YxS10XdpK$<j3qyW%qrqlp54FCXW05k@MY8nB+13=IX4FCWQF%24M0002c$N&Qg
zG^msYfB*mh00000000008XN#L4FJ&4007ev(WZa^01XU)05FjthJpZqo|98k^-m|M
zJw`*+Xf!kifNAPBriO>4Xxcz}kN6)Z?{=z54Ivdi^t)sq_(>c90`!tDKtv&8Hqh8Q
zE+Qrg(|tgomh!TaLcIXQhJu(g2uOnr%#sWt!nk@`=WSJ;YvIEqhFxtrNqLmVt7;zn
zpgRAW6CSo~qQS6!hyoe>UJp&FN`!4`WZjUEyqrBD_uZPeUP3^Om?U!~!7sT@?2-e}
z#8C&mX?(*OB%nzk4(5W4Ng>%I;b3M3{G~u1t~Lnb+T}Ccvgc)tFpjbyiE5f$LJ~RD
z-<A?laELh2-<@pIB`tCjGv4YmS@e|@r6>{{rQ~|E!bK36z-9W@jg96~`@}VDnwX4I
zN_R04lPeHXP^YX*noLhCqohb(K!8moB$Gp64InyLB=fSckdd@faZrH+-sxCFT%d|9
zh~_9Q5-61$QG&o)#gbSEPungH7FG#rtd*z?a|sH@E#D9z8%P(SiDL3;1>S#;mS3m0
zVd!ShYt15W>R$HEYM&8g+0Vq#-vfJe-@$Y1+HVKaKn<=_M`qgKm$m`?rUbxb`*6=p
z0kBXenRBawTT6zp2R5D6tK!R|_8E5chVEi;BXSLHA{|Sp^Hf!P@I8bS$C{jDjBF-_
zCR>h34KLFOFlYgNT9%-pSkYKjbnrGJP$ywn;)EkGz~l|n6C^4agv3df^IQR|6P`%O
z^tppts^z3jW|yl@tSrR&79(sF!|<XS&<cYQ1!$C#`YNHHZQk{mT$4{oB70+IB{4Ll
z=3J!7X{sflvPlL#a?De;!D_jX1VxTeiDRu)9wVI$PPjnpLM)|nHdkIIZ73PE#{fq(
z(~OKlSd8-N^4aa)uxNM2)q@%NoWs?kG0+BV*g=wb<L_cd%kkb^j20XNd`7J3)JRIT
zhd6VFeAyP4Hk&t5vPl~le$Rppx|W(W^4-MUe^GkWLZcELsk`B@NgvyunFP%1GSe$2
z!#78j4wqS7MLaHNS1ah=?|$HsbS3Zf&&McSeb6cfjRRs_NFZnMtA7`z`ShCOe(@J6
zi&zzfsy+M*hLZwhQA{$6aB;IBF4n_8-yL3);-|q*eSGrIIcwnqf*9zzG)rdNiqwZh
zNTVO}`NPS)$z(;6CAL_fnKhY6+e=brv8<^(l7(W)(=$UNNT4^cxkN@zMP&vL6iA9H
zXu%PfjUh;|TFR58P^?5a#mbORFtLcUV}4XJSp+5ONLK|*%}fb2LkJde6=UQ5Euk`>
zPg6R?Q7gcwvFFdai3Nsg-fv*-FrX2pYhfcYE9{fsuNVemZllRdn59cPrAihR#qhBf
z0Eu)lOgaKf{QQK)@wKbV65$JLUD?OV)XV%{6`M?JWabU7Ou5lOjf4~^Cv%Guh?f;c
zNUeMxH%-(kLFqDg$7Ig9OLv12n@+u>U6fgtXp$bS5-B%hh>3EdDj;<OF8xa0(^pYy
zrhIZeV)EghHomUyEu9s@3F5}VH@k7cOEq@w+H5hg0iEtGJejb{OgbI~`qC9}9~H#J
zqbK^iyc^zelspO1icff9%dT5AMiv70-L^S2VHJoZkYgNf3b%c(e0AL-@ddCiQfmP3
zsJ(ZwtksclJ%nGm{!;lQvI7FBVS0lhv8Eh(<WX}nIDHGOP*#FYF)E5mlteIw3}8Sa
zCB${{d8JC0h*yM3!m9%FQw#+hfS6!Rg;9y1DT$4!K}6BSc#R#SB2a<Ea1NiNwnZ9d
z^m7|y5TIr-<a5;_U%{wtp|xu%PcWlWV_-}@zhk0w_F~s9r(vxWF$XFO)^w7kz{b2P
z!L+Ws$2x5^Z=!?3{L^1&$=ToYs8H}6<`YQikXjBwH>=^V22>VQfkL5&AKvqZ->T<q
zj33s&p3Bh>W*n6Xx#&cl*(!|{5yIIR3}YA?Gu?`gfY?%`i6V@57GK2@>ZU1gi+6a8
z$@=~99jxHZm~K2r&n-mp1i6#en0cyTU2D!WCes>t)Db{}b8ys%lz85KT3>UIIbn8A
zEZL<um6oETFb2T5S6gA%LyR!q0J);g38>L4SYqGXbs*t{)I<bF5Hbg-YUwNhbJs2T
zH%`B+gO2Qqv}v~f=ob(rTmsLrUaN<sE26Yv20{&coc9fJC<qRc3!*xPrqa4Fk<TR1
zdwO=vnlSu*cu&A<agzq*q6m;mPaxF=yp=N*)Z`^8;9jrJfwU!Zz;7UVIEq%~BM2@O
z$OWo_eP=}Q3ofK1Sd&9?#%*h_wrkH1%S+`LXRKV<ImM-~V$rr}GTHkLXK~h#rE<j3
zSsj3m+D|UfSP4-|1(gpAOwdsU`oLA8B|{)Qge74EWmQCAuPq@cSlexdqgNb;IJwL^
tFb<#hEchI-`2Vv1!|M#N%*cNLCU#C73II-ok{JKR+>uTcBoe}{1AxvulrsPT

diff --git a/data/projects_table_fragment.rda b/data/projects_table_fragment.rda
deleted file mode 100644
index 235a5d817537be6bc3ed3c6419f428b288aebdc0..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 2274
zcmV<82p#uAT4*^jL0KkKSuEitb^r=R|M&m@|Ns7f|J841-)g`A|M9>8iU1G*KmY(h
z00BS+;0eC@eA(k}9?ss?BUiT&02&-Zi98a72?X^ChKz=j!c8_)&_hEI$+UwY007Vc
z01P!SK?a(dnnTpnKxohbqd?FA8USPf0imXYKn?%^00E!?000dJfB*mikOqJNlTuKV
zWf}pYpa1{>G&BGJ&;Zjw13(%8MIk94sXr<-84Q{RhCl{`L7+4PLqG<BqfG~?>H{aJ
zBuEehXhhRVvYx2)@~5QqhME}}8UO$q4FCWKsCg!hHA|;Fgbl+`NF`FG<NzrMm4c86
zX#@Z+NnV>M6NS2IO#!$XVZu@irV13m0%-_s3qB|<HVjRJbSi|9sR>w#Arc`JJ+Oz%
z_bQZ#Mt02gwcu!T^kmyA*PDNenQ3F6Mb6by8PGClq9h=ODKEH;mpcvhV4(Uc6zH4d
zX@!Omi{EET1iN~E+CHYRV_ZQ9$#g;lbAZw9*Nd0+g=!c<U6H3tDKNc3nyP{Ri(n8-
zAPV6DNQ7)>h{dd7E+pCCP_>-4tgzU%YTD#EZF90*e*BmU$G5cg#h<E)l_kg3vKmqP
zA_$kj(+LPj>cnr=gp@!OD>lcnNlgvbirM!eX`Y6QH1zDbN>YWUsa0MmD?B8T35*Pf
z=D$-7(8U8P{?QF&kn)N#St;ORBPvdeo0&N3bLn(%D@L3>%!CO*kR-t*0Vqcpfkc`>
zK(MM~LhMN9LJFiq$7O_pKS%^5%;#1T(^DCe7Hvf_6-d%jQ%5$XB3UTFTCAX?7MQS>
z0VD#gLsU~Kf>kQQl_d#=l!+KgaU>_45=^rY<e5#bNsNT`ZT#22iFBM9;q|-eDy4gu
zoMdU;aSKa)xzFQ$v?D`4W_()2bf8nA9tni{PtkxJ3^yn@p_R8Pj+Mpw251*M0mKWT
z;0ov(^5A_#S}tXf!!)2~1;Ez_+*=m`b8d%}Jv;=Y6$X}pqYc5%mmu`Kyacun@5|eW
zj=68WG`NC_DQLNkZEJY9UwmVCc98ArRNx5x;m+z3*3(D~&_vCg#vVhR&9*^BrYQJ^
zS)7p4nc*f_3Go7yo_a{l<x8h+)Ah27H!#B%7^iDpfkH1KU|{6ch9OdvNY;k905xKB
z$r&D#VAiU+Y>BI?N-JEZ8wD<VMK{h0@0K%^u?+|n&9*#?@0HY5Lpuc$xJnLjIHwc{
z*PSa2`Ld{kfzIPeisX@F;}$ZVt_yO{8X$<U)fpBVQl<%cp%tborSLjfMPfn1`tQWe
zr2|Is<9H*US+F8mnFNf6dcQ93HZO#^BL;_jaKViCT*J?*F4O^=Y(bKE;vbh1HoF<s
z7c04gj9#UtRcS<ot!Qp-&KmcuVJ`MNwxX!yLkUC8zQ!I3PdcLQ;9vZmBOfHG(X%~*
zbjBD-Dk2{0bbk#(NdG%y=vz{y0^VgqDi+~5VZGVwQ?1q05J%FImNTY;tzP_r-rtL1
z1sDnIvkh3i$zQICATY!QV*wD<lu(bt^5%UXc827=iXz}*(?Ja#(vxHR^CDc*OQo^0
zS&<xFDMAAN3@-B?(@<h<CK(saDzpni(^z1P83KE@!~$Tx0r$Uv9SH{c>A#blbFIZ(
z3uY;nE~Y7oBzJT`4G#UnyDW^W%riqGNT4^cnu2%-5t+xjsIYiAiqRw+eFkVipb~Q}
zmUbygQgn(Hh=&<DQqn1KU}7xVZ`VU5V1aqWD+Nfn)qysMVF_muR>Pb2VWBloi>o{W
zC@X|h)ck>;iirjTH*n&H!Qn8V5vFT--7`W~nLazQfMzEOJc3;1Dq!j=6fi+z=va#I
zM|AuDh84qB4wF{8ti0dssJyLk^&(y94^()y-LxKdreB}HS}+<K<vE194ex7Iz6yn)
zJ5NfKIzvG&#>mOam7y;b`&z9Q<>ZTYRH@Y@xOLQL1FvDO$}9{TB!{kv6q~@}3SCr1
zL=K>3<keyE+O-z6%s0Ml&k=cW&l_IP9dXi%!U^KW!8gY>87l3vGu&VokQrR#3F6Jh
zQen{VF4ZAc@$)W5B^f@S<Q>t_^NgX$n-o4FcZLrKqDI=ITtL0Ih-~D=gjOJuL6mdY
zDqV%2KKn?xL4aOdq}Aa-JvY6qmFTEF<XeOH%ZVhh5qVTFxj~57(immU-kDJ6WO4YH
zVo+GYCm9t*B}S-**Zy)~#sq;8K4IAdWsg^H7%HZ4D$OF2S6C9(6mEiA#Gs+Erf(pa
z6Nq626GrjkG<FP$LI)Ad9siBOlTVA}j`6}W3Z<aKsOYLfyPc?Qp|y?*Q_v{XnAj5!
zpPZ-bMfE|v@S38S1gMV3Nh#PE*HXYYmDc0kG$mVXO}>f@Fuz3B=NC5RxDYbTf`ict
zt_mz>1K_ZaCN07ibc$P4IeUM*&mE(P_v;KpV@9KE>`fPH?qV2r5R!MP;*J#&>r`e`
zR#3HG*>-2=j*O-fl8pVWpXIsq0Z?`;QO*lVfIj8c4#sjBzWxVke5RuSOPM`W4_?J@
zvB?*cX^lK82%teZxN1a8x=rQZ?YhqIVs_KV<ieD{3cPca<w^ufgm-D4EQhaevTyK&
z`51?7(>@chXH#y>^sSM$6D|o7OpA#U83X*%qMYmsv-h`n{0n!FdTIH}wyZk!JLr|b
zWzrVTramLcBtocEMtH=UQgj|plO-}x5EUS_M@wvgYHce;^6yB2!Vh3HI_3n?ce&uc
zeu25hO%2IJ5g?SC$TgN7)iV{T;S!YPd2+ithQTY9<9P$g#8S3WFM`56U`!YU(R=}D
z1r@g`P+5|$&PLVSkjymf$NJ*&Yma9fuc%fs)}~HTu2yWr{1l6=F_eak$xM)x%+N!J
z2hcL~L0%<QC>B*Z+GdC%3-<u4LP~}JG_MdgQBXz7#qtt`IEaWuK;gO2oZi>;>F6MQ
w2eP3V4220OcKKJ$4sxVuCr0w7r38f$FUGJWDv3UVD4+3nBvXY60?rawV5Q&=fdBvi

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 0000000000000000000000000000000000000000..eda3a3795fcc458491f54057d4d7800b1a734fdf
GIT binary patch
literal 2044
zcmV<Y2Lt#YiwFP!000001I=08ZXCB29!Zv6Tb3=!@mg_IN3GqP771$S2T89Y7!G2<
zse{N4(kp^H<nGYo3@0RKSISNN4nbZZPmnigZ~Fp4AEQqY=a55kIo#c`?ASmSSnZJK
z@Q~*_zZ`viA<MG0?97>!Y;7GLv-QW1K7HpSn7aalAK-flzAK;n_|MFJw#+y?lbwg(
z%Tp{R6B2QeV~%bwA@5uAz9DZ~vi+=C$p=6G`=>2CKC>DvUDw}=iYD^b9zVL9^5q;W
z<@i?J<hd^%9^U^t*KT;$4mCXe;&=V-|7OQ?Kep0Vo-N&I_1W)A_QC(YFaPl$kJhV_
z-I1}5Ny)0NsX7eXl9C+PVDmAe6I$tyBj(j);iBi29-b}teEu1HdJb{n&c}ED{^4!%
z{s$i<l2ZxGB(5Y9*EJq;+Oy@kd)1gTRh)j06@Cid-#UH~-CtJr^DNWH_gc>M^yT*I
z!)lRt_VJ~9pT@g?3r>;VK6C!}`!DSHmF9wFI4lc`vv(gKK6?0h<}1ZsmM!2~{o6aQ
zIfuo5(dQ#ClzIAOyeuv2@v8;rUz&~%AAkAPy?-4(M~!6Mn!t(95}dv0^Q_WzOy!5~
zXY=)8m8QkvMW177>-RoCxc}hwmd@vdws+&t9^Suuug7T5SLt+#=T(-+mpSVxo?pK;
zp7!hCr`HSV+_TSeJe__A4<0NLlbER6kyf~*z9ap?w=1<2PiU?YBW~uRpE2w{?r>cr
z%{2EDXO+gfQEs%EONuoU74U>Lmq89`@^pHWRTw5GG@iVai?ZfaQxeZ!oXrkT+}sAi
z8k?^Ei24Ix4*ec#J0+)?Jyg8*0+D#6Q7K3`qiW=Yo+v~sv(ii4khF%iBOyz#;suo#
zlr)@GWA93JBWt08UT%nlE~s>qJE{;<G%Z+OAW3r}iI?{WgboiLJVGcyC>l_}VL!ua
zLX~D?tc6r__7OVZCn`7@>^&Np-(a;y7pSDV@C`B%4XBAMhJcs!$ZUC;99QE8k7+tj
zt6Y$o?i);@ykMNbj{XQBlp<9ygD^f0j1`<;H^vLRQi=hikYl7z>R_y~#Gro8f=X}r
zt#eUn+;zvRDUFtxaWAT%m{18$Av|J$gFvjxk)j^jLEb1W$_R=WPfukPp~t8OKw|0!
z*pW(zn3-!`atpw5gw)<tm)ap3HUQPkDF{<|p&53^LX3f+0Sv_ro`jBY!~LPJO8QO1
zBn9ljP84>-D&V?7bn3?e!<wNHlS)SzZbr0{xydWhBwSx({;h}<!yV6K&ahe_s!>!%
zq6QJEZia{+=e!9qxgV%NDzOGXtHx;Fk9I=ll0#HA<uCvo)NY-sLmLzf3<cJnGBTz*
z0qmlJAgu@ndVS>PuE%o-Y*%x9f+m<Zw3mb9A@v|#3GQKXK!>#N`9lbT<1SEli<QQg
zAfJt-k>qjS_3O1D*f{YN+)eAS?hWhw6D*naIWWU4j5h%vB1-lxjyAf{LIPedHOpCT
zAY=sGl#Lh-+umq1XX^?bUf|*+;i?N!(WP92C<wJ=V`%VDBRxPHnnD#Y!7wXPq>T+*
z8{FJAD@0NyxP>jT?3;E&NEl^l3I!!hI{}X2EeIxViVvF7A^7Wr<usA8yND%9Vs9^^
zLrR9M1F?SMp}W<?R`W)IfkI{7Hc@C?Vho12HO^NqN<@yDnhQ*#e0zPwz;swcRxGTd
za~!+QB;Pc&fke{!rKZPT@OFn@un?D59KjZqE-*VW$pU@bXROX5TccSZ&M&*ux9rZ+
zW$*PZ^Ta_+1dQ9I9_T;DROog%JaUd)e-HvaVsg+yOQmK7v$M&_ga&6N^VnXSqfVj1
zh^a3ZddfHx3Ah6{3vEloX`13a)ffu0M$$m+I4aKD_Ckda+V&K46fKTul`OGYrjt6a
zI?6;ChfO+#Jx3I^4ZfC#RZKG+LhO2%N0ln&`12x;iRl+gd<5PKCUKm9S;`4HmYVi5
zV%}TI3=x=Y?JBNG4j{#(bV)~4LIV^El;bqT7`ii)t80K<NGQuR>PwgNbxnBFo1(61
zMNA5-MWv{%0kUnNRia1<CuGnXTUCa%z!N6CnQjF|<`igM9<Z!^R@76lG;R-d40$%~
zKzAbsXoo>Wm%i<L8B=8d@jQfz3lAvboaHW#AQ-A6&oQXU$Olo|vUSpsq1x`**27sj
z*fj*}?X#*I7n7Ypcf~fi{6H00LK@|4D9x&_752bgV7Im=__a0&-~irIj%t&v>FuDE
zHN6Bqwr!r7p3~n|^^t)7v7_PJ%Q-AgNlyqT!ZkEQI63zXQ};@!tf*C>y}H29gsG^g
zCtU5_DCOD;T-`mc4T1d#!NmrR&3`o#^3|{`mve=8kP?aMdqcpF3MNf!ZW=(>OkhGF
z22|o{Z(7h@Ih)uJO@QbyK&JwFna(jORV7o(Oxtz=E;Yeo`@T7YyQN_;eza(xTTA)o
zi)pJ~PHGz;pxKj#upBSwPyX7&X@GkohRKRQdB-7G6+?mHNT#Y;y=uX#a0|IPJgJS*
z!0W5FnWhpepA0|>gniUGYmjN04Qq?&uDrj9wm|2-g?z5B^Tu4r6J6Q1Z3KfwxoLQ#
zd-zQ=K=utn3(l;h3UeET-iapfJ<dxpeb>MHFfT_|pTeK^y-MdL(VAOuRu4HM{$jfZ
aBY(9t;J!PO<|>nAzx)clA_!We8~^};6Wy->

literal 0
HcmV?d00001

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 0000000000000000000000000000000000000000..0b75f53fb2fbd9cbca6c16dc96140bfa32244d5e
GIT binary patch
literal 2321
zcmV+s3GVhEiwFP!000001JxSsZXCC9CE0Q<S&k$}vf`+YQaeDMuhw=f2|-{~FdW2y
z0|%8|BrpVmyX4-|+FfqA+&d{h61_ox6nTL@Ngu;cQS<?ds6#Hv<L%u^clvPB15Ue~
z8Gg+73{T(A1VJzrT(~e1OkIT6;NpwtUw*O)uxl{*8NQ0(!U6p8zbAmtDR|KT8A3mG
zRl$Gyk9xoK&tXp>nS_@KSoyL#e3as{gqL~vP8#5)Z=P*G`8JYfIIV}WIaB_?b82Q<
z;M9xfkKpmkc&C{-9OD3!hbP=~>-9gfhgwo+xu*szEnPl@Pv6tX3X_cGN2s)3q$XYv
zltj2dDQ_X#rny`nhS(T}*c^`No?)`_9d<SgpD^QzG2zX12J=2lfZgXPvYT07zq@e{
z$1(Y{g^=h$MDIQb?}rxh*@Jr<>l+*E_a8V&7)G09b7M1ZoZtVBdd_kA8N82mG90FK
z)WK*ny7V}2rL0WG8=f2g6KU`F%=h`N)4eHs`?dKSY?CLSKW2IydB1Vf^ts6E4eT?n
z{7-71!{(0?|Gxa=%Ltbg<v61#W}=ikYaRq@7rAq1?JHiDEN^|j_C@%x##S*(YT(Wn
ze+nO()jopN1jUjPMBwkv=W8$33VN-bkJn!64eHSyGbM&8JeN3<jWhVbfyXceQs4-H
z2#XBe-ErW-2VC)w;2$m+-wlov`?%{gKfaolEL$|gEJc_QL3LH>7eVh@qKwLf6I2Kq
zQ&CR|&e?nqg40yXXI3kY>k6aDe)`di?dQ+F9%B>)n)kn~){6~$HujnP=#yjKj7+y)
z|NTzzuOQfZoxlI@Ks|rFxPPFY=Td(U3zw%2qbKu+^AGR8iTS}P)4_oKkAx4Ex3Qh=
z7k~ZR<L|b|8=hX5BhuA=VfYD#JsW;uP5m;<C2di${#oERoW|{Fe$3n11^m+_h>MTE
z-g@$M)WQEpaQ69|e)QF|CyySFF*?6M^oET3%nOXuu5(`ejmyV5!GArUI0!}#%4gLp
zG(V@Ee<b__{GIfCHJuUj*3+lQzaD?a5&fq3@>X>f_S*Mn1Dq)Ye?_4{XT(6RScoFG
z`3M&Ul1#eGr|D8+S(Roqr#mdhbD(i^-hy>V6*a+gEQfx8wW$xh8u6@1scO<Z=#?%s
z+&8dUXyPzRd9+LIf!}gBoyfl*o3U-5n>#}Uj-eId#GSFMM4RrHh~{dhU2#^>0_MhC
zWR}I5GD;|^QfS_+dli)^c<J~uL&Rl5g#j*>3Gbjz!lDET8gW7FdcQ+xd+X_Qgq#R@
z1q>M3cV*S4rDQEExhVVe!=;lS&*5aScO0vy(^@4H-FX?n0^t>~iL?wsUcyRd-maPA
zyj9^AZNh0Danj{|mX#<<SV~|=dj!>8qcUMi!g$XS=5T&lDJ!r{l?({EXd$^@IAyg2
z2KFQ7SbE!T?RVV<x75Vd{iIncp_otsM!~JbKn@(SJVGV4qFs)vQu53bg)dKwWjUdH
zr~rZZ*jdmcG_lMxt*d4N7!DWGs_JSzL}3M@>KX-MB_61Tl@{kMKu8cqnJRe_8sjRp
zhh7r&`-%w)vIjj;*bSFXuCqio?byk%VD%-2C&M`pmoWpp<^k13ghxN`p?q=saGWw+
z4p^!xsqmIs_E1F?BDxo)mGj9phXquICD>WsLj88M=pvU0QC?-C6R=~uHmV-na>77S
zpzRJLEh-xVyHbLa<^%)2*fp>lJ`92GiWKjoHcl&gBt?otYK3&onTLu2J*YKH?_3ZJ
zcL2NdEK{}w@hlc<B`fC@J702wl@WKq+@y5#-qyz7#)4^^12uHrcn;)4c*cIf-bOcT
zk$}|;$s$%L5i$a1%3?;{wm0j@X)b?!TA)fvgQ`e)PKQ!0drl|?YeD0KDq#gQD=B0F
z<qX{vMQY#Bxxv7$>qP`Dd8)<M(Cj;ULkJjIrV<4uOqvA@!Mos0sY*VmLqo9FHj8Lu
zjg>(pUJ!e45FSD@L>=(;eJi@#N01e1Rf2+CW?j(NfnX9XP`u7@Hgi$JBUBYB$Ha@b
zH(~~=!xExmq8aU@STQR3zM>TblG-jM-LnfX^xzZb{PLPX=%mssm_;9@1%1~>te#0a
zM>B`)pLXx4Y4?UsyMNR)i(K}RAme(f74+|YEL1xwyrwBK^?`GAkI0A)N~*G(FnczM
zm20FdV^+4;`>-9zFuY^ah3v4D@rH1h4HU|jDy7X3Z?Q^I5H%VF#G=9Cs4g!`=Ryk>
zqmCl^uDd_5Q*@N+37ty@)8@)x8<oPULGnU7UrobuCK+}vcB7Z3%*rOk9|lphRlShm
zU9eVAiJ|;pC?&*Ls>(}`cy%Z-cwl2|lW|pWfK^mT*H_k10J#KZC{;3s>P*Gz0z}RQ
zq-E;WrNilZRd~y)q9|xiR0u10UQ(R{L|s6a4Ms9JA%oIbvl7w-w;8u;y6qV0W1u#9
zkY!<`qU?aCaeb&gh_lTKbj2fpau}BA#V^=eMr9e0c;sBgxCbQhltspmz!~ygOR-##
z*g8>Nvh{=^h1J!w&WGJ}u%Zy!+PhiTPbP~FZ<4Ju`Q<Xf0>Ws@LZN2$YGD=31$L`*
zf}N|K01jX^Ww1KPs@e`pSyfBWJzeH0a3B9BtH&Jb#~u#f8&09+)TjyJM7V%r2sh4s
zQ{}x3GApVXs9P6!v{~sT^#)bl8#Srs9aZlh*FzxRMbOxwmipJB271X&i$q`IU2Y=l
z-{Gv+#R(ItG*<;+?=MLWOM6EP-K4X&cF~3)dI+FW0lrk_*hp0wE7dP>b@2^Njnmkg
zEzY2~R0PV72JLfuC|!Rtt=Wr6q5T6mdsPt@;Q{r@heuE<!M);PW5)Z|a0o7wkYhNK
z%4(Xgg0tLpA-BT)LMaWbKCg>uD%9_#bufTc!0o-tS;CsC*wDK0dgZl2xB)z`4x}@6
zomJ*Q8n0zr&>jpLO;y3`_2IYF0O=cqS~%U5%2hWAwG(aJdt4U0^Qpc2P!}bW2k__c
r@bJHli?b;+VOoYMBDS%ef{|@4m2f|eg=%Gj;Ftda*SFBS7AOD!8J2EE

literal 0
HcmV?d00001

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 bf9db3bd17d361a028028d5060d1e33efab433bf..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 2555
zcmV<X2?X{+T4*^jL0KkKS#;}B_5cgD|NsC0|NsAg|MhQo-+I6Q|M9>8iU1G_Vj#dE
zLBIe3KndUqpB_QQgN;`M4Yy1{00Grv7RLmlCXi^<)cq;qn^V;BOv(e%srpIk8Z^^t
z0qSY$0D6D`0LTN>(V?INKuri5NvdSiL)3bisp3beplH)+0B8VcGy_c;85$aB#Pu3z
z06~)gCIA9p2-66_0003pX^Eh~2*3aU00}iIA*g5#000000004_Kmnit0000D8&L*K
z0GI#?fFn#J00004$)+ZQ03!eZ001ONAP@v-Mwv1s_KJF&AVKOh8Z;iJL6ZriMuvt!
zG}@V{(dq+Fi2sQT-q+vsy$|(3T*2_*uss>dNekl;0)_(8l1cyr5Hq5JoCJX0m@VWq
zG;mHzLR#TOzyfIqY(Xv%m?4U2P?99U41_}22v9-`ARYvU3P3$9J89@!!V%tMZFw40
zTyk{mw`J9o+$wO=!v2e0DyA2rJzoq8Ohx;Iv$^_sK-wEa{ZJ@-9uHK=9k+rcnnOT_
zfg_Kf{r#W)=@lvnUEZg>jcsS9B0#hU90*5ACLe0N4EE+FKsO$?Gx&xwNqlli2nD>>
zW(g#9+CUiwZcur_@PYd$#XzB%&f5uu;qimy2X62c_ugEAU7&M>AG+%W_UP-w_PX1u
zy7g|$cL?cEYpBd9YtmNUvI*5L%_DWEb<zx0(>jNIQk%?SY0LR}fw140%N1VxmnX~c
z!pwA}VvMz~G8yC+il*oT@ZYJY8Fr9|U0$^Wud1g6=|-z2Zf1t_qbBA~Ib8Z~jpbx#
z*ZBFeLI6IXgaE(=0>%?WB!DOq#zBJyNWwzZ^#>g(rVt=CLdgOjRD?e%2>?CFWzZ(k
zK@~{bX;PXnDpL}~tM;s_P*Mv_SOw?|1N6uitu!pA2~;YPX(c8$%CJmhQB*<&+a!?k
z!4W6<%G7C498|n{7EGxsBa{>Ur*F+C@T27P81fL!4GWq?85KMiT5T>hT5S0_x;I=u
zY38e=(la$9m7N5o=ek2;k(%Ocx7z;fsr3}1Fo-g%1zR-O+`-GjLn#dXO&zIyNh&I+
z_yF)D*GHz&U1zBM1W6tgcadB<DvJ+=9t3Fsmx2`q2ZVAM5W^GLke-KV16m*=1BoXO
z(F$nU<!At!E=9)DKy60JZIUiWNDdTyuMYqRsV15i|8ucJ&0`s9zL%46x)f1MW!iV6
zW>1R?&KPwtKsT!d#{ip@6?`!qjlyx_gExOY&@@7iQ`5qsiv$*xL$)bJMZ(_bY)><a
z0hHSeRA6_!+AQ3A(ahKi++;2zh@C@(phBprsg>v=qGs)6Y`{iyDH^)Tad7xE6JIo9
zs@a~oIJ-d!Q1m0_$R(QI%C~`#KvOd_2Y{s(Zc-p)lyf@@K@pMTH46F@JA>LXlen1#
z%E-A3=(BY4k5Q8lEDh0@ElGnj(^sMAYgNRxM4QSB^lGv+V%{>b8mp%TlS&3HCKm!X
z=aU1yDdsW>84Tt=joz*=XBJ!N#i8LFRxD?<<{m2%j(`WX?b<<^JaHG~#Eq8YJ@Uj{
zuG|{8Tu%i}Ijw0#l2=;|&AG#0=EEs)=GV53l1S9U_4}}C&XB^WxF+*8PKmInQs-HQ
z!3t0qi6KNmXFDHH7#fBspsyJLAmF3+Cl|O*=6Y2O4F@x{b`OAX)e<JcW;OO_M*3du
zfiL6l#-P3m3%}Nvdb5(lm(~K%G>it?a1jg&&52--w%YstPk#E;yUGZ+tXg1G4$P$3
z{J&m=r=m%5wl+&K5xnV25Eq+RX#R25_zo(0lsbCzO8kY9Jsa>iA&#rYXqKH;71duL
zR$NoT(U#{OF}MS|4_I4-GPe3)Vh<oD^xI}&Hcg#1Hdvg{@8TjV8Lbo~oKb<q0J9uT
z%&wz}1fZg=2Y(FGk;p4Bi|~N%uFj4mh=!M%yeN5rQE)5_jQ(mFD*^@L5UdK3X`O*K
zh+zq35mv>$=XV1P<rkCS?`o0M5m8<v>_$FMvW-295)6iH+%3!<^9lj7TC=UQ`7|?=
zwq*Be#sQd@QQ{K6h_35QU81n5h>MHiUMs;8?Q#AYD@Lpip`os81^z#=QFvO}<V3h2
zK3MV$VRp4gGgC$Ry6ZauiLJAkOMz>x3t*xcbRCJ>P~t{HT<wwfV|1rwv?bV|WvbC>
zUC6VZrA|pDvzDVa8aZ|ibJbvA(Ih<?(kVBAuoSpxiijOR%ekO0`HfjcqL~J#rz6HL
zEg9QuUTgB2sDgK~u_pEFGE&7^t5PaupurcA8C>HD;>`wIiNHg+w?aa#!`il(6lD0l
zq;?}q$}xv^#-NIpF-)Xv3^?H8<s)8%VUQO#@kX~Mi{h~ak_>1|e!#G{`(AxkNVGwM
zE-g}O;PL7sq3dfh&4MilsEf6~U@jz*$VKH)!qo;tV@P4Y!6JdUWNq%*d3jMdB;x|8
zr%H8U=EaDU4{^zZ8VLd-x`%TEuja)nWf2UtB_|AQN<QKls&gA1L6eZGC~RqzAearX
znMBdStZ|6Z%rYei97f>j`FqkR)8BU^gx468OsE-#9aD<Lg<1y$DK^mB!u2WU3NVu!
zK``>Nl>ErPs5G4f9aBOoU=CA9UD8UHgBs>o27<aRJ$|RMX(?^nNw?zZ)MCpWDXcqO
z{l1D6ISwM}q;%vL!O9b&x&8C(o-8Q(P1~^y>-w?0Hspt%&lo!Ox=fBh=5KIBPRT;W
z_wd$8U{7<70wpL;Q32ND>-O%SK`Ps5v1Cur<9)1SZb49O21~Mq8wm*OS!@i2D2hcd
zURXQuW0N0{jF=_Bo}|Oku&}cWO~{!xnA66fiUbpzgCz*7U57JB$F|C~#Vfe=eXY8?
z(z5OE!)@|slr-c5EP`z1nT$*!=-BcGonRX=aSe&E+BgFV4Llq%ln~KY69GbzgqTpI
zVFCP#<jk-EN#J%Z!qqE!Ig&?~-^lCB$M1p4gEQ`rt<~ACWff7v8|o%OWKPQ`S`)0v
zOq2u#NGyorZIBI3rDR<#(jagn=c6|yz=@*YW2JQZW``KGHzg26f>Lh~&n}7>C0X%_
zN^-QZWtBrvO4W7_9w6j6idMxU<&24fe~c;^1!w}ZX8`U3^X}p+Q2}UM|2uui;qAVt
z@VF2C+FUH$u}H5(Et?{;w_{Y$Duq_pHG*O947STEp&iT4&Rh&;bCeO9v!G_@1$dQI
zpjlMvw9Nt{3$*~NLP~|;c1TL`17%f2T(kwpxs4FCxvL@~ArS+H_pyv`z_Q0?YSYj5
z&=g?NfeEN&fl!>St=<|JM(~-DgdaW~VK+Vn%XS-V8F3+hazbHV5J*T&gqx5kB#@SI
R0!UBzyOJrwgoCGAkFaiyk`4d>

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 0000000000000000000000000000000000000000..22f3b1fb8da165a9014b7b1d4f2d4b76d7ba5f69
GIT binary patch
literal 2582
zcmV+x3hDJ9iwFP!000001Kk=;a}>vQB!LJBfh3HO3Bl_?QX!5B5|)H17lld@Wl~@$
zOQgV*s;hUpXSdPJ^th*IrR9+5ALQWjAMiDms^pMEPT`uHPqu$WD)&@bdEL`J+dDfe
zgjggeTeX_)_g=r(@2lVI9z8zcdESV3<j9aWauj}gM<1=-dH)8$&cNVH_?}Y0+kgF5
zA-&sw|15ug^=bb6lV`@Cc;+*q=)EJ}arJED*iX%10{fEj7)jhn5up(`@bRdPe9l9Z
z%8axP@N}DJq5`~$g<xEuko!19vt@ZtmOfctweps<yxJPbtNq52cfVa*2FA5jm+=#j
zR{=KiYFb`R$s5=5DnBFIR!iUg{BJMd$I>@19)GQ#-!9y_rk{Tv-PZ7b{AEJZ9~p)}
zLw4=*IghDP$O1<mtu2@7{1B(9p&K^9V-Fv!-hJ##GaS`J3BSI#tNO#gmBeFTz3iDw
z8`|l+kl~&G3)xHGeG%PK-hk)L7uFktl5L{W^N#Ppr{`%riAlub?!m6{)fMZLf)XDm
zkO>V$TQrsn{Sb@&5I0^K@u9Q8;fn8Wi?_HTGalLlZm0rR#k0S$`njO@xmUxVSXh`{
zoWnstu2~52=Y2XmU%y_rkPqhP78e#57p~72kb2#}L2fMG2rOjo!?|k<v*d&M`I469
z@2hIEU(Nf=wp$dghjd?qy_@&gO56xp+I+3yf!S;*?ESuR+5hYGhZ*ZXH2Q<u!S<Sd
zM}N!Pev!OuShQ`0I`U93+slovWHIyUYum}B?Prw9kP6FuRq`OPqK+;%aY{?5YCfl*
z=X`EwL3ovt%z(#an3h0O3FvawSDZ_j(=^p03h)7k!Z!RVe-A+RzSimuCWUw7wb#;g
z=NC_Xa3+dzL{Y#*D%Wcc1X^afex>#?&r%jQZq`1k-^#IBfSNgQ{i9#kZy9dy0XIRh
zqy!Q8yMD9wRB_O})_+xdss-euD`rXnQ+O=lj8j^J3#?p*A&>(507O_sXm-5-S1)kJ
zU4px~3bR&y_S&cQbH{#pR()JIp0#Sz2(u7jLIh1a>7En)*b+rlHaS6wpaB*66z`By
zVcV-p+r1rsmcIGt7Y{Z4K#w5%O{=~7YIOP0>e_?*`ySb=g$p_Bmpx0;hu?dD&%cU;
z`5&)%FVvAQe)nIVdj9@sdpkb@zQLp5Zrl1GxBS=3zr!h0KWJXw0LxpSb-fhlRe$m|
znBZG|^y%+bo~*vsaIhgVNE5lL4%2wgzuru-8c2)1a)0UWy?qT1^+IhRjoRq)#}Do<
zuk3qtaQot+C&WuEy<dF>$@8G>uwPvd2zU5dx$V7j4S5qsxT?<}dA$_(8g>}O+H-p2
z&!v0!Ug_uFRCvYo?S6Np&WQHi(U<lfIuZOCh2s<>26ECu6uE&N$4P>ux?ZtCm`W@&
zdrLE}&&&Gt9xLXY20kS7%iwVqt5<<7>H<&sJW4{Uj@%CPWCvQe@8rhdNRHJDzzu2_
ze7bl+f!w?26ZQ~a%soK_4&dO(NwLN>6D`_K5slSM%W+K51m*@@L{`NUso$g|3*jhk
z(=y3K!i&qPaWh0*HjB%wskF&A(PoqRO(dw#1+n~ogwX2Jy)}di6Y>lcFt+d5szp=D
z8d!3X_V|a(!hSr4m4WOaP|w0^nQZEFvVEgNcm`@BZ9}k^u$GyyJVP8eGTfkLIE{Ty
zI=YXs6!}dS5|C(@pzcag+GNVYc&i|cVf`{wQDBuy84z;OK(d__&T0q@>ieuv=`AbT
zy+g4V1!Y`*`Zuha6cZ{SDC|4mlVAsqSnQ*eTGLMZSt@ztn8LNE#j=>tEtG&kT<jS5
zkqXF|PH3Gn6CiN7kk(bF@*%2cV5&|~5SHRfH_S9RZvaAqG15@klh6QXp<VP@K|jx!
zpkRCO69s8FE$li*WI2ut8zwBjl5%V~?%*P3fM*<_x>j=NCmfV(ZWoS2hSLgGSxSY&
zYT7|1Ssl?WKg^1ptQA;5MOZ?d#SPROM^nYlCF&^7qIzNALhU@Lx^UA?295%6Z!*%L
zvShH6DI{r3FyNC713T}+5cn<$aT~R8n9*G+LR_cTNN0-hP<ucZs%Ghn6okO7P<Mhw
zDwbeB3xwii?L1@WOHQx~;!OxQDT{e;>ELf+!F0@l8#-w`4)!5DV$ZQ7=wfaXh<YKJ
z&k|)qMj%XCz-S@%V!m^lt2&n!s6tYrN}4>TeW|9MB$R?R8jxI>um&2F6smwqhE9nh
zd2Z<1U|{Do6G2lRYO|F*`?eMc8%7kVLO}_WhJn3Tgk%a;@j;uk4)NMzJ}vQ>sUmSU
zv3IKQ>U9Fd8TiJU?(!~VNtmVJprW!)>dRdSi3T`c*En0bDB(WJl8|HK?6>Cw2Cl;r
zcEzSvw1;BGxa9MUX0VauaVhDRWjxu1Z?YmU&lrR*D&2;ea#7mQvv$YonxtzqE0Dd@
z=60Jl*LT|W-KJUOw2K5A=Tohrf8t`H+X>-k7$Vaj6p8K-8Ph>am39hdmykfEM#v&&
zZF{Z<y9pJBZ`yJpH(AJd$+*)73T;ak(()E>vC2`fYm^#@DTBp+-d?0d3Qby!T8iWw
z#qEimqIa3Dt@EtGw73e`Qm1giAbFybFQ;KKlMELrcD|b?jnXp3Ppc?es$Yok21F~k
z#8CdMFD2};RJE55@rAy`kbx!9rsAs20l26wUB6&}2B;`dhEf${=+4w$oq)-?fU-=T
zzO+AGw+k;>S0o9IiQ2*v9;Z~-0FgJ)X-Sa?R>+_=)~eKL6So+*Zn|73(xX5g@?guv
z?uv2~JdN{3ZNWZU?m%Z80%(VUMK^xZ_A;u<fW?dd_d9RW1B!Uae3M6z4Dp7gm`+Gw
zlPGW5y0#&O)!nnMhn;dTqYygUJ5|>$CQ}986x$-?r_&}Du#JYSF4U}UFI<3d0cm+n
zuyb`1zyhqN3|4Qls<(qyR`n8eOSgFn+@rs#>H&xTu}i~u`cr5-m3l&05l)~P!liXz
zRCO<c%8GIY@}mnpS}b*ndWkAO8<nXh3aV}y=juSdf#6_+8tVTKOX#!3G+*=--sv(j
zf2(S<E@(2LT65I^cE9&4McUii=%$>tbc&V?(M15A3h1Re$5N?^SgPKq=FK-8Y6_3l
zY;y)@OGTjKs7lV|zI46CG*{0jiOvtu>{&*bk1P6<U+zMw4EK!JOEccJfkSZGtaA)Y
zQdLdsm2egpr;tnacA}gHQ6J~cG!^RYcfJ__7f5@jbC$qUH5=L&&RMxug{#o{LM5H)
z>#Q>?X`Cb5q|RXQXs8-q=Nx`X4UoP;$c@t}sa%}~p?9LCdynISZ(g-`AL_DXcpLug
s?Ckufbm2B)CXC8@h=@Jdj=;zsEtPSv20|TWJn#Ge0;*M!#6K+n0KK&nf&c&j

literal 0
HcmV?d00001

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)