build.R

library(community)

entities_file <- "../social_data_commons/cache/entities.rds"
if (file.exists(entities_file)) {
  entities <- readRDS(entities_file)
} else {
  file <- tempfile(fileext = ".csv.xz")
  download.file(paste0(
    "https://raw.githubusercontent.com/uva-bi-sdad/sdc.geographies/main/",
    "docs/distribution/geographies_metadata.csv.xz"
  ), file)
  entities <- vroom::vroom(file)
  entities <- entities[!duplicated(entities$geoid), c("geoid", "region_name", "region_type")]
  saveRDS(entities, entities_file, compress = "xz")
}

datacommons_refresh(
  "../social_data_commons",
  reset_on_fail = TRUE, dataset_map = structure(entities$region_type, names = entities$geoid, verbose=TRUE)
)
datacommons_map_files("../social_data_commons", overwrite = TRUE)

# # capital region
# datacommons_view(
#   "../social_data_commons", "capital_region",
#   metadata = entities, entity_info = NULL
# )
# 
# # VDH
# datacommons_view(
#   "../social_data_commons", "community_example",
#   metadata = entities, entity_info = NULL
# )
# 
# # Fairfax women and girls
# datacommons_view(
#   "../social_data_commons", "fairfax_women_and_girls",
#   metadata = entities, entity_info = NULL
# )
# # VDH Parent site
# datacommons_view(
#   "../social_data_commons", "vdh_rural_parent",
#   metadata = entities, entity_info = NULL
# )

# 
# # monitor site
init_datacommons("../social_data_commons", serve = TRUE)