suppressPackageStartupMessages(library(tidyverse))
<- c("screen_select_site_data", "home_select_site_data",
deps "home_mbcdi_select_site_data" )
<- deps[!(deps %in% ls())]
unsourced_deps <- paste0("../R/", unsourced_deps, ".R")
source_fns ::walk(source_fns, source) purrr
Site-specific files
About
This page produces site-specific files.
Set-up
<- readr::read_csv(file.path(here::here(), "data/csv/_meta/play_site_vols.csv"),
play_vols_df show_col_types = FALSE)
Screening
Warning
This section is under construction.
Home visit
Non-MBCDI data
::walk(play_vols_df$site_id, home_select_site_data,
purrrin_dir = file.path(here::here(), "data/csv/home_visit/agg"),
out_dir = file.path(here::here(), "data/csv/home_visit/agg/by-site"),
vb = FALSE,
.progress = "Export site home visit CSVs")
MB-CDI data
::walk(play_vols_df$site_id, home_mbcdi_select_site_data,
purrrin_dir = file.path(here::here(), "data/csv/home_visit/agg"),
out_dir = file.path(here::here(), "data/csv/home_visit/agg/by-site"),
vb = FALSE,
.progress = "Export site home visit CSVs")
Post-visit
Warning
This section is under construction.