data-raw/create_measures_indicators_CAs_inventory.R

In CDCgov/EPHTrackR: R interface to the CDC National Public Health Tracking Network

#####Creating inventory dataset####


CAs_raw<-
  httr::GET("https://ephtracking.cdc.gov/apigateway/api/v1/contentareas/json")
CAs<-jsonlite::fromJSON(rawToChar(CAs_raw$content))
CA_id<-CAs$id


### Indicators ###

inds_list<-list()
for(ind in 1:length(CA_id)){
  inds<-httr::GET(paste0("https://ephtracking.cdc.gov/apigateway/api/v1/indicators/",CA_id[ind]))
  inds_list[[ind]]<-jsonlite::fromJSON(rawToChar(inds$content))
  inds_list[[ind]]$Content_Area<-CA_id[ind]
}

Inds<-purrr::map_dfr(inds_list,as.data.frame)
ind_id<-Inds$id


### Measures ###

meas_list<-list()
for(mezr in 1:length(ind_id)){
  meas<-
    httr::GET(paste0("https://ephtracking.cdc.gov/apigateway/api/v1/measures/",
                     ind_id[mezr]))
  meas_list[[mezr]]<-jsonlite::fromJSON(rawToChar(meas$content))
  meas_list[[mezr]]$Indicator<-ind_id[mezr]
}

Meas<-purrr::map_dfr(meas_list,as.data.frame)



### Combine data for Content Areas, Indicators and Measures ###

names(CAs)<-c("content_area_ID","content_area_name","content_area_shortName")
names(Inds)<-
  c("indicator_ID","indicator_name","indicator_shortName",
    "externalURL","externalURLText","content_area_ID")
suppressMessages(Inds_CAs<-dplyr::left_join(Inds,CAs))

names(Meas)<-c("measure_ID","measure_name",
               "measure_shortName","URL","URLText","indicator_ID")

suppressMessages(Meas_Inds_CAs<-dplyr::left_join(Meas,Inds_CAs))
Meas_Inds_CAs_unique<-unique(Meas_Inds_CAs)
Meas_Inds_CAs_unique$measure_ID<-as.numeric(Meas_Inds_CAs_unique$measure_ID)
Meas_Inds_CAs_unique$indicator_ID<-as.numeric(Meas_Inds_CAs_unique$indicator_ID)
Meas_Inds_CAs_unique$content_area_ID<-as.numeric(Meas_Inds_CAs_unique$content_area_ID)
Meas_Inds_CAs_clean<-
  Meas_Inds_CAs_unique[,c("measure_ID","measure_name","measure_shortName",
                          "indicator_ID","indicator_name","indicator_shortName",
                          "content_area_ID","content_area_name","content_area_shortName")]

measures_indicators_CAs<-
  Meas_Inds_CAs_clean[order(Meas_Inds_CAs_clean$measure_ID,
                            Meas_Inds_CAs_clean$indicator_ID,
                            Meas_Inds_CAs_clean$content_area_ID),]


save(measures_indicators_CAs,
     file="data/measures_indicators_CAs.RData")