R/getPresePiProgramStage.R

In mayerantoine/Rdhis2PresepiMigration: Migrate data from PresePI to DHIS2 Tracker

#' Download all program stages dataelements
#'
#' For a vector of ProgramStage Id download the data elements for each program stage
#'
#' @param ProgramStageId vector
#'
#' @return the dataframe with program stages dataelements of the Presepi program df_programStageDataElement





getPresePiProgramStage <- function(ProgramStageId) {

    base_url <- "http://209.61.231.45:8082/dhis/api/programStages/"
    #http://209.61.231.45:8082/dhis/api/programStages/Li8CKAWWS1q.json?fields=id,name,programStageDataElements[id]

    programStageDataElements_list <- map(ProgramStageId, function(x) {
        stage <- x
        url_stage <- paste0(base_url, stage, ".xml")

        rootNodeStage <- queryURL(url_stage)
        programStageDataElements <-
            rootNodeStage[["programStageDataElements"]]

        if( !is.null(programStageDataElements)) {

        dataElementId <- as.list(xmlSApply(programStageDataElements,
                                           function(x) {
                                               xmlGetAttr(x[["dataElement"]], "id")
                                           }))

          s <- list(programStage = stage, dataElement = dataElementId)
        as.data.frame(do.call(rbind, lapply(s$dataElement, cbind, s$programStage)))
        }


    })


    df_programStageDataElement <-
        as.data.frame(do.call(rbind, programStageDataElements_list))
    names(df_programStageDataElement) <- c("dataElement", "programStage")



    df_programStageDataElement

}