R/write-pilr-file.r

In pilrhealth/pilr.api.r: Interact with PiLR servers via the API

#' @export
write_pilr_file <- function(endpoint, file, access_code) {
  PUT(endpoint, body = list(a = upload_file(file)), 
      config = httr::add_headers(authorization = paste("bearer", access_code)))
}