Nothing
.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()
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.