Data Analysis in R

Exporting Summary Outputs

Code Example 3

30-45 minutes Applied Step 8 of 9

Code

Code Example 3

8 / 9

Code

Code Example 3

processing_summary <- tibble(
  report_date = Sys.Date(),
  data_export_date = as.Date("2026-06-01"),
  n_participants = n_distinct(prepared_data$participant_id),
  n_sites = n_distinct(prepared_data$site),
  n_query_flags = nrow(query_listing)
)

write_csv(processing_summary, "outputs/processing_summary_2026-06-01.csv")