R/AuthApi.r
In looker/lookr: LookR
# Looker API 4.0 (Beta) Reference
#
# Welcome to the future! API 4.0 co-exists with APIs 3.1 and 3.0. (3.0 should no longer be used.) The \"beta\" tag means updates for API 4.0 may include breaking changes, but as always we will work to minimize them. ### Authorization The classic method of API authorization uses Looker **API3** credentials for authorization and access control. Looker admins can create API3 credentials on Looker's **Admin/Users** page. API 4.0 adds additional ways to authenticate API requests, including OAuth and CORS requests. For details, see [Looker API Authorization](https://looker.com/docs/r/api/authorization). ### API Explorer The API Explorer is a Looker-provided utility with many new and unique features for learning and using the Looker API and SDKs. It is a replacement for the 'api-docs' page currently provided on Looker instances. For details, see the [API Explorer documentation](https://looker.com/docs/r/api/explorer). ### Looker Language SDKs The Looker API is a RESTful system that should be usable by any programming language capable of making HTTPS requests. SDKs for a variety of programming languages are also provided to streamline using the API. Looker has an OpenSource [sdk-codegen project](https://github.com/looker-open-source/sdk-codegen) that provides several language SDKs. Language SDKs generated by `sdk-codegen` have an Authentication manager that can automatically authenticate API requests when needed. For details on available Looker SDKs, see [Looker API Client SDKs](https://looker.com/docs/r/api/client_sdks). ### API Versioning Future releases of Looker expand the latest API version release-by-release to securely expose more and more of the core power of the Looker platform to API client applications. API endpoints marked as \"beta\" may receive breaking changes without warning (but we will try to avoid doing that). Stable (non-beta) API endpoints should not receive breaking changes in future releases. For details, see [Looker API Versioning](https://looker.com/docs/r/api/versioning). ### In This Release API 4.0 version was introduced so we can make adjustments to API functions, parameters, and response types to fix bugs and inconsistencies. These changes fall outside the bounds of non-breaking additive changes we can make to our stable API 3.1. One benefit of these type adjustments in API 4.0 is dramatically better support for strongly typed languages like TypeScript, Kotlin, Swift, Go, C#, and more. While API 3.1 is still the de-facto Looker API (\"current\", \"stable\", \"default\", etc), the bulk of our development activity has shifted to API 4.0, where all new features are added. The API Explorer can be used to [interactively compare](https://looker.com/docs/r/api/explorer#comparing_api_versions) the differences between API 3.1 and 4.0. ### API and SDK Support Policies Looker API versions and language SDKs have varying support levels. Please read the API and SDK [support policies](https://looker.com/docs/r/api/support-policy) for more information.
#
# OpenAPI spec version: 4.0.21.18
#
# Generated by: https://github.com/swagger-api/swagger-codegen.git
#' @title Auth operations
#' @description looker.Auth
#'
#' @field path Stores url path of the request.
#' @field apiClient Handles the client-server communication.
#' @field userAgent Set the user agent of the request.
#'
#' @importFrom R6 R6Class
#'
#' @section Methods:
#' \describe{
#'
#' activate_app_user Activate OAuth App User
#'
#'
#' all_oauth_client_apps Get All OAuth Client Apps
#'
#'
#' all_user_login_lockouts Get All User Login Lockouts
#'
#'
#' create_embed_url_as_me Create Embed URL
#'
#'
#' create_oidc_test_config Create OIDC Test Configuration
#'
#'
#' create_saml_test_config Create SAML Test Configuration
#'
#'
#' create_sso_embed_url Create SSO Embed Url
#'
#'
#' deactivate_app_user Deactivate OAuth App User
#'
#'
#' delete_oauth_client_app Delete OAuth Client App
#'
#'
#' delete_oidc_test_config Delete OIDC Test Configuration
#'
#'
#' delete_saml_test_config Delete SAML Test Configuration
#'
#'
#' delete_user_login_lockout Delete User Login Lockout
#'
#'
#' fetch_and_parse_saml_idp_metadata Parse SAML IdP Url
#'
#'
#' force_password_reset_at_next_login_for_all_users Force password reset
#'
#'
#' invalidate_tokens Invalidate Tokens
#'
#'
#' ldap_config Get LDAP Configuration
#'
#'
#' oauth_client_app Get OAuth Client App
#'
#'
#' oidc_config Get OIDC Configuration
#'
#'
#' oidc_test_config Get OIDC Test Configuration
#'
#'
#' parse_saml_idp_metadata Parse SAML IdP XML
#'
#'
#' password_config Get Password Config
#'
#'
#' register_oauth_client_app Register OAuth App
#'
#'
#' saml_config Get SAML Configuration
#'
#'
#' saml_test_config Get SAML Test Configuration
#'
#'
#' search_user_login_lockouts Search User Login Lockouts
#'
#'
#' session_config Get Session Config
#'
#'
#' test_ldap_config_auth Test LDAP Auth
#'
#'
#' test_ldap_config_connection Test LDAP Connection
#'
#'
#' test_ldap_config_user_auth Test LDAP User Auth
#'
#'
#' test_ldap_config_user_info Test LDAP User Info
#'
#'
#' update_ldap_config Update LDAP Configuration
#'
#'
#' update_oauth_client_app Update OAuth App
#'
#'
#' update_oidc_config Update OIDC Configuration
#'
#'
#' update_password_config Update Password Config
#'
#'
#' update_saml_config Update SAML Configuration
#'
#'
#' update_session_config Update Session Config
#'
#' }
#'
#' @export
AuthApi <- R6::R6Class(
'AuthApi',
public = list(
userAgent = "R-SDK",
apiClient = NULL,
initialize = function(apiClient){
if (!missing(apiClient)) {
self$apiClient <- apiClient
}
else {
self$apiClient <- ApiClient$new()
}
},
activate_app_user = function(client_guid, user_id, fields, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`fields`)) {
queryParams['fields'] <- fields
}
urlPath <- "/oauth_client_apps/{client_guid}/users/{user_id}"
if (!missing(`client_guid`)) {
urlPath <- gsub(paste0("\\{", "client_guid", "\\}"), `client_guid`, urlPath)
}
if (!missing(`user_id`)) {
urlPath <- gsub(paste0("\\{", "user_id", "\\}"), `user_id`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "POST",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- Character$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- Character$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
all_oauth_client_apps = function(fields, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`fields`)) {
queryParams['fields'] <- fields
}
urlPath <- "/oauth_client_apps"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- OauthClientApp$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- OauthClientApp$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
all_user_login_lockouts = function(fields, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`fields`)) {
queryParams['fields'] <- fields
}
urlPath <- "/user_login_lockouts"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- UserLoginLockout$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- UserLoginLockout$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
create_embed_url_as_me = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/embed/token_url/me"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "POST",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- EmbedUrlResponse$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- EmbedUrlResponse$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
create_oidc_test_config = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/oidc_test_configs"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "POST",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- OIDCConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- OIDCConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
create_saml_test_config = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/saml_test_configs"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "POST",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- SamlConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- SamlConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
create_sso_embed_url = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/embed/sso_url"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "POST",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- EmbedUrlResponse$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- EmbedUrlResponse$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
deactivate_app_user = function(client_guid, user_id, fields, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`fields`)) {
queryParams['fields'] <- fields
}
urlPath <- "/oauth_client_apps/{client_guid}/users/{user_id}"
if (!missing(`client_guid`)) {
urlPath <- gsub(paste0("\\{", "client_guid", "\\}"), `client_guid`, urlPath)
}
if (!missing(`user_id`)) {
urlPath <- gsub(paste0("\\{", "user_id", "\\}"), `user_id`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "DELETE",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- Character$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- Character$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
delete_oauth_client_app = function(client_guid, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/oauth_client_apps/{client_guid}"
if (!missing(`client_guid`)) {
urlPath <- gsub(paste0("\\{", "client_guid", "\\}"), `client_guid`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "DELETE",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- Character$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- Character$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
delete_oidc_test_config = function(test_slug, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/oidc_test_configs/{test_slug}"
if (!missing(`test_slug`)) {
urlPath <- gsub(paste0("\\{", "test_slug", "\\}"), `test_slug`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "DELETE",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- Character$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- Character$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
delete_saml_test_config = function(test_slug, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/saml_test_configs/{test_slug}"
if (!missing(`test_slug`)) {
urlPath <- gsub(paste0("\\{", "test_slug", "\\}"), `test_slug`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "DELETE",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- Character$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- Character$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
delete_user_login_lockout = function(key, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/user_login_lockout/{key}"
if (!missing(`key`)) {
urlPath <- gsub(paste0("\\{", "key", "\\}"), `key`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "DELETE",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- Character$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- Character$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
fetch_and_parse_saml_idp_metadata = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/fetch_and_parse_saml_idp_metadata"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "POST",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- SamlMetadataParseResult$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- SamlMetadataParseResult$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
force_password_reset_at_next_login_for_all_users = function(...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/password_config/force_password_reset_at_next_login_for_all_users"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PUT",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- Character$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- Character$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
invalidate_tokens = function(client_guid, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/oauth_client_apps/{client_guid}/tokens"
if (!missing(`client_guid`)) {
urlPath <- gsub(paste0("\\{", "client_guid", "\\}"), `client_guid`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "DELETE",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- Character$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- Character$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
ldap_config = function(...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/ldap_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- LDAPConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- LDAPConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
oauth_client_app = function(client_guid, fields, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`fields`)) {
queryParams['fields'] <- fields
}
urlPath <- "/oauth_client_apps/{client_guid}"
if (!missing(`client_guid`)) {
urlPath <- gsub(paste0("\\{", "client_guid", "\\}"), `client_guid`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- OauthClientApp$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- OauthClientApp$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
oidc_config = function(...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/oidc_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- OIDCConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- OIDCConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
oidc_test_config = function(test_slug, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/oidc_test_configs/{test_slug}"
if (!missing(`test_slug`)) {
urlPath <- gsub(paste0("\\{", "test_slug", "\\}"), `test_slug`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- OIDCConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- OIDCConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
parse_saml_idp_metadata = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/parse_saml_idp_metadata"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "POST",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- SamlMetadataParseResult$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- SamlMetadataParseResult$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
password_config = function(...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/password_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- PasswordConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- PasswordConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
register_oauth_client_app = function(client_guid, body, fields, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`fields`)) {
queryParams['fields'] <- fields
}
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/oauth_client_apps/{client_guid}"
if (!missing(`client_guid`)) {
urlPath <- gsub(paste0("\\{", "client_guid", "\\}"), `client_guid`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "POST",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- OauthClientApp$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- OauthClientApp$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
saml_config = function(...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/saml_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- SamlConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- SamlConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
saml_test_config = function(test_slug, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/saml_test_configs/{test_slug}"
if (!missing(`test_slug`)) {
urlPath <- gsub(paste0("\\{", "test_slug", "\\}"), `test_slug`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- SamlConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- SamlConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
search_user_login_lockouts = function(fields, page, per_page, sorts, auth_type, full_name, email, remote_id, filter_or, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`fields`)) {
queryParams['fields'] <- fields
}
if (!missing(`page`)) {
queryParams['page'] <- page
}
if (!missing(`per_page`)) {
queryParams['per_page'] <- per_page
}
if (!missing(`sorts`)) {
queryParams['sorts'] <- sorts
}
if (!missing(`auth_type`)) {
queryParams['auth_type'] <- auth_type
}
if (!missing(`full_name`)) {
queryParams['full_name'] <- full_name
}
if (!missing(`email`)) {
queryParams['email'] <- email
}
if (!missing(`remote_id`)) {
queryParams['remote_id'] <- remote_id
}
if (!missing(`filter_or`)) {
queryParams['filter_or'] <- filter_or
}
urlPath <- "/user_login_lockouts/search"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- UserLoginLockout$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- UserLoginLockout$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
session_config = function(...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/session_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- SessionConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- SessionConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
test_ldap_config_auth = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/ldap_config/test_auth"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PUT",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- LDAPConfigTestResult$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- LDAPConfigTestResult$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
test_ldap_config_connection = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/ldap_config/test_connection"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PUT",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- LDAPConfigTestResult$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- LDAPConfigTestResult$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
test_ldap_config_user_auth = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/ldap_config/test_user_auth"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PUT",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- LDAPConfigTestResult$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- LDAPConfigTestResult$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
test_ldap_config_user_info = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/ldap_config/test_user_info"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PUT",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- LDAPConfigTestResult$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- LDAPConfigTestResult$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
update_ldap_config = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/ldap_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PATCH",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- LDAPConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- LDAPConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
update_oauth_client_app = function(client_guid, body, fields, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`fields`)) {
queryParams['fields'] <- fields
}
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/oauth_client_apps/{client_guid}"
if (!missing(`client_guid`)) {
urlPath <- gsub(paste0("\\{", "client_guid", "\\}"), `client_guid`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PATCH",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- OauthClientApp$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- OauthClientApp$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
update_oidc_config = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/oidc_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PATCH",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- OIDCConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- OIDCConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
update_password_config = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/password_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PATCH",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- PasswordConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- PasswordConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
update_saml_config = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/saml_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PATCH",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- SamlConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- SamlConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
update_session_config = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/session_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PATCH",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- SessionConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- SessionConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
}
)
)
looker/lookr documentation built on Jan. 15, 2024, 2:49 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
# Looker API 4.0 (Beta) Reference
#
# Welcome to the future! API 4.0 co-exists with APIs 3.1 and 3.0. (3.0 should no longer be used.) The \"beta\" tag means updates for API 4.0 may include breaking changes, but as always we will work to minimize them. ### Authorization The classic method of API authorization uses Looker **API3** credentials for authorization and access control. Looker admins can create API3 credentials on Looker's **Admin/Users** page. API 4.0 adds additional ways to authenticate API requests, including OAuth and CORS requests. For details, see [Looker API Authorization](https://looker.com/docs/r/api/authorization). ### API Explorer The API Explorer is a Looker-provided utility with many new and unique features for learning and using the Looker API and SDKs. It is a replacement for the 'api-docs' page currently provided on Looker instances. For details, see the [API Explorer documentation](https://looker.com/docs/r/api/explorer). ### Looker Language SDKs The Looker API is a RESTful system that should be usable by any programming language capable of making HTTPS requests. SDKs for a variety of programming languages are also provided to streamline using the API. Looker has an OpenSource [sdk-codegen project](https://github.com/looker-open-source/sdk-codegen) that provides several language SDKs. Language SDKs generated by `sdk-codegen` have an Authentication manager that can automatically authenticate API requests when needed. For details on available Looker SDKs, see [Looker API Client SDKs](https://looker.com/docs/r/api/client_sdks). ### API Versioning Future releases of Looker expand the latest API version release-by-release to securely expose more and more of the core power of the Looker platform to API client applications. API endpoints marked as \"beta\" may receive breaking changes without warning (but we will try to avoid doing that). Stable (non-beta) API endpoints should not receive breaking changes in future releases. For details, see [Looker API Versioning](https://looker.com/docs/r/api/versioning). ### In This Release API 4.0 version was introduced so we can make adjustments to API functions, parameters, and response types to fix bugs and inconsistencies. These changes fall outside the bounds of non-breaking additive changes we can make to our stable API 3.1. One benefit of these type adjustments in API 4.0 is dramatically better support for strongly typed languages like TypeScript, Kotlin, Swift, Go, C#, and more. While API 3.1 is still the de-facto Looker API (\"current\", \"stable\", \"default\", etc), the bulk of our development activity has shifted to API 4.0, where all new features are added. The API Explorer can be used to [interactively compare](https://looker.com/docs/r/api/explorer#comparing_api_versions) the differences between API 3.1 and 4.0. ### API and SDK Support Policies Looker API versions and language SDKs have varying support levels. Please read the API and SDK [support policies](https://looker.com/docs/r/api/support-policy) for more information.
#
# OpenAPI spec version: 4.0.21.18
#
# Generated by: https://github.com/swagger-api/swagger-codegen.git
#' @title Auth operations
#' @description looker.Auth
#'
#' @field path Stores url path of the request.
#' @field apiClient Handles the client-server communication.
#' @field userAgent Set the user agent of the request.
#'
#' @importFrom R6 R6Class
#'
#' @section Methods:
#' \describe{
#'
#' activate_app_user Activate OAuth App User
#'
#'
#' all_oauth_client_apps Get All OAuth Client Apps
#'
#'
#' all_user_login_lockouts Get All User Login Lockouts
#'
#'
#' create_embed_url_as_me Create Embed URL
#'
#'
#' create_oidc_test_config Create OIDC Test Configuration
#'
#'
#' create_saml_test_config Create SAML Test Configuration
#'
#'
#' create_sso_embed_url Create SSO Embed Url
#'
#'
#' deactivate_app_user Deactivate OAuth App User
#'
#'
#' delete_oauth_client_app Delete OAuth Client App
#'
#'
#' delete_oidc_test_config Delete OIDC Test Configuration
#'
#'
#' delete_saml_test_config Delete SAML Test Configuration
#'
#'
#' delete_user_login_lockout Delete User Login Lockout
#'
#'
#' fetch_and_parse_saml_idp_metadata Parse SAML IdP Url
#'
#'
#' force_password_reset_at_next_login_for_all_users Force password reset
#'
#'
#' invalidate_tokens Invalidate Tokens
#'
#'
#' ldap_config Get LDAP Configuration
#'
#'
#' oauth_client_app Get OAuth Client App
#'
#'
#' oidc_config Get OIDC Configuration
#'
#'
#' oidc_test_config Get OIDC Test Configuration
#'
#'
#' parse_saml_idp_metadata Parse SAML IdP XML
#'
#'
#' password_config Get Password Config
#'
#'
#' register_oauth_client_app Register OAuth App
#'
#'
#' saml_config Get SAML Configuration
#'
#'
#' saml_test_config Get SAML Test Configuration
#'
#'
#' search_user_login_lockouts Search User Login Lockouts
#'
#'
#' session_config Get Session Config
#'
#'
#' test_ldap_config_auth Test LDAP Auth
#'
#'
#' test_ldap_config_connection Test LDAP Connection
#'
#'
#' test_ldap_config_user_auth Test LDAP User Auth
#'
#'
#' test_ldap_config_user_info Test LDAP User Info
#'
#'
#' update_ldap_config Update LDAP Configuration
#'
#'
#' update_oauth_client_app Update OAuth App
#'
#'
#' update_oidc_config Update OIDC Configuration
#'
#'
#' update_password_config Update Password Config
#'
#'
#' update_saml_config Update SAML Configuration
#'
#'
#' update_session_config Update Session Config
#'
#' }
#'
#' @export
AuthApi <- R6::R6Class(
'AuthApi',
public = list(
userAgent = "R-SDK",
apiClient = NULL,
initialize = function(apiClient){
if (!missing(apiClient)) {
self$apiClient <- apiClient
}
else {
self$apiClient <- ApiClient$new()
}
},
activate_app_user = function(client_guid, user_id, fields, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`fields`)) {
queryParams['fields'] <- fields
}
urlPath <- "/oauth_client_apps/{client_guid}/users/{user_id}"
if (!missing(`client_guid`)) {
urlPath <- gsub(paste0("\\{", "client_guid", "\\}"), `client_guid`, urlPath)
}
if (!missing(`user_id`)) {
urlPath <- gsub(paste0("\\{", "user_id", "\\}"), `user_id`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "POST",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- Character$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- Character$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
all_oauth_client_apps = function(fields, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`fields`)) {
queryParams['fields'] <- fields
}
urlPath <- "/oauth_client_apps"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- OauthClientApp$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- OauthClientApp$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
all_user_login_lockouts = function(fields, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`fields`)) {
queryParams['fields'] <- fields
}
urlPath <- "/user_login_lockouts"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- UserLoginLockout$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- UserLoginLockout$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
create_embed_url_as_me = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/embed/token_url/me"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "POST",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- EmbedUrlResponse$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- EmbedUrlResponse$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
create_oidc_test_config = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/oidc_test_configs"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "POST",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- OIDCConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- OIDCConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
create_saml_test_config = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/saml_test_configs"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "POST",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- SamlConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- SamlConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
create_sso_embed_url = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/embed/sso_url"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "POST",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- EmbedUrlResponse$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- EmbedUrlResponse$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
deactivate_app_user = function(client_guid, user_id, fields, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`fields`)) {
queryParams['fields'] <- fields
}
urlPath <- "/oauth_client_apps/{client_guid}/users/{user_id}"
if (!missing(`client_guid`)) {
urlPath <- gsub(paste0("\\{", "client_guid", "\\}"), `client_guid`, urlPath)
}
if (!missing(`user_id`)) {
urlPath <- gsub(paste0("\\{", "user_id", "\\}"), `user_id`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "DELETE",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- Character$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- Character$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
delete_oauth_client_app = function(client_guid, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/oauth_client_apps/{client_guid}"
if (!missing(`client_guid`)) {
urlPath <- gsub(paste0("\\{", "client_guid", "\\}"), `client_guid`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "DELETE",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- Character$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- Character$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
delete_oidc_test_config = function(test_slug, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/oidc_test_configs/{test_slug}"
if (!missing(`test_slug`)) {
urlPath <- gsub(paste0("\\{", "test_slug", "\\}"), `test_slug`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "DELETE",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- Character$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- Character$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
delete_saml_test_config = function(test_slug, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/saml_test_configs/{test_slug}"
if (!missing(`test_slug`)) {
urlPath <- gsub(paste0("\\{", "test_slug", "\\}"), `test_slug`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "DELETE",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- Character$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- Character$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
delete_user_login_lockout = function(key, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/user_login_lockout/{key}"
if (!missing(`key`)) {
urlPath <- gsub(paste0("\\{", "key", "\\}"), `key`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "DELETE",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- Character$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- Character$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
fetch_and_parse_saml_idp_metadata = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/fetch_and_parse_saml_idp_metadata"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "POST",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- SamlMetadataParseResult$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- SamlMetadataParseResult$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
force_password_reset_at_next_login_for_all_users = function(...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/password_config/force_password_reset_at_next_login_for_all_users"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PUT",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- Character$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- Character$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
invalidate_tokens = function(client_guid, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/oauth_client_apps/{client_guid}/tokens"
if (!missing(`client_guid`)) {
urlPath <- gsub(paste0("\\{", "client_guid", "\\}"), `client_guid`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "DELETE",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- Character$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- Character$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
ldap_config = function(...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/ldap_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- LDAPConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- LDAPConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
oauth_client_app = function(client_guid, fields, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`fields`)) {
queryParams['fields'] <- fields
}
urlPath <- "/oauth_client_apps/{client_guid}"
if (!missing(`client_guid`)) {
urlPath <- gsub(paste0("\\{", "client_guid", "\\}"), `client_guid`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- OauthClientApp$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- OauthClientApp$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
oidc_config = function(...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/oidc_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- OIDCConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- OIDCConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
oidc_test_config = function(test_slug, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/oidc_test_configs/{test_slug}"
if (!missing(`test_slug`)) {
urlPath <- gsub(paste0("\\{", "test_slug", "\\}"), `test_slug`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- OIDCConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- OIDCConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
parse_saml_idp_metadata = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/parse_saml_idp_metadata"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "POST",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- SamlMetadataParseResult$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- SamlMetadataParseResult$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
password_config = function(...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/password_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- PasswordConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- PasswordConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
register_oauth_client_app = function(client_guid, body, fields, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`fields`)) {
queryParams['fields'] <- fields
}
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/oauth_client_apps/{client_guid}"
if (!missing(`client_guid`)) {
urlPath <- gsub(paste0("\\{", "client_guid", "\\}"), `client_guid`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "POST",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- OauthClientApp$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- OauthClientApp$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
saml_config = function(...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/saml_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- SamlConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- SamlConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
saml_test_config = function(test_slug, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/saml_test_configs/{test_slug}"
if (!missing(`test_slug`)) {
urlPath <- gsub(paste0("\\{", "test_slug", "\\}"), `test_slug`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- SamlConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- SamlConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
search_user_login_lockouts = function(fields, page, per_page, sorts, auth_type, full_name, email, remote_id, filter_or, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`fields`)) {
queryParams['fields'] <- fields
}
if (!missing(`page`)) {
queryParams['page'] <- page
}
if (!missing(`per_page`)) {
queryParams['per_page'] <- per_page
}
if (!missing(`sorts`)) {
queryParams['sorts'] <- sorts
}
if (!missing(`auth_type`)) {
queryParams['auth_type'] <- auth_type
}
if (!missing(`full_name`)) {
queryParams['full_name'] <- full_name
}
if (!missing(`email`)) {
queryParams['email'] <- email
}
if (!missing(`remote_id`)) {
queryParams['remote_id'] <- remote_id
}
if (!missing(`filter_or`)) {
queryParams['filter_or'] <- filter_or
}
urlPath <- "/user_login_lockouts/search"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- UserLoginLockout$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- UserLoginLockout$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
session_config = function(...){
args <- list(...)
queryParams <- list()
headerParams <- character()
urlPath <- "/session_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "GET",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- SessionConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- SessionConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
test_ldap_config_auth = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/ldap_config/test_auth"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PUT",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- LDAPConfigTestResult$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- LDAPConfigTestResult$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
test_ldap_config_connection = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/ldap_config/test_connection"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PUT",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- LDAPConfigTestResult$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- LDAPConfigTestResult$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
test_ldap_config_user_auth = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/ldap_config/test_user_auth"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PUT",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- LDAPConfigTestResult$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- LDAPConfigTestResult$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
test_ldap_config_user_info = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/ldap_config/test_user_info"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PUT",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- LDAPConfigTestResult$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- LDAPConfigTestResult$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
update_ldap_config = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/ldap_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PATCH",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- LDAPConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- LDAPConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
update_oauth_client_app = function(client_guid, body, fields, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`fields`)) {
queryParams['fields'] <- fields
}
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/oauth_client_apps/{client_guid}"
if (!missing(`client_guid`)) {
urlPath <- gsub(paste0("\\{", "client_guid", "\\}"), `client_guid`, urlPath)
}
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PATCH",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- OauthClientApp$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- OauthClientApp$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
update_oidc_config = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/oidc_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PATCH",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- OIDCConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- OIDCConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
update_password_config = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/password_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PATCH",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- PasswordConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- PasswordConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
update_saml_config = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/saml_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PATCH",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- SamlConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- SamlConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
},
update_session_config = function(body, ...){
args <- list(...)
queryParams <- list()
headerParams <- character()
if (!missing(`body`)) {
body <- `body`$toJSONString()
} else {
body <- NULL
}
urlPath <- "/session_config"
resp <- self$apiClient$callApi(url = paste0(self$apiClient$basePath, urlPath),
method = "PATCH",
queryParams = queryParams,
headerParams = headerParams,
body = body,
...)
if (httr::status_code(resp) >= 200 && httr::status_code(resp) <= 299) {
data <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),simplifyVector = FALSE)
if (is.null(names(data))) {
returnObjects <- lapply(data, function(x) {
returnObject <- SessionConfig$new()
#returnObject$fromJSON(jsonlite::toJSON(x, auto_unbox = FALSE))
returnObject$fromJSONObject(x)
returnObject
})
Response$new(returnObjects, resp)
} else {
returnObject <- SessionConfig$new()
#result <- returnObject$fromJSON(httr::content(resp, "text", encoding = "UTF-8"))
result <- returnObject$fromJSONObject(data)
Response$new(returnObject, resp)
}
} else if (httr::status_code(resp) >= 400 && httr::status_code(resp) <= 499) {
Response$new("API client error", resp)
} else if (httr::status_code(resp) >= 500 && httr::status_code(resp) <= 599) {
Response$new("API server error", resp)
}
}
)
)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.