R/group_management.R

In thewileylab/googleGroupR: An R Wrapper for Google Groups Management using the AdminSDK

#' Create Group
#'
#' Create a group in a GSuite domain.
#'
#' @param email Required. Email address to assign to your group. 'test@gsuitedomain.org'
#' @param name Optional. Provide a descriptive name for your group.
#' @param description Optional. Provide a description for your group.
#'
#' @return JSON object with information about the newly created group.
#' @export
#' @importFrom httr add_headers content POST
create_group <- function (email, name = NULL, description = NULL) {
  access_token <- get_access_token()
  groups_url <- 'https://www.googleapis.com/admin/directory/v1/groups'
  auth_header <- httr::add_headers('Content-Type'= 'application/json',
                                   'Authorization' = glue::glue('Bearer {access_token}'))
  create_group_body <- list(email = email,
                            name= name,
                            description= description)
  httr::content(httr::POST(url = groups_url, auth_header, body = create_group_body, encode='json'))
}

#' Delete Group
#'
#' Delete a group in a GSuite domain.
#'
#' @param domain A GSuite domain: 'somedomain.org'
#' @param group The name of a Google Group. A listing of groups in your domain can be obtained by running list_groups(domain = 'mydomain.org')
#'
#' @return If successful, an empty JSON response will be received.
#' @export
#' @importFrom glue glue
#' @importFrom httr add_headers content DELETE
delete_group <- function (domain, group) {
  group_id <- get_group_id(domain, group)
  access_token <- get_access_token()
  delete_group_url <- glue::glue('https://www.googleapis.com/admin/directory/v1/groups/{group_id}')
  delete_group_header <- httr::add_headers('Authorization' = glue::glue('Bearer {access_token}'),
                                           "Accept"= 'application/json')
  httr::DELETE(url = delete_group_url, delete_group_header)
}