Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
1330 lines (1222 sloc) 54.9 KB
#' Calendar API
#' Manipulates events and other calendar data.
#'
#' Auto-generated code by googleAuthR::gar_create_api_skeleton
#' at 2017-03-05 19:30:35
#' filename: /Users/mark/dev/R/autoGoogleAPI/googlecalendarv3.auto/R/calendar_functions.R
#' api_json: api_json
#'
#' @details
#' Authentication scopes used are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' \item https://www.googleapis.com/auth/calendar.readonly
#' }
#'
#' @docType package
#' @name calendar_googleAuthR
#'
NULL
## NULL
#' A helper function that tests whether an object is either NULL _or_
#' a list of NULLs
#'
#' @keywords internal
is.NullOb <- function(x) is.null(x) | all(sapply(x, is.null))
#' Recursively step down into list, removing all such objects
#'
#' @keywords internal
rmNullObs <- function(x) {
x <- Filter(Negate(is.NullOb), x)
lapply(x, function(x) if (is.list(x))
rmNullObs(x) else x)
}
#' Deletes an access control rule.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param calendarId Calendar identifier
#' @param ruleId ACL rule identifier
#' @importFrom googleAuthR gar_api_generator
#' @export
acl.delete <- function(calendarId, ruleId) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/acl/%s",
calendarId, ruleId)
# calendar.acl.delete
f <- googleAuthR::gar_api_generator(url, "DELETE", data_parse_function = function(x) x)
f()
}
#' Returns an access control rule.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' \item https://www.googleapis.com/auth/calendar.readonly
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar, https://www.googleapis.com/auth/calendar.readonly)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param calendarId Calendar identifier
#' @param ruleId ACL rule identifier
#' @importFrom googleAuthR gar_api_generator
#' @export
acl.get <- function(calendarId, ruleId) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/acl/%s",
calendarId, ruleId)
# calendar.acl.get
f <- googleAuthR::gar_api_generator(url, "GET", data_parse_function = function(x) x)
f()
}
#' Creates an access control rule.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param AclRule The \link{AclRule} object to pass to this method
#' @param calendarId Calendar identifier
#' @importFrom googleAuthR gar_api_generator
#' @family AclRule functions
#' @export
acl.insert <- function(AclRule, calendarId) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/acl", calendarId)
# calendar.acl.insert
f <- googleAuthR::gar_api_generator(url, "POST", data_parse_function = function(x) x)
stopifnot(inherits(AclRule, "gar_AclRule"))
f(the_body = AclRule)
}
#' Returns the rules in the access control list for the calendar.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param calendarId Calendar identifier
#' @param maxResults Maximum number of entries returned on one result page
#' @param pageToken Token specifying which result page to return
#' @param showDeleted Whether to include deleted ACLs in the result
#' @param syncToken Token obtained from the nextSyncToken field returned on the last page of results from the previous list request
#' @importFrom googleAuthR gar_api_generator
#' @export
acl.list <- function(calendarId, maxResults = NULL, pageToken = NULL, showDeleted = NULL,
syncToken = NULL) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/acl", calendarId)
# calendar.acl.list
pars = list(maxResults = maxResults, pageToken = pageToken, showDeleted = showDeleted,
syncToken = syncToken)
f <- googleAuthR::gar_api_generator(url, "GET", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
f()
}
#' Updates an access control rule. This method supports patch semantics.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param AclRule The \link{AclRule} object to pass to this method
#' @param calendarId Calendar identifier
#' @param ruleId ACL rule identifier
#' @importFrom googleAuthR gar_api_generator
#' @family AclRule functions
#' @export
acl.patch <- function(AclRule, calendarId, ruleId) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/acl/%s",
calendarId, ruleId)
# calendar.acl.patch
f <- googleAuthR::gar_api_generator(url, "PATCH", data_parse_function = function(x) x)
stopifnot(inherits(AclRule, "gar_AclRule"))
f(the_body = AclRule)
}
#' Updates an access control rule.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param AclRule The \link{AclRule} object to pass to this method
#' @param calendarId Calendar identifier
#' @param ruleId ACL rule identifier
#' @importFrom googleAuthR gar_api_generator
#' @family AclRule functions
#' @export
acl.update <- function(AclRule, calendarId, ruleId) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/acl/%s",
calendarId, ruleId)
# calendar.acl.update
f <- googleAuthR::gar_api_generator(url, "PUT", data_parse_function = function(x) x)
stopifnot(inherits(AclRule, "gar_AclRule"))
f(the_body = AclRule)
}
#' Watch for changes to ACL resources.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param Channel The \link{Channel} object to pass to this method
#' @param calendarId Calendar identifier
#' @param maxResults Maximum number of entries returned on one result page
#' @param pageToken Token specifying which result page to return
#' @param showDeleted Whether to include deleted ACLs in the result
#' @param syncToken Token obtained from the nextSyncToken field returned on the last page of results from the previous list request
#' @importFrom googleAuthR gar_api_generator
#' @family Channel functions
#' @export
acl.watch <- function(Channel, calendarId, maxResults = NULL, pageToken = NULL, showDeleted = NULL,
syncToken = NULL) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/acl/watch",
calendarId)
# calendar.acl.watch
pars = list(maxResults = maxResults, pageToken = pageToken, showDeleted = showDeleted,
syncToken = syncToken)
f <- googleAuthR::gar_api_generator(url, "POST", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
stopifnot(inherits(Channel, "gar_Channel"))
f(the_body = Channel)
}
#' Deletes an entry on the user's calendar list.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param calendarId Calendar identifier
#' @importFrom googleAuthR gar_api_generator
#' @export
ist.delete <- function(calendarId) {
url <- sprintf("https://www.googleapis.com/calendar/v3/users/me/calendarList/%s",
calendarId)
# calendar.calendarList.delete
f <- googleAuthR::gar_api_generator(url, "DELETE", data_parse_function = function(x) x)
f()
}
#' Returns an entry on the user's calendar list.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' \item https://www.googleapis.com/auth/calendar.readonly
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar, https://www.googleapis.com/auth/calendar.readonly)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param calendarId Calendar identifier
#' @importFrom googleAuthR gar_api_generator
#' @export
ist.get <- function(calendarId) {
url <- sprintf("https://www.googleapis.com/calendar/v3/users/me/calendarList/%s",
calendarId)
# calendar.calendarList.get
f <- googleAuthR::gar_api_generator(url, "GET", data_parse_function = function(x) x)
f()
}
#' Adds an entry to the user's calendar list.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param CalendarListEntry The \link{CalendarListEntry} object to pass to this method
#' @param colorRgbFormat Whether to use the foregroundColor and backgroundColor fields to write the calendar colors (RGB)
#' @importFrom googleAuthR gar_api_generator
#' @family CalendarListEntry functions
#' @export
ist.insert <- function(CalendarListEntry, colorRgbFormat = NULL) {
url <- "https://www.googleapis.com/calendar/v3/users/me/calendarList"
# calendar.calendarList.insert
pars = list(colorRgbFormat = colorRgbFormat)
f <- googleAuthR::gar_api_generator(url, "POST", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
stopifnot(inherits(CalendarListEntry, "gar_CalendarListEntry"))
f(the_body = CalendarListEntry)
}
#' Returns entries on the user's calendar list.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' \item https://www.googleapis.com/auth/calendar.readonly
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar, https://www.googleapis.com/auth/calendar.readonly)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param maxResults Maximum number of entries returned on one result page
#' @param minAccessRole The minimum access role for the user in the returned entries
#' @param pageToken Token specifying which result page to return
#' @param showDeleted Whether to include deleted calendar list entries in the result
#' @param showHidden Whether to show hidden entries
#' @param syncToken Token obtained from the nextSyncToken field returned on the last page of results from the previous list request
#' @importFrom googleAuthR gar_api_generator
#' @export
ist.list <- function(maxResults = NULL, minAccessRole = NULL, pageToken = NULL, showDeleted = NULL,
showHidden = NULL, syncToken = NULL) {
url <- "https://www.googleapis.com/calendar/v3/users/me/calendarList"
# calendar.calendarList.list
pars = list(maxResults = maxResults, minAccessRole = minAccessRole, pageToken = pageToken,
showDeleted = showDeleted, showHidden = showHidden, syncToken = syncToken)
f <- googleAuthR::gar_api_generator(url, "GET", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
f()
}
#' Updates an entry on the user's calendar list. This method supports patch semantics.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param CalendarListEntry The \link{CalendarListEntry} object to pass to this method
#' @param calendarId Calendar identifier
#' @param colorRgbFormat Whether to use the foregroundColor and backgroundColor fields to write the calendar colors (RGB)
#' @importFrom googleAuthR gar_api_generator
#' @family CalendarListEntry functions
#' @export
ist.patch <- function(CalendarListEntry, calendarId, colorRgbFormat = NULL) {
url <- sprintf("https://www.googleapis.com/calendar/v3/users/me/calendarList/%s",
calendarId)
# calendar.calendarList.patch
pars = list(colorRgbFormat = colorRgbFormat)
f <- googleAuthR::gar_api_generator(url, "PATCH", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
stopifnot(inherits(CalendarListEntry, "gar_CalendarListEntry"))
f(the_body = CalendarListEntry)
}
#' Updates an entry on the user's calendar list.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param CalendarListEntry The \link{CalendarListEntry} object to pass to this method
#' @param calendarId Calendar identifier
#' @param colorRgbFormat Whether to use the foregroundColor and backgroundColor fields to write the calendar colors (RGB)
#' @importFrom googleAuthR gar_api_generator
#' @family CalendarListEntry functions
#' @export
ist.update <- function(CalendarListEntry, calendarId, colorRgbFormat = NULL) {
url <- sprintf("https://www.googleapis.com/calendar/v3/users/me/calendarList/%s",
calendarId)
# calendar.calendarList.update
pars = list(colorRgbFormat = colorRgbFormat)
f <- googleAuthR::gar_api_generator(url, "PUT", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
stopifnot(inherits(CalendarListEntry, "gar_CalendarListEntry"))
f(the_body = CalendarListEntry)
}
#' Watch for changes to CalendarList resources.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' \item https://www.googleapis.com/auth/calendar.readonly
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar, https://www.googleapis.com/auth/calendar.readonly)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param Channel The \link{Channel} object to pass to this method
#' @param maxResults Maximum number of entries returned on one result page
#' @param minAccessRole The minimum access role for the user in the returned entries
#' @param pageToken Token specifying which result page to return
#' @param showDeleted Whether to include deleted calendar list entries in the result
#' @param showHidden Whether to show hidden entries
#' @param syncToken Token obtained from the nextSyncToken field returned on the last page of results from the previous list request
#' @importFrom googleAuthR gar_api_generator
#' @family Channel functions
#' @export
ist.watch <- function(Channel, maxResults = NULL, minAccessRole = NULL, pageToken = NULL,
showDeleted = NULL, showHidden = NULL, syncToken = NULL) {
url <- "https://www.googleapis.com/calendar/v3/users/me/calendarList/watch"
# calendar.calendarList.watch
pars = list(maxResults = maxResults, minAccessRole = minAccessRole, pageToken = pageToken,
showDeleted = showDeleted, showHidden = showHidden, syncToken = syncToken)
f <- googleAuthR::gar_api_generator(url, "POST", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
stopifnot(inherits(Channel, "gar_Channel"))
f(the_body = Channel)
}
#' Clears a primary calendar. This operation deletes all events associated with the primary calendar of an account.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param calendarId Calendar identifier
#' @importFrom googleAuthR gar_api_generator
#' @export
.clear <- function(calendarId) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/clear", calendarId)
# calendar.calendars.clear
f <- googleAuthR::gar_api_generator(url, "POST", data_parse_function = function(x) x)
f()
}
#' Deletes a secondary calendar. Use calendars.clear for clearing all events on primary calendars.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param calendarId Calendar identifier
#' @importFrom googleAuthR gar_api_generator
#' @export
.delete <- function(calendarId) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s", calendarId)
# calendar.calendars.delete
f <- googleAuthR::gar_api_generator(url, "DELETE", data_parse_function = function(x) x)
f()
}
#' Returns metadata for a calendar.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' \item https://www.googleapis.com/auth/calendar.readonly
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar, https://www.googleapis.com/auth/calendar.readonly)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param calendarId Calendar identifier
#' @importFrom googleAuthR gar_api_generator
#' @export
.get <- function(calendarId) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s", calendarId)
# calendar.calendars.get
f <- googleAuthR::gar_api_generator(url, "GET", data_parse_function = function(x) x)
f()
}
#' Creates a secondary calendar.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param Calendar The \link{Calendar} object to pass to this method
#' #' @importFrom googleAuthR gar_api_generator
#' @family Calendar functions
#' @export
.insert <- function(Calendar) {
url <- "https://www.googleapis.com/calendar/v3/calendars"
# calendar.calendars.insert
f <- googleAuthR::gar_api_generator(url, "POST", data_parse_function = function(x) x)
stopifnot(inherits(Calendar, "gar_Calendar"))
f(the_body = Calendar)
}
#' Updates metadata for a calendar. This method supports patch semantics.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param Calendar The \link{Calendar} object to pass to this method
#' @param calendarId Calendar identifier
#' @importFrom googleAuthR gar_api_generator
#' @family Calendar functions
#' @export
.patch <- function(Calendar, calendarId) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s", calendarId)
# calendar.calendars.patch
f <- googleAuthR::gar_api_generator(url, "PATCH", data_parse_function = function(x) x)
stopifnot(inherits(Calendar, "gar_Calendar"))
f(the_body = Calendar)
}
#' Updates metadata for a calendar.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param Calendar The \link{Calendar} object to pass to this method
#' @param calendarId Calendar identifier
#' @importFrom googleAuthR gar_api_generator
#' @family Calendar functions
#' @export
.update <- function(Calendar, calendarId) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s", calendarId)
# calendar.calendars.update
f <- googleAuthR::gar_api_generator(url, "PUT", data_parse_function = function(x) x)
stopifnot(inherits(Calendar, "gar_Calendar"))
f(the_body = Calendar)
}
#' Stop watching resources through this channel
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' \item https://www.googleapis.com/auth/calendar.readonly
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar, https://www.googleapis.com/auth/calendar.readonly)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param Channel The \link{Channel} object to pass to this method
#' #' @importFrom googleAuthR gar_api_generator
#' @family Channel functions
#' @export
channels.stop <- function(Channel) {
url <- "https://www.googleapis.com/calendar/v3/channels/stop"
# calendar.channels.stop
f <- googleAuthR::gar_api_generator(url, "POST", data_parse_function = function(x) x)
stopifnot(inherits(Channel, "gar_Channel"))
f(the_body = Channel)
}
#' Returns the color definitions for calendars and events.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' \item https://www.googleapis.com/auth/calendar.readonly
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar, https://www.googleapis.com/auth/calendar.readonly)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' #' @importFrom googleAuthR gar_api_generator
#' @export
colors.get <- function() {
url <- "https://www.googleapis.com/calendar/v3/colors"
# calendar.colors.get
f <- googleAuthR::gar_api_generator(url, "GET", data_parse_function = function(x) x)
f()
}
#' Deletes an event.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param calendarId Calendar identifier
#' @param eventId Event identifier
#' @param sendNotifications Whether to send notifications about the deletion of the event
#' @importFrom googleAuthR gar_api_generator
#' @export
events.delete <- function(calendarId, eventId, sendNotifications = NULL) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/events/%s",
calendarId, eventId)
# calendar.events.delete
pars = list(sendNotifications = sendNotifications)
f <- googleAuthR::gar_api_generator(url, "DELETE", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
f()
}
#' Returns an event.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' \item https://www.googleapis.com/auth/calendar.readonly
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar, https://www.googleapis.com/auth/calendar.readonly)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param calendarId Calendar identifier
#' @param eventId Event identifier
#' @param alwaysIncludeEmail Whether to always include a value in the email field for the organizer, creator and attendees, even if no real email is available (i
#' @param maxAttendees The maximum number of attendees to include in the response
#' @param timeZone Time zone used in the response
#' @importFrom googleAuthR gar_api_generator
#' @export
events.get <- function(calendarId, eventId, alwaysIncludeEmail = NULL, maxAttendees = NULL,
timeZone = NULL) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/events/%s",
calendarId, eventId)
# calendar.events.get
pars = list(alwaysIncludeEmail = alwaysIncludeEmail, maxAttendees = maxAttendees,
timeZone = timeZone)
f <- googleAuthR::gar_api_generator(url, "GET", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
f()
}
#' Imports an event. This operation is used to add a private copy of an existing event to a calendar.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param Event The \link{Event} object to pass to this method
#' @param calendarId Calendar identifier
#' @param supportsAttachments Whether API client performing operation supports event attachments
#' @importFrom googleAuthR gar_api_generator
#' @family Event functions
#' @export
events.import <- function(Event, calendarId, supportsAttachments = NULL) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/events/import",
calendarId)
# calendar.events.import
pars = list(supportsAttachments = supportsAttachments)
f <- googleAuthR::gar_api_generator(url, "POST", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
stopifnot(inherits(Event, "gar_Event"))
f(the_body = Event)
}
#' Creates an event.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param Event The \link{Event} object to pass to this method
#' @param calendarId Calendar identifier
#' @param maxAttendees The maximum number of attendees to include in the response
#' @param sendNotifications Whether to send notifications about the creation of the new event
#' @param supportsAttachments Whether API client performing operation supports event attachments
#' @importFrom googleAuthR gar_api_generator
#' @family Event functions
#' @export
events.insert <- function(Event, calendarId, maxAttendees = NULL, sendNotifications = NULL,
supportsAttachments = NULL) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/events",
calendarId)
# calendar.events.insert
pars = list(maxAttendees = maxAttendees, sendNotifications = sendNotifications,
supportsAttachments = supportsAttachments)
f <- googleAuthR::gar_api_generator(url, "POST", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
stopifnot(inherits(Event, "gar_Event"))
f(the_body = Event)
}
#' Returns instances of the specified recurring event.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' \item https://www.googleapis.com/auth/calendar.readonly
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar, https://www.googleapis.com/auth/calendar.readonly)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param calendarId Calendar identifier
#' @param eventId Recurring event identifier
#' @param alwaysIncludeEmail Whether to always include a value in the email field for the organizer, creator and attendees, even if no real email is available (i
#' @param maxAttendees The maximum number of attendees to include in the response
#' @param maxResults Maximum number of events returned on one result page
#' @param originalStart The original start time of the instance in the result
#' @param pageToken Token specifying which result page to return
#' @param showDeleted Whether to include deleted events (with status equals 'cancelled') in the result
#' @param timeMax Upper bound (exclusive) for an event's start time to filter by
#' @param timeMin Lower bound (inclusive) for an event's end time to filter by
#' @param timeZone Time zone used in the response
#' @importFrom googleAuthR gar_api_generator
#' @export
events.instances <- function(calendarId, eventId, alwaysIncludeEmail = NULL, maxAttendees = NULL,
maxResults = NULL, originalStart = NULL, pageToken = NULL, showDeleted = NULL,
timeMax = NULL, timeMin = NULL, timeZone = NULL) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/events/%s/instances",
calendarId, eventId)
# calendar.events.instances
pars = list(alwaysIncludeEmail = alwaysIncludeEmail, maxAttendees = maxAttendees,
maxResults = maxResults, originalStart = originalStart, pageToken = pageToken,
showDeleted = showDeleted, timeMax = timeMax, timeMin = timeMin, timeZone = timeZone)
f <- googleAuthR::gar_api_generator(url, "GET", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
f()
}
#' Returns events on the specified calendar.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' \item https://www.googleapis.com/auth/calendar.readonly
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar, https://www.googleapis.com/auth/calendar.readonly)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param calendarId Calendar identifier
#' @param alwaysIncludeEmail Whether to always include a value in the email field for the organizer, creator and attendees, even if no real email is available (i
#' @param iCalUID Specifies event ID in the iCalendar format to be included in the response
#' @param maxAttendees The maximum number of attendees to include in the response
#' @param maxResults Maximum number of events returned on one result page
#' @param orderBy The order of the events returned in the result
#' @param pageToken Token specifying which result page to return
#' @param privateExtendedProperty Extended properties constraint specified as propertyName=value
#' @param q Free text search terms to find events that match these terms in any field, except for extended properties
#' @param sharedExtendedProperty Extended properties constraint specified as propertyName=value
#' @param showDeleted Whether to include deleted events (with status equals 'cancelled') in the result
#' @param showHiddenInvitations Whether to include hidden invitations in the result
#' @param singleEvents Whether to expand recurring events into instances and only return single one-off events and instances of recurring events, but not the underlying recurring events themselves
#' @param syncToken Token obtained from the nextSyncToken field returned on the last page of results from the previous list request
#' @param timeMax Upper bound (exclusive) for an event's start time to filter by
#' @param timeMin Lower bound (inclusive) for an event's end time to filter by
#' @param timeZone Time zone used in the response
#' @param updatedMin Lower bound for an event's last modification time (as a RFC3339 timestamp) to filter by
#' @importFrom googleAuthR gar_api_generator
#' @export
events.list <- function(calendarId, alwaysIncludeEmail = NULL, iCalUID = NULL, maxAttendees = NULL,
maxResults = NULL, orderBy = NULL, pageToken = NULL, privateExtendedProperty = NULL,
q = NULL, sharedExtendedProperty = NULL, showDeleted = NULL, showHiddenInvitations = NULL,
singleEvents = NULL, syncToken = NULL, timeMax = NULL, timeMin = NULL, timeZone = NULL,
updatedMin = NULL) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/events",
calendarId)
# calendar.events.list
pars = list(alwaysIncludeEmail = alwaysIncludeEmail, iCalUID = iCalUID, maxAttendees = maxAttendees,
maxResults = maxResults, orderBy = orderBy, pageToken = pageToken, privateExtendedProperty = privateExtendedProperty,
q = q, sharedExtendedProperty = sharedExtendedProperty, showDeleted = showDeleted,
showHiddenInvitations = showHiddenInvitations, singleEvents = singleEvents,
syncToken = syncToken, timeMax = timeMax, timeMin = timeMin, timeZone = timeZone,
updatedMin = updatedMin)
f <- googleAuthR::gar_api_generator(url, "GET", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
f()
}
#' Moves an event to another calendar, i.e. changes an event's organizer.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param calendarId Calendar identifier of the source calendar where the event currently is on
#' @param eventId Event identifier
#' @param destination Calendar identifier of the target calendar where the event is to be moved to
#' @param sendNotifications Whether to send notifications about the change of the event's organizer
#' @importFrom googleAuthR gar_api_generator
#' @export
events.move <- function(calendarId, eventId, destination, sendNotifications = NULL) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/events/%s/move",
calendarId, eventId)
# calendar.events.move
pars = list(destination = destination, sendNotifications = sendNotifications)
f <- googleAuthR::gar_api_generator(url, "POST", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
f()
}
#' Updates an event. This method supports patch semantics.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param Event The \link{Event} object to pass to this method
#' @param calendarId Calendar identifier
#' @param eventId Event identifier
#' @param alwaysIncludeEmail Whether to always include a value in the email field for the organizer, creator and attendees, even if no real email is available (i
#' @param maxAttendees The maximum number of attendees to include in the response
#' @param sendNotifications Whether to send notifications about the event update (e
#' @param supportsAttachments Whether API client performing operation supports event attachments
#' @importFrom googleAuthR gar_api_generator
#' @family Event functions
#' @export
events.patch <- function(Event, calendarId, eventId, alwaysIncludeEmail = NULL, maxAttendees = NULL,
sendNotifications = NULL, supportsAttachments = NULL) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/events/%s",
calendarId, eventId)
# calendar.events.patch
pars = list(alwaysIncludeEmail = alwaysIncludeEmail, maxAttendees = maxAttendees,
sendNotifications = sendNotifications, supportsAttachments = supportsAttachments)
f <- googleAuthR::gar_api_generator(url, "PATCH", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
stopifnot(inherits(Event, "gar_Event"))
f(the_body = Event)
}
#' Creates an event based on a simple text string.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param calendarId Calendar identifier
#' @param text The text describing the event to be created
#' @param sendNotifications Whether to send notifications about the creation of the event
#' @importFrom googleAuthR gar_api_generator
#' @export
events.quickAdd <- function(calendarId, text, sendNotifications = NULL) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/events/quickAdd",
calendarId)
# calendar.events.quickAdd
pars = list(text = text, sendNotifications = sendNotifications)
f <- googleAuthR::gar_api_generator(url, "POST", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
f()
}
#' Updates an event.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param Event The \link{Event} object to pass to this method
#' @param calendarId Calendar identifier
#' @param eventId Event identifier
#' @param alwaysIncludeEmail Whether to always include a value in the email field for the organizer, creator and attendees, even if no real email is available (i
#' @param maxAttendees The maximum number of attendees to include in the response
#' @param sendNotifications Whether to send notifications about the event update (e
#' @param supportsAttachments Whether API client performing operation supports event attachments
#' @importFrom googleAuthR gar_api_generator
#' @family Event functions
#' @export
events.update <- function(Event, calendarId, eventId, alwaysIncludeEmail = NULL,
maxAttendees = NULL, sendNotifications = NULL, supportsAttachments = NULL) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/events/%s",
calendarId, eventId)
# calendar.events.update
pars = list(alwaysIncludeEmail = alwaysIncludeEmail, maxAttendees = maxAttendees,
sendNotifications = sendNotifications, supportsAttachments = supportsAttachments)
f <- googleAuthR::gar_api_generator(url, "PUT", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
stopifnot(inherits(Event, "gar_Event"))
f(the_body = Event)
}
#' Watch for changes to Events resources.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' \item https://www.googleapis.com/auth/calendar.readonly
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar, https://www.googleapis.com/auth/calendar.readonly)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param Channel The \link{Channel} object to pass to this method
#' @param calendarId Calendar identifier
#' @param alwaysIncludeEmail Whether to always include a value in the email field for the organizer, creator and attendees, even if no real email is available (i
#' @param iCalUID Specifies event ID in the iCalendar format to be included in the response
#' @param maxAttendees The maximum number of attendees to include in the response
#' @param maxResults Maximum number of events returned on one result page
#' @param orderBy The order of the events returned in the result
#' @param pageToken Token specifying which result page to return
#' @param privateExtendedProperty Extended properties constraint specified as propertyName=value
#' @param q Free text search terms to find events that match these terms in any field, except for extended properties
#' @param sharedExtendedProperty Extended properties constraint specified as propertyName=value
#' @param showDeleted Whether to include deleted events (with status equals 'cancelled') in the result
#' @param showHiddenInvitations Whether to include hidden invitations in the result
#' @param singleEvents Whether to expand recurring events into instances and only return single one-off events and instances of recurring events, but not the underlying recurring events themselves
#' @param syncToken Token obtained from the nextSyncToken field returned on the last page of results from the previous list request
#' @param timeMax Upper bound (exclusive) for an event's start time to filter by
#' @param timeMin Lower bound (inclusive) for an event's end time to filter by
#' @param timeZone Time zone used in the response
#' @param updatedMin Lower bound for an event's last modification time (as a RFC3339 timestamp) to filter by
#' @importFrom googleAuthR gar_api_generator
#' @family Channel functions
#' @export
events.watch <- function(Channel, calendarId, alwaysIncludeEmail = NULL, iCalUID = NULL,
maxAttendees = NULL, maxResults = NULL, orderBy = NULL, pageToken = NULL, privateExtendedProperty = NULL,
q = NULL, sharedExtendedProperty = NULL, showDeleted = NULL, showHiddenInvitations = NULL,
singleEvents = NULL, syncToken = NULL, timeMax = NULL, timeMin = NULL, timeZone = NULL,
updatedMin = NULL) {
url <- sprintf("https://www.googleapis.com/calendar/v3/calendars/%s/events/watch",
calendarId)
# calendar.events.watch
pars = list(alwaysIncludeEmail = alwaysIncludeEmail, iCalUID = iCalUID, maxAttendees = maxAttendees,
maxResults = maxResults, orderBy = orderBy, pageToken = pageToken, privateExtendedProperty = privateExtendedProperty,
q = q, sharedExtendedProperty = sharedExtendedProperty, showDeleted = showDeleted,
showHiddenInvitations = showHiddenInvitations, singleEvents = singleEvents,
syncToken = syncToken, timeMax = timeMax, timeMin = timeMin, timeZone = timeZone,
updatedMin = updatedMin)
f <- googleAuthR::gar_api_generator(url, "POST", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
stopifnot(inherits(Channel, "gar_Channel"))
f(the_body = Channel)
}
#' Returns free/busy information for a set of calendars.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' \item https://www.googleapis.com/auth/calendar.readonly
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar, https://www.googleapis.com/auth/calendar.readonly)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param FreeBusyRequest The \link{FreeBusyRequest} object to pass to this method
#' #' @importFrom googleAuthR gar_api_generator
#' @family FreeBusyRequest functions
#' @export
freebusy.query <- function(FreeBusyRequest) {
url <- "https://www.googleapis.com/calendar/v3/freeBusy"
# calendar.freebusy.query
f <- googleAuthR::gar_api_generator(url, "POST", data_parse_function = function(x) x)
stopifnot(inherits(FreeBusyRequest, "gar_FreeBusyRequest"))
f(the_body = FreeBusyRequest)
}
#' Returns a single user setting.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' \item https://www.googleapis.com/auth/calendar.readonly
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar, https://www.googleapis.com/auth/calendar.readonly)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param setting The id of the user setting
#' @importFrom googleAuthR gar_api_generator
#' @export
settings.get <- function(setting) {
url <- sprintf("https://www.googleapis.com/calendar/v3/users/me/settings/%s",
setting)
# calendar.settings.get
f <- googleAuthR::gar_api_generator(url, "GET", data_parse_function = function(x) x)
f()
}
#' Returns all user settings for the authenticated user.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' \item https://www.googleapis.com/auth/calendar.readonly
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar, https://www.googleapis.com/auth/calendar.readonly)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param maxResults Maximum number of entries returned on one result page
#' @param pageToken Token specifying which result page to return
#' @param syncToken Token obtained from the nextSyncToken field returned on the last page of results from the previous list request
#' @importFrom googleAuthR gar_api_generator
#' @export
settings.list <- function(maxResults = NULL, pageToken = NULL, syncToken = NULL) {
url <- "https://www.googleapis.com/calendar/v3/users/me/settings"
# calendar.settings.list
pars = list(maxResults = maxResults, pageToken = pageToken, syncToken = syncToken)
f <- googleAuthR::gar_api_generator(url, "GET", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
f()
}
#' Watch for changes to Settings resources.
#'
#' Autogenerated via \code{\link[googleAuthR]{gar_create_api_skeleton}}
#'
#' @seealso \href{https://developers.google.com/google-apps/calendar/firstapp}{Google Documentation}
#'
#' @details
#' Authentication scopes used by this function are:
#' \itemize{
#' \item https://www.googleapis.com/auth/calendar
#' \item https://www.googleapis.com/auth/calendar.readonly
#' }
#'
#' Set \code{options(googleAuthR.scopes.selected = c(https://www.googleapis.com/auth/calendar, https://www.googleapis.com/auth/calendar.readonly)}
#' Then run \code{googleAuthR::gar_auth()} to authenticate.
#' See \code{\link[googleAuthR]{gar_auth}} for details.
#'
#' @param Channel The \link{Channel} object to pass to this method
#' @param maxResults Maximum number of entries returned on one result page
#' @param pageToken Token specifying which result page to return
#' @param syncToken Token obtained from the nextSyncToken field returned on the last page of results from the previous list request
#' @importFrom googleAuthR gar_api_generator
#' @family Channel functions
#' @export
settings.watch <- function(Channel, maxResults = NULL, pageToken = NULL, syncToken = NULL) {
url <- "https://www.googleapis.com/calendar/v3/users/me/settings/watch"
# calendar.settings.watch
pars = list(maxResults = maxResults, pageToken = pageToken, syncToken = syncToken)
f <- googleAuthR::gar_api_generator(url, "POST", pars_args = rmNullObs(pars),
data_parse_function = function(x) x)
stopifnot(inherits(Channel, "gar_Channel"))
f(the_body = Channel)
}
You can’t perform that action at this time.