inst/doc/request-helper-functions.R

In gargle: Utilities for Working with Google APIs

## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(gargle)

## -----------------------------------------------------------------------------
ddi_dir <- system.file("discovery-doc-ingest", package = "gargle")
list.files(ddi_dir)

## ---- eval = FALSE------------------------------------------------------------
#  .endpoints[["drive.files.create"]]

## ----eval = FALSE-------------------------------------------------------------
#  # googledrive::
#  request_generate <- function(endpoint = character(),
#                               params = list(),
#                               key = NULL,
#                               token = drive_token()) {
#    ept <- .endpoints[[endpoint]]
#    if (is.null(ept)) {
#      stop_glue("\nEndpoint not recognized:\n  * {endpoint}")
#    }
#  
#    ## modifications specific to googledrive package
#    params$key <- key %||% params$key %||% drive_api_key()
#    if (!is.null(ept$parameters$supportsTeamDrives)) {
#      params$supportsTeamDrives <- TRUE
#    }
#  
#    req <- gargle::request_develop(endpoint = ept, params = params)
#    gargle::request_build(
#      path = req$path,
#      method = req$method,
#      params = req$params,
#      body = req$body,
#      token = token
#    )
#  }

## ---- eval = FALSE------------------------------------------------------------
#  # gargle::
#  request_make <- function(x, ..., user_agent = gargle_user_agent()) {
#    stopifnot(is.character(x$method))
#    method <- switch(
#      x$method,
#      GET    = httr::GET,
#      POST   = httr::POST,
#      PATCH  = httr::PATCH,
#      PUT    = httr::PUT,
#      DELETE = httr::DELETE,
#      abort(glue("Not a recognized HTTP method: {bt(x$method)}"))
#    )
#    method(
#      url = x$url,
#      body = x$body,
#      x$token,
#      user_agent,
#      ...
#    )
#  }

## ---- eval = FALSE------------------------------------------------------------
#  # googledrive::
#  request_make <- function(x, ...) {
#    gargle::request_make(x, ..., user_agent = drive_ua())
#  }

## ----asis = TRUE, echo = FALSE, comment = NA----------------------------------
cat(readLines(fs::path(ddi_dir, "method-properties-humane.txt")), sep = "\n")

## ----asis = TRUE, echo = FALSE, comment = NA----------------------------------
cat(readLines(fs::path(ddi_dir, "api-wide-parameters-humane.txt")), sep = "\n")

## ----asis = TRUE, echo = FALSE, comment = NA----------------------------------
cat(readLines(fs::path(ddi_dir, "parameter-properties-humane.txt")), sep = "\n")