R/cognito_idp.R

In precision-analytics/precisely.aws: Precisely AWS Utilities

#' Retrieves a list of the usernames of the users in a given Cognito group.
#'
#' @export
#'
#' @param userPoolId The Cognito User Pool ID.
#' @param groupName The name of the Cognito group.
#'
#' @return A character vector of the usernames of the users in the group.
#'
#' @importFrom jsonlite fromJSON
precisely.aws.CognitoIdp.getUsersInGroup <- function(userPoolId, groupName) {
  args <- c("cognito-idp",
            "list-users-in-group",
            "--user-pool-id", userPoolId,
            "--group-name", groupName)

  output <- execute_aws_cmd(args)

  jsonOutput <- tryCatch(
    {
      fromJSON(output)
    },
    error = function(cond) {
      stop("failed to parse aws cognito-idp output into json, failing")
    }
  )

  jsonOutput$Users$Username
}