R/brapiGET.R

Defines functions brapiGET

brapiGET <- function(url, format = "json", con = NULL) {
  ba_message(msg = paste0("URL call was: ", url, "\n"))
  ba_message(msg = paste0("Waiting for response from server: ...\n"))

  res <- httr::GET(url = url,
                   httr::timeout(25),
                   httr::add_headers("Authorization" = paste("Bearer", con$token)))

  txt <- ifelse(res$status == 200, " ok!", " problem!")
  ba_message(msg = paste0("Server status: ", txt, "\n"))
  url <- httr::content(res)
  if (format == "json") show_server_status_messages(res)
  return(res)
}
CIP-RIU/brapi documentation built on Oct. 17, 2019, 2 p.m.