R/queryURL.R

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

#' Query and Download the data for and URL
#'
#' @param x urlstring string
#' @return The xmlRoot node of the \code{urlstring}
queryURL <- function(urlstring){

    url_id <- urlstring

    uid <- Sys.getenv("uid")
    pwd <- Sys.getenv("pwd")
    userpwd <- paste(uid,pwd,sep = ":")
    entity_response <-
        getURL(
            url_id,
            userpwd = userpwd,
            httpauth = 1L,
            header = FALSE,
            ssl.verifypeer = FALSE,
            encoding = "utf-8"
        )

    if(is.null(entity_response)){

        stop("Cannot connect")

    }

    ##if not XML
    doc_id <- xmlTreeParse(entity_response, useInternalNodes = T)
    root_id <- xmlRoot(doc_id)

}