#' Commit changes to slides
#' @param id The slide id of the googleslides to be updated
#' @param google_slide_request The google slide request to be applied to the slides
#' @importFrom assertthat assert_that is.string
#' @importFrom httr config accept_json content
#' @importFrom jsonlite fromJSON
#' @export
commit_to_slides <- function(id, google_slide_request){
# Validate input
assert_that(is.string(id))
assert_that(is.google_slide_request(google_slide_request))
# Get endpoint url
url <- get_endpoint("slides.endpoint.batchUpdate", id)
# Get token
token <- get_token()
config <- httr::config(token=token)
# Wrapping body parameters in a requests list
body_params <- list(requests=google_slide_request$to_list())
# Modify slides
result <- httr::POST(url, config = config, accept_json(), body = body_params, encode = "json")
# Process results
result_content <- content(result, "text")
result_list <- fromJSON(result_content)
# If endpoint return url status other than 200, return error message
if(httr::status_code(result) != 200){
stop(result_list$error$message)
}
return(result_list)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.