registrations_pull.R

library(tidyverse)

registrations_orig <- list("token"=Sys.getenv("gecko_teamreg_token"),
                           content='report',
                           action='export',
                           format='csv',
                           type='flat',
                           csvDelimiter='',
                           report_id= 505,
                           rawOrLabel='label',
                           rawOrLabelHeaders='raw',
                           exportCheckboxLabel='false',
                           exportSurveyFields='false',
                           exportDataAccessGroups='false',
                           returnFormat='json') %>% 
  httr::POST(Sys.getenv("redcap_globalsurg_uri"), body = ., encode = "form") %>% 
  httr::content()

wb = read_csv("data_processed/world_bank_classifications2024.csv", na = "") %>% 
  mutate(wb = fct_relevel(wb, "High income", "Upper middle income", "Lower middle income"))

n_records0 = n_distinct(registrations_orig$record_id)

registrations_orig = registrations_orig %>% 
  mutate(iso2 = toupper(str_sub(record_id, 1, 2))) %>% 
  left_join(wb)

n_records1 = n_distinct(registrations_orig$record_id)
stopifnot(n_records0 == n_records1)
stopifnot(nrow(drop_na(wb)) == nrow(wb))

rm(wb, n_records0, n_records1)
# site_survey %>% 
#   filter(is.na(wb))