R/zzz.R

Defines functions .onLoad .onAttach

.onAttach <- function(libname, pkgname) {
  packageStartupMessage("Please use predefined Credentials only for the testing requests. To obtain your own Credentials see help(authorize).")
}

.onLoad <- function(libname, pkgname) {
  op <- options()
  op.slides <- list(
    slides.client.id = "10709400262-28lpv43nui21l1172cup6kh68blvkllq.apps.googleusercontent.com",
    slides.client.secret = "FADkDoE_H0B7j-VytEjTbgaU",
    slides.endpoint.create = "https://slides.googleapis.com/v1/presentations",
    slides.endpoint.get = "https://slides.googleapis.com/v1/presentations/{presentationId}",
    slides.endpoint.batchUpdate = "https://slides.googleapis.com/v1/presentations/{presentationId}:batchUpdate",
    slides.endpoint.page.get = "https://slides.googleapis.com/v1/presentations/{presentationId}/pages/{pageObjectId}"
  )
  toset <- !(names(op.slides) %in% names(op))
  if (any(toset)) options(op.slides[toset])

  invisible()
}
hairizuanbinnoorazman/googleslides documentation built on Nov. 6, 2021, 7:48 a.m.