R/upload.r

In jarodmeng/driveR: An interface for Google Drive in R

upload_url <- "https://www.googleapis.com/upload/drive/v2/files"

#' upload a file to Google Drive
#' @param file_name file name
#' @param title file title
#' @param file_type mime type of the file
#' @param email email address to add to permission list
#' @param token a valid OAuth2.0 token
#' @param ... any other arguments to be passed to add_permission()
#' @return ID of the uploaded file
#' @export
upload_file <- function(file_name, title = basename(file_name),
                        file_type = NULL, email = NULL,
                        token = get_access_cred(), ...) {
  url <- upload_url

  metadata <- tempfile()
  writeLines(toJSON(list(title = title)), metadata)

  req <- POST(url,
    body = list(
      metadata = httr::upload_file(metadata,
                                   type = "application/json; charset=UTF-8"),
      media = httr::upload_file(file_name, type = file_type)),
    config = config(token = token),
    add_headers("Content-Type" = "multipart/related"),
    encode = "multipart")

  stop_for_status(req)
  resp <- content(req)
  
  if (!is.null(email)) {
    perm_id <- add_permission(resp$id, email = email, token = token, ...)
  }
  
  return(resp$id)
}