R/getValidOperatingUnits.R

In gandiwan/datim-validation: External validation routines for data payloads in DATIM

#' @export
#' @title Utility function which provides a list of valid operating units
#' 
#' @description Utility function which provides a list of valid operating units
#' 
#' @return Returns a data frame of operating units and their UIDs

getValidOperatingUnits<-function() {
  r<-httr::GET(URLencode(paste0(getOption("baseurl"),"api/organisationUnits?level=3&fields=id,name&paging=false")),httr::timeout(60))
  if (r$status == 200 ) {
  r<- httr::content(r, "text")
  sites<-jsonlite::fromJSON(r,flatten=TRUE)$organisationUnits
  return(sites) } else { print(paste("Could not retreive valid operating units",httr::content(r$status))); stop() }
}