R/src.R

In LucyMcGowan/GMD: Google RMarkdown

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

.get_docs <- function(url = drive_url, token = token) {
  req <- httr::GET(url,token)
  if (req$status_code >= 400) {
    stop(
      sprintf(
        "Google API returned an error: HTTP status code %s, %s",
        req$status_code,
        req$headers$statusmessage
      )
    )
  }
  httr::stop_for_status(req)
  reqlist <- httr::content(req, "parsed")
  if (length(reqlist) == 0) stop("Zero records match your url.\n")

  return(reqlist)
}

.get_id <- function(edit_url) {
  url <- strsplit(gsub("//", "/", edit_url), "/")
  if (length(url[[1]]) < 6)
    stop("This url doesn't look like it comes from editing a Google Document")
  if (url[[1]][2] == "docs.google.com" & url[[1]][6] == "edit") {
    id <- url[[1]][5]
    return(id)
  } else
    stop("This url doesn't look like it comes from editing a Google Document")
}