feat: get all integrations associated with a piece of content

NAMESPACE

@@ -5,18 +5,21 @@ S3method("[",connect_tag_tree)
 S3method("[[",connect_tag_tree)
 S3method(api_build,op_base_connect)
 S3method(api_build,op_head)
+S3method(as.data.frame,connect_integration_list)
 S3method(as.data.frame,connect_list_hits)
-S3method(as.data.frame,connect_list_integrations)
 S3method(as.data.frame,tbl_connect)
 S3method(as_integration,default)
 S3method(as_integration,list)
+S3method(as_tibble,connect_integration_list)
 S3method(as_tibble,connect_list_hits)
-S3method(as_tibble,connect_list_integrations)
 S3method(connect_vars,op_base)
 S3method(connect_vars,op_single)
 S3method(connect_vars,tbl_connect)
 S3method(dim,tbl_connect)
 S3method(dimnames,tbl_connect)
+S3method(get_integrations,Connect)
+S3method(get_integrations,Content)
+S3method(get_integrations,default)
 S3method(head,tbl_connect)
 S3method(print,connect_integration)
 S3method(print,connect_tag_tree)
@@ -53,7 +56,6 @@ export(content_list_guid_has_access)
 export(content_list_with_permissions)
 export(content_render)
 export(content_restart)
-export(content_set_integrations)
 export(content_title)
 export(content_update)
 export(content_update_access_type)
@@ -76,6 +78,7 @@ export(deploy_repo_update)
 export(download_bundle)
 export(filter_tag_tree_chr)
 export(filter_tag_tree_id)
+export(get_associations)
 export(get_audit_logs)
 export(get_aws_content_credentials)
 export(get_aws_credentials)
@@ -139,6 +142,7 @@ export(set_environment_remove)
 export(set_image_path)
 export(set_image_url)
 export(set_image_webshot)
+export(set_integrations)
 export(set_run_as)
 export(set_schedule)
 export(set_schedule_day)

NEWS.md

@@ -1,9 +1,11 @@
 # connectapi (development version)
 
-- New `content_set_integrations()` function to set the OAuth integration
+- New `set_integrations()` function to set the OAuth integration
   associations for a content item. (#414)
 - New `get_integration()` function to retrieve details of a specific OAuth integration
   from a Connect server. (#431)
+- `get_integrations()` can now be passed a `Content` class object to retrieve a
+  list of integrations associated with that piece of content. (#432)
 
 # connectapi 0.8.0
 

R/content.R

@@ -1434,72 +1434,3 @@ get_content_packages <- function(content) {
   res <- content$packages()
   parse_connectapi_typed(res, connectapi_ptypes$content_packages)
 }
-
-# Integrations ----
-
-#' Set all OAuth integration associations for a content item
-#'
-#' @description
-#' Removes any existing OAuth integration associations for a content item, and
-#' creates associations with the integrations provided. You must have
-#' administrator or publisher privileges to perform this action.
-#'
-#' @param content A `Content` R6 object representing the content item to modify.
-#' @param integrations A single `connect_integration` object or a list of
-#'   `connect_integration` objects to associate with this content.
-#'
-#' @return Invisibly returns `NULL`. A message is printed on success.
-#'
-#' @seealso
-#' [get_integrations()], [get_integration()], [content_item()]
-#'
-#' @examples
-#' \dontrun{
-#' client <- connect()
-#'
-#' content <- content_item(client, "12345678-90ab-cdef-1234-567890abcdef")
-#'
-#' integrations <- get_integrations(client)
-#'
-#' # Associate a single integration
-#' github_integration <- purrr::keep(integrations, \(x) x$template == "github")[[1]]
-#' content_set_integrations(content, github_integration)
-#'
-#' # Associate multiple integrations at once
-#' selected_integrations <- integrations[1:2]
-#' content_set_integrations(content, selected_integrations)
-#' }
-#'
-#' @family oauth integration functions
-#' @family content functions
-#' @export
-content_set_integrations <- function(content, integrations) {
-  validate_R6_class(content, "Content")
-  # Handle a single integration
-  if (inherits(integrations, "connect_integration")) {
-    integrations <- list(integrations)
-  } else if (!inherits(integrations, "list")) {
-    stop(
-      "`integrations` must be a `connect_integration` class object or a list ",
-      "of `connect_integration` objects."
-    )
-  }
-  # Ensure that all the items we've been passed are integrations
-  if (!purrr::every(integrations, ~ inherits(.x, "connect_integration"))) {
-    stop("All items must be `connect_integration` objects")
-  }
-
-  payload <- purrr::map(integrations, ~ list(oauth_integration_guid = .x$guid))
-
-  content$connect$PUT(
-    v1_url(
-      "content",
-      content$content$guid,
-      "oauth",
-      "integrations",
-      "associations"
-    ),
-    body = payload
-  )
-  invisible(NULL)
-}