test_that("endpoints can be retrieved en masse", {
endpoints <- gs4_endpoints()
expect_true(length(endpoints) >= 14)
expect_match(names(endpoints), "^sheets\\.spreadsheets\\.")
})
test_that("a single endpoint can be retrieved", {
nm <- "sheets.spreadsheets.values.batchClear"
endpoint <- gs4_endpoints(nm)[[1]]
expect_true(
all(c("id", "path", "parameters", "scopes") %in% names(endpoint))
)
})
Generated by dwww version 1.15 on Tue Jun 25 07:30:50 CEST 2024.