feat: get content that uses a specified integration

NAMESPACE

@@ -84,6 +84,7 @@ export(get_aws_content_credentials)
 export(get_aws_credentials)
 export(get_bundles)
 export(get_content)
+export(get_content_list)
 export(get_content_packages)
 export(get_content_permissions)
 export(get_content_tags)

NEWS.md

@@ -9,6 +9,8 @@
 - New functions allow you to manage the OAuth integrations on your Connect
   server: `create_integration()`, `update_integration()` and
   `delete_integration()`. (#434)
+- New `get_content_list()` function retrieves a list of content items associated with
+  a specific OAuth integration. (#433)
 
 # connectapi 0.8.0
 

R/integrations.R

@@ -286,6 +286,57 @@ set_integrations <- function(content, integrations) {
   invisible(NULL)
 }
 
+
+#' Get content items using an OAuth integration
+#'
+#' @description
+#' Retrieves a list of content items that are associated with a specific OAuth
+#' integration.
+#'
+#' You must have administrator privileges to use this function.
+#'
+#' @param x A `connect_integration` object (as returned by [get_integrations()],
+#'   [get_integration()], [create_integration()], or [update_integration()]).
+#'
+#' @return A list of `Content` R6 objects representing all pieces of content
+#' that use the specified OAuth integration. See [content_item()] for details
+#' on the object.
+#'
+#' @seealso
+#' [get_integrations()], [get_integration()], [get_associations()],
+#' [content_item()]
+#'
+#' @examples
+#' \dontrun{
+#' client <- connect()
+#'
+#' # Get an integration
+#' integration <- get_integration(client, "12345678-90ab-cdef-1234-567890abcdef")
+#'
+#' # Find all content using this integration
+#' content_using_integration <- get_content_list(integration)
+#' }
+#'
+#' @family oauth integration functions
+#' @export
+get_content_list <- function(x) {
+  if (!inherits(x, "connect_integration")) {
+    stop("'x' must be a 'connect_integration' object")
+  }
+  client <- attr(x, "client")
+  error_if_less_than(client$version, "2024.12.0")
+  assoc <- client$GET(v1_url(
+    "oauth",
+    "integrations",
+    x$guid,
+    "associations"
+  ))
+  purrr::map(
+    assoc,
+    ~ content_item(client, .x$content_guid)
+  )
+}
+
 #' Get OAuth associations for a piece of content
 #'
 #' @description

tests/testthat/2025.07.0/__api__/v1/oauth/integrations/0000001/associations.json

@@ -0,0 +1,12 @@
+[
+    {
+        "app_guid": "12345678",
+        "content_guid": "12345678",
+        "oauth_integration_guid": "0000001",
+        "oauth_integration_name": "Integration 1",
+        "oauth_integration_description": "This is the first description",
+        "oauth_integration_template": "template1",
+        "oauth_integration_auth_type": "Viewer",
+        "created_time": "2025-08-05T20:02:39Z"
+    }
+]

tests/testthat/test-integrations.R

@@ -285,3 +285,23 @@ with_mock_dir("2025.07.0", {
     expect_null(delete_integration(created))
   })
 })
+
+with_mock_dir("2025.07.0", {
+  test_that("get_content_list() gets content items for integration", {
+    client <- Connect$new(server = "https://connect.example", api_key = "fake")
+    integration <- get_integration(client, "0000001")
+    result <- get_content_list(integration)
+    expect_equal(length(result), 1)
+    expect_true(validate_R6_class(result[[1]], "Content"))
+    expect_equal(result[[1]]$content$name, "fake-app-2000")
+  })
+})
+
+test_that("get_content_list() errs with too-old Connect", {
+  client <- MockConnect$new("2024.11.1")
+  client$version
+  expect_error(
+    get_integrations(client),
+    "This feature requires Posit Connect version 2024.12.0 but you are using 2024.11.1"
+  )
+})