tests/testthat/fixtures/sheets-spreadsheets-get-bad-field-mask_400.R

In r-pkgs/gargle: Utilities for Working with Google APIs

# ---- bad field mask
googlesheets4::gs4_deauth()
deaths_id <- as.character(googlesheets4::gs4_example("deaths"))
req <- googlesheets4::request_generate(
  endpoint = "sheets.spreadsheets.get",
  params = list(
    spreadsheetId = deaths_id,
    ranges = "A1:A1",
    fields = "sheets.sheetProperties"
  )
)
resp <- googlesheets4::request_make(req)

stopifnot(httr::status_code(resp) == 400)
saveRDS(
  gargle:::redact_response(resp),
  testthat::test_path("fixtures", "sheets-spreadsheets-get-bad-field-mask_400.rds"),
  version = 2
)

gargle::response_process(resp)