R/batchUpdate.R

In sparklineanalytics/rgoogleslides: R Interface to Google Slides

#' 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)
}