#' api_client_authorizations.create is a method defined in Arvados class.
#'
-#' @usage arv$api_client_authorizations.create(api_client_authorization,
+#' @usage arv$api_client_authorizations.create(apiclientauthorization,
#' ensure_unique_name = "false")
#' @param apiClientAuthorization ApiClientAuthorization object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' api_client_authorizations.update is a method defined in Arvados class.
#'
-#' @usage arv$api_client_authorizations.update(api_client_authorization,
+#' @usage arv$api_client_authorizations.update(apiclientauthorization,
#' uuid)
#' @param apiClientAuthorization ApiClientAuthorization object.
#' @param uuid The UUID of the ApiClientAuthorization in question.
#' api_clients.create is a method defined in Arvados class.
#'
-#' @usage arv$api_clients.create(api_client,
+#' @usage arv$api_clients.create(apiclient,
#' ensure_unique_name = "false")
#' @param apiClient ApiClient object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' api_clients.update is a method defined in Arvados class.
#'
-#' @usage arv$api_clients.update(api_client,
+#' @usage arv$api_clients.update(apiclient,
#' uuid)
#' @param apiClient ApiClient object.
#' @param uuid The UUID of the ApiClient in question.
#' container_requests.create is a method defined in Arvados class.
#'
-#' @usage arv$container_requests.create(container_request,
+#' @usage arv$container_requests.create(containerrequest,
#' ensure_unique_name = "false")
#' @param containerRequest ContainerRequest object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' container_requests.update is a method defined in Arvados class.
#'
-#' @usage arv$container_requests.update(container_request,
+#' @usage arv$container_requests.update(containerrequest,
#' uuid)
#' @param containerRequest ContainerRequest object.
#' @param uuid The UUID of the ContainerRequest in question.
#' authorized_keys.create is a method defined in Arvados class.
#'
-#' @usage arv$authorized_keys.create(authorized_key,
+#' @usage arv$authorized_keys.create(authorizedkey,
#' ensure_unique_name = "false")
#' @param authorizedKey AuthorizedKey object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' authorized_keys.update is a method defined in Arvados class.
#'
-#' @usage arv$authorized_keys.update(authorized_key,
+#' @usage arv$authorized_keys.update(authorizedkey,
#' uuid)
#' @param authorizedKey AuthorizedKey object.
#' @param uuid The UUID of the AuthorizedKey in question.
#' job_tasks.create is a method defined in Arvados class.
#'
-#' @usage arv$job_tasks.create(job_task,
-#' ensure_unique_name = "false")
+#' @usage arv$job_tasks.create(jobtask, ensure_unique_name = "false")
#' @param jobTask JobTask object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' @return JobTask object.
#' job_tasks.update is a method defined in Arvados class.
#'
-#' @usage arv$job_tasks.update(job_task,
-#' uuid)
+#' @usage arv$job_tasks.update(jobtask, uuid)
#' @param jobTask JobTask object.
#' @param uuid The UUID of the JobTask in question.
#' @return JobTask object.
#' keep_disks.create is a method defined in Arvados class.
#'
-#' @usage arv$keep_disks.create(keep_disk,
+#' @usage arv$keep_disks.create(keepdisk,
#' ensure_unique_name = "false")
#' @param keepDisk KeepDisk object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' keep_disks.update is a method defined in Arvados class.
#'
-#' @usage arv$keep_disks.update(keep_disk,
+#' @usage arv$keep_disks.update(keepdisk,
#' uuid)
#' @param keepDisk KeepDisk object.
#' @param uuid The UUID of the KeepDisk in question.
#' keep_services.create is a method defined in Arvados class.
#'
-#' @usage arv$keep_services.create(keep_service,
+#' @usage arv$keep_services.create(keepservice,
#' ensure_unique_name = "false")
#' @param keepService KeepService object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' keep_services.update is a method defined in Arvados class.
#'
-#' @usage arv$keep_services.update(keep_service,
+#' @usage arv$keep_services.update(keepservice,
#' uuid)
#' @param keepService KeepService object.
#' @param uuid The UUID of the KeepService in question.
#' pipeline_templates.create is a method defined in Arvados class.
#'
-#' @usage arv$pipeline_templates.create(pipeline_template,
+#' @usage arv$pipeline_templates.create(pipelinetemplate,
#' ensure_unique_name = "false")
#' @param pipelineTemplate PipelineTemplate object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' pipeline_templates.update is a method defined in Arvados class.
#'
-#' @usage arv$pipeline_templates.update(pipeline_template,
+#' @usage arv$pipeline_templates.update(pipelinetemplate,
#' uuid)
#' @param pipelineTemplate PipelineTemplate object.
#' @param uuid The UUID of the PipelineTemplate in question.
#' pipeline_instances.create is a method defined in Arvados class.
#'
-#' @usage arv$pipeline_instances.create(pipeline_instance,
+#' @usage arv$pipeline_instances.create(pipelineinstance,
#' ensure_unique_name = "false")
#' @param pipelineInstance PipelineInstance object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' pipeline_instances.update is a method defined in Arvados class.
#'
-#' @usage arv$pipeline_instances.update(pipeline_instance,
+#' @usage arv$pipeline_instances.update(pipelineinstance,
#' uuid)
#' @param pipelineInstance PipelineInstance object.
#' @param uuid The UUID of the PipelineInstance in question.
#' virtual_machines.create is a method defined in Arvados class.
#'
-#' @usage arv$virtual_machines.create(virtual_machine,
+#' @usage arv$virtual_machines.create(virtualmachine,
#' ensure_unique_name = "false")
#' @param virtualMachine VirtualMachine object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' virtual_machines.update is a method defined in Arvados class.
#'
-#' @usage arv$virtual_machines.update(virtual_machine,
+#' @usage arv$virtual_machines.update(virtualmachine,
#' uuid)
#' @param virtualMachine VirtualMachine object.
#' @param uuid The UUID of the VirtualMachine in question.
#' user_agreements.create is a method defined in Arvados class.
#'
-#' @usage arv$user_agreements.create(user_agreement,
+#' @usage arv$user_agreements.create(useragreement,
#' ensure_unique_name = "false")
#' @param userAgreement UserAgreement object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' user_agreements.update is a method defined in Arvados class.
#'
-#' @usage arv$user_agreements.update(user_agreement,
+#' @usage arv$user_agreements.update(useragreement,
#' uuid)
#' @param userAgreement UserAgreement object.
#' @param uuid The UUID of the UserAgreement in question.
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- User$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, email = resource$email,
- first_name = resource$first_name, last_name = resource$last_name,
- identity_url = resource$identity_url, is_admin = resource$is_admin,
- prefs = resource$prefs, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- is_active = resource$is_active, username = resource$username)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
users.index = function(filters = NULL, where = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- UserList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
users.create = function(user, ensure_unique_name = "false")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- user$toJSON()
+
+ if(length(user) > 0)
+ body <- jsonlite::toJSON(list(user = user),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- User$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, email = resource$email,
- first_name = resource$first_name, last_name = resource$last_name,
- identity_url = resource$identity_url, is_admin = resource$is_admin,
- prefs = resource$prefs, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- is_active = resource$is_active, username = resource$username)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
users.update = function(user, uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- user$toJSON()
+ queryArgs <- NULL
+
+ if(length(user) > 0)
+ body <- jsonlite::toJSON(list(user = user),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- User$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, email = resource$email,
- first_name = resource$first_name, last_name = resource$last_name,
- identity_url = resource$identity_url, is_admin = resource$is_admin,
- prefs = resource$prefs, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- is_active = resource$is_active, username = resource$username)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
users.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- User$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, email = resource$email,
- first_name = resource$first_name, last_name = resource$last_name,
- identity_url = resource$identity_url, is_admin = resource$is_admin,
- prefs = resource$prefs, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- is_active = resource$is_active, username = resource$username)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
users.current = function()
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- User$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, email = resource$email,
- first_name = resource$first_name, last_name = resource$last_name,
- identity_url = resource$identity_url, is_admin = resource$is_admin,
- prefs = resource$prefs, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- is_active = resource$is_active, username = resource$username)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
users.system = function()
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- User$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, email = resource$email,
- first_name = resource$first_name, last_name = resource$last_name,
- identity_url = resource$identity_url, is_admin = resource$is_admin,
- prefs = resource$prefs, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- is_active = resource$is_active, username = resource$username)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
users.activate = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- User$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, email = resource$email,
- first_name = resource$first_name, last_name = resource$last_name,
- identity_url = resource$identity_url, is_admin = resource$is_admin,
- prefs = resource$prefs, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- is_active = resource$is_active, username = resource$username)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
users.setup = function(user = NULL, openid_prefix = NULL,
queryArgs <- list(user = user, openid_prefix = openid_prefix,
repo_name = repo_name, vm_uuid = vm_uuid,
send_notification_email = send_notification_email)
+
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- User$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, email = resource$email,
- first_name = resource$first_name, last_name = resource$last_name,
- identity_url = resource$identity_url, is_admin = resource$is_admin,
- prefs = resource$prefs, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- is_active = resource$is_active, username = resource$username)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
users.unsetup = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- User$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, email = resource$email,
- first_name = resource$first_name, last_name = resource$last_name,
- identity_url = resource$identity_url, is_admin = resource$is_admin,
- prefs = resource$prefs, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- is_active = resource$is_active, username = resource$username)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
users.update_uuid = function(uuid, new_uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid, new_uuid = new_uuid)
+ queryArgs <- list(new_uuid = new_uuid)
+
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- User$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, email = resource$email,
- first_name = resource$first_name, last_name = resource$last_name,
- identity_url = resource$identity_url, is_admin = resource$is_admin,
- prefs = resource$prefs, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- is_active = resource$is_active, username = resource$username)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
users.list = function(filters = NULL, where = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- UserList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
users.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- User$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, email = resource$email,
- first_name = resource$first_name, last_name = resource$last_name,
- identity_url = resource$identity_url, is_admin = resource$is_admin,
- prefs = resource$prefs, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- is_active = resource$is_active, username = resource$username)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
users.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- User$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, email = resource$email,
- first_name = resource$first_name, last_name = resource$last_name,
- identity_url = resource$identity_url, is_admin = resource$is_admin,
- prefs = resource$prefs, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- is_active = resource$is_active, username = resource$username)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
api_client_authorizations.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClientAuthorization$new(uuid = resource$uuid,
- etag = resource$etag, api_token = resource$api_token,
- api_client_id = resource$api_client_id, user_id = resource$user_id,
- created_by_ip_address = resource$created_by_ip_address,
- last_used_by_ip_address = resource$last_used_by_ip_address,
- last_used_at = resource$last_used_at, expires_at = resource$expires_at,
- created_at = resource$created_at, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- scopes = resource$scopes)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
api_client_authorizations.index = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClientAuthorizationList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- api_client_authorizations.create = function(api_client_authorization,
+ api_client_authorizations.create = function(apiclientauthorization,
ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("api_client_authorizations")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- api_client_authorization$toJSON()
+
+ if(length(apiclientauthorization) > 0)
+ body <- jsonlite::toJSON(list(apiclientauthorization = apiclientauthorization),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClientAuthorization$new(uuid = resource$uuid,
- etag = resource$etag, api_token = resource$api_token,
- api_client_id = resource$api_client_id, user_id = resource$user_id,
- created_by_ip_address = resource$created_by_ip_address,
- last_used_by_ip_address = resource$last_used_by_ip_address,
- last_used_at = resource$last_used_at, expires_at = resource$expires_at,
- created_at = resource$created_at, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- scopes = resource$scopes)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- api_client_authorizations.update = function(api_client_authorization, uuid)
+ api_client_authorizations.update = function(apiclientauthorization, uuid)
{
endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- api_client_authorization$toJSON()
+ queryArgs <- NULL
+
+ if(length(apiclientauthorization) > 0)
+ body <- jsonlite::toJSON(list(apiclientauthorization = apiclientauthorization),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClientAuthorization$new(uuid = resource$uuid,
- etag = resource$etag, api_token = resource$api_token,
- api_client_id = resource$api_client_id, user_id = resource$user_id,
- created_by_ip_address = resource$created_by_ip_address,
- last_used_by_ip_address = resource$last_used_by_ip_address,
- last_used_at = resource$last_used_at, expires_at = resource$expires_at,
- created_at = resource$created_at, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- scopes = resource$scopes)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
api_client_authorizations.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClientAuthorization$new(uuid = resource$uuid,
- etag = resource$etag, api_token = resource$api_token,
- api_client_id = resource$api_client_id, user_id = resource$user_id,
- created_by_ip_address = resource$created_by_ip_address,
- last_used_by_ip_address = resource$last_used_by_ip_address,
- last_used_at = resource$last_used_at, expires_at = resource$expires_at,
- created_at = resource$created_at, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- scopes = resource$scopes)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
api_client_authorizations.create_system_auth = function(api_client_id = NULL, scopes = NULL)
"Content-Type" = "application/json")
queryArgs <- list(api_client_id = api_client_id,
scopes = scopes)
+
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClientAuthorization$new(uuid = resource$uuid,
- etag = resource$etag, api_token = resource$api_token,
- api_client_id = resource$api_client_id, user_id = resource$user_id,
- created_by_ip_address = resource$created_by_ip_address,
- last_used_by_ip_address = resource$last_used_by_ip_address,
- last_used_at = resource$last_used_at, expires_at = resource$expires_at,
- created_at = resource$created_at, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- scopes = resource$scopes)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
api_client_authorizations.current = function()
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClientAuthorization$new(uuid = resource$uuid,
- etag = resource$etag, api_token = resource$api_token,
- api_client_id = resource$api_client_id, user_id = resource$user_id,
- created_by_ip_address = resource$created_by_ip_address,
- last_used_by_ip_address = resource$last_used_by_ip_address,
- last_used_at = resource$last_used_at, expires_at = resource$expires_at,
- created_at = resource$created_at, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- scopes = resource$scopes)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
api_client_authorizations.list = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClientAuthorizationList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
api_client_authorizations.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClientAuthorization$new(uuid = resource$uuid,
- etag = resource$etag, api_token = resource$api_token,
- api_client_id = resource$api_client_id, user_id = resource$user_id,
- created_by_ip_address = resource$created_by_ip_address,
- last_used_by_ip_address = resource$last_used_by_ip_address,
- last_used_at = resource$last_used_at, expires_at = resource$expires_at,
- created_at = resource$created_at, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- scopes = resource$scopes)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
api_client_authorizations.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClientAuthorization$new(uuid = resource$uuid,
- etag = resource$etag, api_token = resource$api_token,
- api_client_id = resource$api_client_id, user_id = resource$user_id,
- created_by_ip_address = resource$created_by_ip_address,
- last_used_by_ip_address = resource$last_used_by_ip_address,
- last_used_at = resource$last_used_at, expires_at = resource$expires_at,
- created_at = resource$created_at, updated_at = resource$updated_at,
- default_owner_uuid = resource$default_owner_uuid,
- scopes = resource$scopes)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
api_clients.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClient$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- url_prefix = resource$url_prefix, created_at = resource$created_at,
- updated_at = resource$updated_at, is_trusted = resource$is_trusted)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
api_clients.index = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClientList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- api_clients.create = function(api_client, ensure_unique_name = "false")
+ api_clients.create = function(apiclient, ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("api_clients")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- api_client$toJSON()
+
+ if(length(apiclient) > 0)
+ body <- jsonlite::toJSON(list(apiclient = apiclient),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClient$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- url_prefix = resource$url_prefix, created_at = resource$created_at,
- updated_at = resource$updated_at, is_trusted = resource$is_trusted)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- api_clients.update = function(api_client, uuid)
+ api_clients.update = function(apiclient, uuid)
{
endPoint <- stringr::str_interp("api_clients/${uuid}")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- api_client$toJSON()
+ queryArgs <- NULL
+
+ if(length(apiclient) > 0)
+ body <- jsonlite::toJSON(list(apiclient = apiclient),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClient$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- url_prefix = resource$url_prefix, created_at = resource$created_at,
- updated_at = resource$updated_at, is_trusted = resource$is_trusted)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
api_clients.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClient$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- url_prefix = resource$url_prefix, created_at = resource$created_at,
- updated_at = resource$updated_at, is_trusted = resource$is_trusted)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
api_clients.list = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClientList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
api_clients.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClient$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- url_prefix = resource$url_prefix, created_at = resource$created_at,
- updated_at = resource$updated_at, is_trusted = resource$is_trusted)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
api_clients.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ApiClient$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- url_prefix = resource$url_prefix, created_at = resource$created_at,
- updated_at = resource$updated_at, is_trusted = resource$is_trusted)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
container_requests.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ContainerRequest$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- name = resource$name, description = resource$description,
- properties = resource$properties, state = resource$state,
- requesting_container_uuid = resource$requesting_container_uuid,
- container_uuid = resource$container_uuid,
- container_count_max = resource$container_count_max,
- mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
- container_image = resource$container_image,
- environment = resource$environment, cwd = resource$cwd,
- command = resource$command, output_path = resource$output_path,
- priority = resource$priority, expires_at = resource$expires_at,
- filters = resource$filters, updated_at = resource$updated_at,
- container_count = resource$container_count,
- use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
- output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
- output_name = resource$output_name, output_ttl = resource$output_ttl)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
container_requests.index = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ContainerRequestList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- container_requests.create = function(container_request,
+ container_requests.create = function(containerrequest,
ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("container_requests")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- container_request$toJSON()
+
+ if(length(containerrequest) > 0)
+ body <- jsonlite::toJSON(list(containerrequest = containerrequest),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ContainerRequest$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- name = resource$name, description = resource$description,
- properties = resource$properties, state = resource$state,
- requesting_container_uuid = resource$requesting_container_uuid,
- container_uuid = resource$container_uuid,
- container_count_max = resource$container_count_max,
- mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
- container_image = resource$container_image,
- environment = resource$environment, cwd = resource$cwd,
- command = resource$command, output_path = resource$output_path,
- priority = resource$priority, expires_at = resource$expires_at,
- filters = resource$filters, updated_at = resource$updated_at,
- container_count = resource$container_count,
- use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
- output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
- output_name = resource$output_name, output_ttl = resource$output_ttl)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- container_requests.update = function(container_request, uuid)
+ container_requests.update = function(containerrequest, uuid)
{
endPoint <- stringr::str_interp("container_requests/${uuid}")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- container_request$toJSON()
+ queryArgs <- NULL
+
+ if(length(containerrequest) > 0)
+ body <- jsonlite::toJSON(list(containerrequest = containerrequest),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ContainerRequest$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- name = resource$name, description = resource$description,
- properties = resource$properties, state = resource$state,
- requesting_container_uuid = resource$requesting_container_uuid,
- container_uuid = resource$container_uuid,
- container_count_max = resource$container_count_max,
- mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
- container_image = resource$container_image,
- environment = resource$environment, cwd = resource$cwd,
- command = resource$command, output_path = resource$output_path,
- priority = resource$priority, expires_at = resource$expires_at,
- filters = resource$filters, updated_at = resource$updated_at,
- container_count = resource$container_count,
- use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
- output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
- output_name = resource$output_name, output_ttl = resource$output_ttl)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
container_requests.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ContainerRequest$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- name = resource$name, description = resource$description,
- properties = resource$properties, state = resource$state,
- requesting_container_uuid = resource$requesting_container_uuid,
- container_uuid = resource$container_uuid,
- container_count_max = resource$container_count_max,
- mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
- container_image = resource$container_image,
- environment = resource$environment, cwd = resource$cwd,
- command = resource$command, output_path = resource$output_path,
- priority = resource$priority, expires_at = resource$expires_at,
- filters = resource$filters, updated_at = resource$updated_at,
- container_count = resource$container_count,
- use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
- output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
- output_name = resource$output_name, output_ttl = resource$output_ttl)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
container_requests.list = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ContainerRequestList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
container_requests.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ContainerRequest$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- name = resource$name, description = resource$description,
- properties = resource$properties, state = resource$state,
- requesting_container_uuid = resource$requesting_container_uuid,
- container_uuid = resource$container_uuid,
- container_count_max = resource$container_count_max,
- mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
- container_image = resource$container_image,
- environment = resource$environment, cwd = resource$cwd,
- command = resource$command, output_path = resource$output_path,
- priority = resource$priority, expires_at = resource$expires_at,
- filters = resource$filters, updated_at = resource$updated_at,
- container_count = resource$container_count,
- use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
- output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
- output_name = resource$output_name, output_ttl = resource$output_ttl)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
container_requests.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ContainerRequest$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- name = resource$name, description = resource$description,
- properties = resource$properties, state = resource$state,
- requesting_container_uuid = resource$requesting_container_uuid,
- container_uuid = resource$container_uuid,
- container_count_max = resource$container_count_max,
- mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
- container_image = resource$container_image,
- environment = resource$environment, cwd = resource$cwd,
- command = resource$command, output_path = resource$output_path,
- priority = resource$priority, expires_at = resource$expires_at,
- filters = resource$filters, updated_at = resource$updated_at,
- container_count = resource$container_count,
- use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
- output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
- output_name = resource$output_name, output_ttl = resource$output_ttl)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
authorized_keys.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- AuthorizedKey$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
- public_key = resource$public_key, expires_at = resource$expires_at,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
authorized_keys.index = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- AuthorizedKeyList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- authorized_keys.create = function(authorized_key,
+ authorized_keys.create = function(authorizedkey,
ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("authorized_keys")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- authorized_key$toJSON()
+
+ if(length(authorizedkey) > 0)
+ body <- jsonlite::toJSON(list(authorizedkey = authorizedkey),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- AuthorizedKey$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
- public_key = resource$public_key, expires_at = resource$expires_at,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- authorized_keys.update = function(authorized_key, uuid)
+ authorized_keys.update = function(authorizedkey, uuid)
{
endPoint <- stringr::str_interp("authorized_keys/${uuid}")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- authorized_key$toJSON()
+ queryArgs <- NULL
+
+ if(length(authorizedkey) > 0)
+ body <- jsonlite::toJSON(list(authorizedkey = authorizedkey),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- AuthorizedKey$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
- public_key = resource$public_key, expires_at = resource$expires_at,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
authorized_keys.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- AuthorizedKey$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
- public_key = resource$public_key, expires_at = resource$expires_at,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
authorized_keys.list = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- AuthorizedKeyList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
authorized_keys.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- AuthorizedKey$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
- public_key = resource$public_key, expires_at = resource$expires_at,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
authorized_keys.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- AuthorizedKey$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
- public_key = resource$public_key, expires_at = resource$expires_at,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
collections.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Collection$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- result$setRESTService(private$REST)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
collections.index = function(filters = NULL,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count,
include_trash = include_trash)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- CollectionList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
collections.create = function(collection, ensure_unique_name = "false")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- collection$toJSON()
+
+ if(length(collection) > 0)
+ body <- jsonlite::toJSON(list(collection = collection),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Collection$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- result$setRESTService(private$REST)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
collections.update = function(collection, uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- collection$toJSON()
+ queryArgs <- NULL
+
+ if(length(collection) > 0)
+ body <- jsonlite::toJSON(list(collection = collection),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Collection$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- result$setRESTService(private$REST)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
collections.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Collection$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- result$setRESTService(private$REST)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
collections.provenance = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Collection$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- result$setRESTService(private$REST)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
collections.used_by = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Collection$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- result$setRESTService(private$REST)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
collections.trash = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Collection$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- result$setRESTService(private$REST)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
collections.untrash = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Collection$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- result$setRESTService(private$REST)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
collections.list = function(filters = NULL,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count,
include_trash = include_trash)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- CollectionList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
collections.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Collection$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- result$setRESTService(private$REST)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
collections.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Collection$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- result$setRESTService(private$REST)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
containers.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Container$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- state = resource$state, started_at = resource$started_at,
- finished_at = resource$finished_at, log = resource$log,
- environment = resource$environment, cwd = resource$cwd,
- command = resource$command, output_path = resource$output_path,
- mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
- output = resource$output, container_image = resource$container_image,
- progress = resource$progress, priority = resource$priority,
- updated_at = resource$updated_at, exit_code = resource$exit_code,
- auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
- scheduling_parameters = resource$scheduling_parameters)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
containers.index = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ContainerList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
containers.create = function(container, ensure_unique_name = "false")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- container$toJSON()
+
+ if(length(container) > 0)
+ body <- jsonlite::toJSON(list(container = container),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Container$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- state = resource$state, started_at = resource$started_at,
- finished_at = resource$finished_at, log = resource$log,
- environment = resource$environment, cwd = resource$cwd,
- command = resource$command, output_path = resource$output_path,
- mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
- output = resource$output, container_image = resource$container_image,
- progress = resource$progress, priority = resource$priority,
- updated_at = resource$updated_at, exit_code = resource$exit_code,
- auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
- scheduling_parameters = resource$scheduling_parameters)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
containers.update = function(container, uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- container$toJSON()
+ queryArgs <- NULL
+
+ if(length(container) > 0)
+ body <- jsonlite::toJSON(list(container = container),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Container$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- state = resource$state, started_at = resource$started_at,
- finished_at = resource$finished_at, log = resource$log,
- environment = resource$environment, cwd = resource$cwd,
- command = resource$command, output_path = resource$output_path,
- mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
- output = resource$output, container_image = resource$container_image,
- progress = resource$progress, priority = resource$priority,
- updated_at = resource$updated_at, exit_code = resource$exit_code,
- auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
- scheduling_parameters = resource$scheduling_parameters)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
containers.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Container$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- state = resource$state, started_at = resource$started_at,
- finished_at = resource$finished_at, log = resource$log,
- environment = resource$environment, cwd = resource$cwd,
- command = resource$command, output_path = resource$output_path,
- mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
- output = resource$output, container_image = resource$container_image,
- progress = resource$progress, priority = resource$priority,
- updated_at = resource$updated_at, exit_code = resource$exit_code,
- auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
- scheduling_parameters = resource$scheduling_parameters)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
containers.auth = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Container$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- state = resource$state, started_at = resource$started_at,
- finished_at = resource$finished_at, log = resource$log,
- environment = resource$environment, cwd = resource$cwd,
- command = resource$command, output_path = resource$output_path,
- mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
- output = resource$output, container_image = resource$container_image,
- progress = resource$progress, priority = resource$priority,
- updated_at = resource$updated_at, exit_code = resource$exit_code,
- auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
- scheduling_parameters = resource$scheduling_parameters)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
containers.lock = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Container$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- state = resource$state, started_at = resource$started_at,
- finished_at = resource$finished_at, log = resource$log,
- environment = resource$environment, cwd = resource$cwd,
- command = resource$command, output_path = resource$output_path,
- mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
- output = resource$output, container_image = resource$container_image,
- progress = resource$progress, priority = resource$priority,
- updated_at = resource$updated_at, exit_code = resource$exit_code,
- auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
- scheduling_parameters = resource$scheduling_parameters)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
containers.unlock = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Container$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- state = resource$state, started_at = resource$started_at,
- finished_at = resource$finished_at, log = resource$log,
- environment = resource$environment, cwd = resource$cwd,
- command = resource$command, output_path = resource$output_path,
- mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
- output = resource$output, container_image = resource$container_image,
- progress = resource$progress, priority = resource$priority,
- updated_at = resource$updated_at, exit_code = resource$exit_code,
- auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
- scheduling_parameters = resource$scheduling_parameters)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
containers.current = function()
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Container$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- state = resource$state, started_at = resource$started_at,
- finished_at = resource$finished_at, log = resource$log,
- environment = resource$environment, cwd = resource$cwd,
- command = resource$command, output_path = resource$output_path,
- mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
- output = resource$output, container_image = resource$container_image,
- progress = resource$progress, priority = resource$priority,
- updated_at = resource$updated_at, exit_code = resource$exit_code,
- auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
- scheduling_parameters = resource$scheduling_parameters)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
containers.list = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- ContainerList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
containers.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Container$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- state = resource$state, started_at = resource$started_at,
- finished_at = resource$finished_at, log = resource$log,
- environment = resource$environment, cwd = resource$cwd,
- command = resource$command, output_path = resource$output_path,
- mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
- output = resource$output, container_image = resource$container_image,
- progress = resource$progress, priority = resource$priority,
- updated_at = resource$updated_at, exit_code = resource$exit_code,
- auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
- scheduling_parameters = resource$scheduling_parameters)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
containers.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Container$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- state = resource$state, started_at = resource$started_at,
- finished_at = resource$finished_at, log = resource$log,
- environment = resource$environment, cwd = resource$cwd,
- command = resource$command, output_path = resource$output_path,
- mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
- output = resource$output, container_image = resource$container_image,
- progress = resource$progress, priority = resource$priority,
- updated_at = resource$updated_at, exit_code = resource$exit_code,
- auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
- scheduling_parameters = resource$scheduling_parameters)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
humans.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Human$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, properties = resource$properties,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
humans.index = function(filters = NULL, where = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- HumanList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
humans.create = function(human, ensure_unique_name = "false")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- human$toJSON()
+
+ if(length(human) > 0)
+ body <- jsonlite::toJSON(list(human = human),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Human$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, properties = resource$properties,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
humans.update = function(human, uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- human$toJSON()
+ queryArgs <- NULL
+
+ if(length(human) > 0)
+ body <- jsonlite::toJSON(list(human = human),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Human$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, properties = resource$properties,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
humans.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Human$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, properties = resource$properties,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
humans.list = function(filters = NULL, where = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- HumanList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
humans.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Human$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, properties = resource$properties,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
humans.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Human$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, properties = resource$properties,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
job_tasks.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- JobTask$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, job_uuid = resource$job_uuid,
- sequence = resource$sequence, parameters = resource$parameters,
- output = resource$output, progress = resource$progress,
- success = resource$success, created_at = resource$created_at,
- updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
- qsequence = resource$qsequence, started_at = resource$started_at,
- finished_at = resource$finished_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
job_tasks.index = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- JobTaskList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- job_tasks.create = function(job_task, ensure_unique_name = "false")
+ job_tasks.create = function(jobtask, ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("job_tasks")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- job_task$toJSON()
+
+ if(length(jobtask) > 0)
+ body <- jsonlite::toJSON(list(jobtask = jobtask),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- JobTask$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, job_uuid = resource$job_uuid,
- sequence = resource$sequence, parameters = resource$parameters,
- output = resource$output, progress = resource$progress,
- success = resource$success, created_at = resource$created_at,
- updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
- qsequence = resource$qsequence, started_at = resource$started_at,
- finished_at = resource$finished_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- job_tasks.update = function(job_task, uuid)
+ job_tasks.update = function(jobtask, uuid)
{
endPoint <- stringr::str_interp("job_tasks/${uuid}")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- job_task$toJSON()
+ queryArgs <- NULL
+
+ if(length(jobtask) > 0)
+ body <- jsonlite::toJSON(list(jobtask = jobtask),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- JobTask$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, job_uuid = resource$job_uuid,
- sequence = resource$sequence, parameters = resource$parameters,
- output = resource$output, progress = resource$progress,
- success = resource$success, created_at = resource$created_at,
- updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
- qsequence = resource$qsequence, started_at = resource$started_at,
- finished_at = resource$finished_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
job_tasks.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- JobTask$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, job_uuid = resource$job_uuid,
- sequence = resource$sequence, parameters = resource$parameters,
- output = resource$output, progress = resource$progress,
- success = resource$success, created_at = resource$created_at,
- updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
- qsequence = resource$qsequence, started_at = resource$started_at,
- finished_at = resource$finished_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
job_tasks.list = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- JobTaskList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
job_tasks.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- JobTask$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, job_uuid = resource$job_uuid,
- sequence = resource$sequence, parameters = resource$parameters,
- output = resource$output, progress = resource$progress,
- success = resource$success, created_at = resource$created_at,
- updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
- qsequence = resource$qsequence, started_at = resource$started_at,
- finished_at = resource$finished_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
job_tasks.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- JobTask$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, job_uuid = resource$job_uuid,
- sequence = resource$sequence, parameters = resource$parameters,
- output = resource$output, progress = resource$progress,
- success = resource$success, created_at = resource$created_at,
- updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
- qsequence = resource$qsequence, started_at = resource$started_at,
- finished_at = resource$finished_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
links.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Link$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
- link_class = resource$link_class, name = resource$name,
- head_uuid = resource$head_uuid, properties = resource$properties,
- updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
links.index = function(filters = NULL, where = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- LinkList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
links.create = function(link, ensure_unique_name = "false")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- link$toJSON()
+
+ if(length(link) > 0)
+ body <- jsonlite::toJSON(list(link = link),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Link$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
- link_class = resource$link_class, name = resource$name,
- head_uuid = resource$head_uuid, properties = resource$properties,
- updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
links.update = function(link, uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- link$toJSON()
+ queryArgs <- NULL
+
+ if(length(link) > 0)
+ body <- jsonlite::toJSON(list(link = link),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Link$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
- link_class = resource$link_class, name = resource$name,
- head_uuid = resource$head_uuid, properties = resource$properties,
- updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
links.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Link$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
- link_class = resource$link_class, name = resource$name,
- head_uuid = resource$head_uuid, properties = resource$properties,
- updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
links.list = function(filters = NULL, where = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- LinkList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
links.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Link$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
- link_class = resource$link_class, name = resource$name,
- head_uuid = resource$head_uuid, properties = resource$properties,
- updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
links.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Link$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
- link_class = resource$link_class, name = resource$name,
- head_uuid = resource$head_uuid, properties = resource$properties,
- updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
links.get_permissions = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Link$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
- link_class = resource$link_class, name = resource$name,
- head_uuid = resource$head_uuid, properties = resource$properties,
- updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
jobs.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Job$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, submit_id = resource$submit_id,
- script = resource$script, script_version = resource$script_version,
- script_parameters = resource$script_parameters,
- cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
- cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
- cancelled_at = resource$cancelled_at, started_at = resource$started_at,
- finished_at = resource$finished_at, running = resource$running,
- success = resource$success, output = resource$output,
- created_at = resource$created_at, updated_at = resource$updated_at,
- is_locked_by_uuid = resource$is_locked_by_uuid,
- log = resource$log, tasks_summary = resource$tasks_summary,
- runtime_constraints = resource$runtime_constraints,
- nondeterministic = resource$nondeterministic,
- repository = resource$repository, supplied_script_version = resource$supplied_script_version,
- docker_image_locator = resource$docker_image_locator,
- priority = resource$priority, description = resource$description,
- state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
- components = resource$components, script_parameters_digest = resource$script_parameters_digest)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
jobs.index = function(filters = NULL, where = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- JobList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
jobs.create = function(job, ensure_unique_name = "false",
find_or_create = find_or_create, filters = filters,
minimum_script_version = minimum_script_version,
exclude_script_versions = exclude_script_versions)
- body <- job$toJSON()
+
+ if(length(job) > 0)
+ body <- jsonlite::toJSON(list(job = job),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Job$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, submit_id = resource$submit_id,
- script = resource$script, script_version = resource$script_version,
- script_parameters = resource$script_parameters,
- cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
- cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
- cancelled_at = resource$cancelled_at, started_at = resource$started_at,
- finished_at = resource$finished_at, running = resource$running,
- success = resource$success, output = resource$output,
- created_at = resource$created_at, updated_at = resource$updated_at,
- is_locked_by_uuid = resource$is_locked_by_uuid,
- log = resource$log, tasks_summary = resource$tasks_summary,
- runtime_constraints = resource$runtime_constraints,
- nondeterministic = resource$nondeterministic,
- repository = resource$repository, supplied_script_version = resource$supplied_script_version,
- docker_image_locator = resource$docker_image_locator,
- priority = resource$priority, description = resource$description,
- state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
- components = resource$components, script_parameters_digest = resource$script_parameters_digest)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
jobs.update = function(job, uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- job$toJSON()
+ queryArgs <- NULL
+
+ if(length(job) > 0)
+ body <- jsonlite::toJSON(list(job = job),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Job$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, submit_id = resource$submit_id,
- script = resource$script, script_version = resource$script_version,
- script_parameters = resource$script_parameters,
- cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
- cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
- cancelled_at = resource$cancelled_at, started_at = resource$started_at,
- finished_at = resource$finished_at, running = resource$running,
- success = resource$success, output = resource$output,
- created_at = resource$created_at, updated_at = resource$updated_at,
- is_locked_by_uuid = resource$is_locked_by_uuid,
- log = resource$log, tasks_summary = resource$tasks_summary,
- runtime_constraints = resource$runtime_constraints,
- nondeterministic = resource$nondeterministic,
- repository = resource$repository, supplied_script_version = resource$supplied_script_version,
- docker_image_locator = resource$docker_image_locator,
- priority = resource$priority, description = resource$description,
- state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
- components = resource$components, script_parameters_digest = resource$script_parameters_digest)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
jobs.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Job$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, submit_id = resource$submit_id,
- script = resource$script, script_version = resource$script_version,
- script_parameters = resource$script_parameters,
- cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
- cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
- cancelled_at = resource$cancelled_at, started_at = resource$started_at,
- finished_at = resource$finished_at, running = resource$running,
- success = resource$success, output = resource$output,
- created_at = resource$created_at, updated_at = resource$updated_at,
- is_locked_by_uuid = resource$is_locked_by_uuid,
- log = resource$log, tasks_summary = resource$tasks_summary,
- runtime_constraints = resource$runtime_constraints,
- nondeterministic = resource$nondeterministic,
- repository = resource$repository, supplied_script_version = resource$supplied_script_version,
- docker_image_locator = resource$docker_image_locator,
- priority = resource$priority, description = resource$description,
- state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
- components = resource$components, script_parameters_digest = resource$script_parameters_digest)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
jobs.queue = function(filters = NULL, where = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Job$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, submit_id = resource$submit_id,
- script = resource$script, script_version = resource$script_version,
- script_parameters = resource$script_parameters,
- cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
- cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
- cancelled_at = resource$cancelled_at, started_at = resource$started_at,
- finished_at = resource$finished_at, running = resource$running,
- success = resource$success, output = resource$output,
- created_at = resource$created_at, updated_at = resource$updated_at,
- is_locked_by_uuid = resource$is_locked_by_uuid,
- log = resource$log, tasks_summary = resource$tasks_summary,
- runtime_constraints = resource$runtime_constraints,
- nondeterministic = resource$nondeterministic,
- repository = resource$repository, supplied_script_version = resource$supplied_script_version,
- docker_image_locator = resource$docker_image_locator,
- priority = resource$priority, description = resource$description,
- state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
- components = resource$components, script_parameters_digest = resource$script_parameters_digest)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
jobs.queue_size = function()
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Job$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, submit_id = resource$submit_id,
- script = resource$script, script_version = resource$script_version,
- script_parameters = resource$script_parameters,
- cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
- cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
- cancelled_at = resource$cancelled_at, started_at = resource$started_at,
- finished_at = resource$finished_at, running = resource$running,
- success = resource$success, output = resource$output,
- created_at = resource$created_at, updated_at = resource$updated_at,
- is_locked_by_uuid = resource$is_locked_by_uuid,
- log = resource$log, tasks_summary = resource$tasks_summary,
- runtime_constraints = resource$runtime_constraints,
- nondeterministic = resource$nondeterministic,
- repository = resource$repository, supplied_script_version = resource$supplied_script_version,
- docker_image_locator = resource$docker_image_locator,
- priority = resource$priority, description = resource$description,
- state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
- components = resource$components, script_parameters_digest = resource$script_parameters_digest)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
jobs.cancel = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Job$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, submit_id = resource$submit_id,
- script = resource$script, script_version = resource$script_version,
- script_parameters = resource$script_parameters,
- cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
- cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
- cancelled_at = resource$cancelled_at, started_at = resource$started_at,
- finished_at = resource$finished_at, running = resource$running,
- success = resource$success, output = resource$output,
- created_at = resource$created_at, updated_at = resource$updated_at,
- is_locked_by_uuid = resource$is_locked_by_uuid,
- log = resource$log, tasks_summary = resource$tasks_summary,
- runtime_constraints = resource$runtime_constraints,
- nondeterministic = resource$nondeterministic,
- repository = resource$repository, supplied_script_version = resource$supplied_script_version,
- docker_image_locator = resource$docker_image_locator,
- priority = resource$priority, description = resource$description,
- state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
- components = resource$components, script_parameters_digest = resource$script_parameters_digest)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
jobs.lock = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Job$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, submit_id = resource$submit_id,
- script = resource$script, script_version = resource$script_version,
- script_parameters = resource$script_parameters,
- cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
- cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
- cancelled_at = resource$cancelled_at, started_at = resource$started_at,
- finished_at = resource$finished_at, running = resource$running,
- success = resource$success, output = resource$output,
- created_at = resource$created_at, updated_at = resource$updated_at,
- is_locked_by_uuid = resource$is_locked_by_uuid,
- log = resource$log, tasks_summary = resource$tasks_summary,
- runtime_constraints = resource$runtime_constraints,
- nondeterministic = resource$nondeterministic,
- repository = resource$repository, supplied_script_version = resource$supplied_script_version,
- docker_image_locator = resource$docker_image_locator,
- priority = resource$priority, description = resource$description,
- state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
- components = resource$components, script_parameters_digest = resource$script_parameters_digest)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
jobs.list = function(filters = NULL, where = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- JobList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
jobs.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Job$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, submit_id = resource$submit_id,
- script = resource$script, script_version = resource$script_version,
- script_parameters = resource$script_parameters,
- cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
- cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
- cancelled_at = resource$cancelled_at, started_at = resource$started_at,
- finished_at = resource$finished_at, running = resource$running,
- success = resource$success, output = resource$output,
- created_at = resource$created_at, updated_at = resource$updated_at,
- is_locked_by_uuid = resource$is_locked_by_uuid,
- log = resource$log, tasks_summary = resource$tasks_summary,
- runtime_constraints = resource$runtime_constraints,
- nondeterministic = resource$nondeterministic,
- repository = resource$repository, supplied_script_version = resource$supplied_script_version,
- docker_image_locator = resource$docker_image_locator,
- priority = resource$priority, description = resource$description,
- state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
- components = resource$components, script_parameters_digest = resource$script_parameters_digest)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
jobs.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Job$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, submit_id = resource$submit_id,
- script = resource$script, script_version = resource$script_version,
- script_parameters = resource$script_parameters,
- cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
- cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
- cancelled_at = resource$cancelled_at, started_at = resource$started_at,
- finished_at = resource$finished_at, running = resource$running,
- success = resource$success, output = resource$output,
- created_at = resource$created_at, updated_at = resource$updated_at,
- is_locked_by_uuid = resource$is_locked_by_uuid,
- log = resource$log, tasks_summary = resource$tasks_summary,
- runtime_constraints = resource$runtime_constraints,
- nondeterministic = resource$nondeterministic,
- repository = resource$repository, supplied_script_version = resource$supplied_script_version,
- docker_image_locator = resource$docker_image_locator,
- priority = resource$priority, description = resource$description,
- state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
- components = resource$components, script_parameters_digest = resource$script_parameters_digest)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
keep_disks.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepDisk$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, ping_secret = resource$ping_secret,
- node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
- bytes_total = resource$bytes_total, bytes_free = resource$bytes_free,
- is_readable = resource$is_readable, is_writable = resource$is_writable,
- last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
- last_ping_at = resource$last_ping_at, created_at = resource$created_at,
- updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
keep_disks.index = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepDiskList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- keep_disks.create = function(keep_disk, ensure_unique_name = "false")
+ keep_disks.create = function(keepdisk, ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("keep_disks")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- keep_disk$toJSON()
+
+ if(length(keepdisk) > 0)
+ body <- jsonlite::toJSON(list(keepdisk = keepdisk),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepDisk$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, ping_secret = resource$ping_secret,
- node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
- bytes_total = resource$bytes_total, bytes_free = resource$bytes_free,
- is_readable = resource$is_readable, is_writable = resource$is_writable,
- last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
- last_ping_at = resource$last_ping_at, created_at = resource$created_at,
- updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- keep_disks.update = function(keep_disk, uuid)
+ keep_disks.update = function(keepdisk, uuid)
{
endPoint <- stringr::str_interp("keep_disks/${uuid}")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- keep_disk$toJSON()
+ queryArgs <- NULL
+
+ if(length(keepdisk) > 0)
+ body <- jsonlite::toJSON(list(keepdisk = keepdisk),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepDisk$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, ping_secret = resource$ping_secret,
- node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
- bytes_total = resource$bytes_total, bytes_free = resource$bytes_free,
- is_readable = resource$is_readable, is_writable = resource$is_writable,
- last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
- last_ping_at = resource$last_ping_at, created_at = resource$created_at,
- updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
keep_disks.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepDisk$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, ping_secret = resource$ping_secret,
- node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
- bytes_total = resource$bytes_total, bytes_free = resource$bytes_free,
- is_readable = resource$is_readable, is_writable = resource$is_writable,
- last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
- last_ping_at = resource$last_ping_at, created_at = resource$created_at,
- updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
keep_disks.ping = function(uuid = NULL, ping_secret,
node_uuid = node_uuid, filesystem_uuid = filesystem_uuid,
service_host = service_host, service_port = service_port,
service_ssl_flag = service_ssl_flag)
+
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepDisk$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, ping_secret = resource$ping_secret,
- node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
- bytes_total = resource$bytes_total, bytes_free = resource$bytes_free,
- is_readable = resource$is_readable, is_writable = resource$is_writable,
- last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
- last_ping_at = resource$last_ping_at, created_at = resource$created_at,
- updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
keep_disks.list = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepDiskList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
keep_disks.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepDisk$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, ping_secret = resource$ping_secret,
- node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
- bytes_total = resource$bytes_total, bytes_free = resource$bytes_free,
- is_readable = resource$is_readable, is_writable = resource$is_writable,
- last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
- last_ping_at = resource$last_ping_at, created_at = resource$created_at,
- updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
keep_disks.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepDisk$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, ping_secret = resource$ping_secret,
- node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
- bytes_total = resource$bytes_total, bytes_free = resource$bytes_free,
- is_readable = resource$is_readable, is_writable = resource$is_writable,
- last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
- last_ping_at = resource$last_ping_at, created_at = resource$created_at,
- updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
keep_services.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepService$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, service_host = resource$service_host,
- service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
- service_type = resource$service_type, created_at = resource$created_at,
- updated_at = resource$updated_at, read_only = resource$read_only)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
keep_services.index = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepServiceList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- keep_services.create = function(keep_service,
+ keep_services.create = function(keepservice,
ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("keep_services")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- keep_service$toJSON()
+
+ if(length(keepservice) > 0)
+ body <- jsonlite::toJSON(list(keepservice = keepservice),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepService$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, service_host = resource$service_host,
- service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
- service_type = resource$service_type, created_at = resource$created_at,
- updated_at = resource$updated_at, read_only = resource$read_only)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- keep_services.update = function(keep_service, uuid)
+ keep_services.update = function(keepservice, uuid)
{
endPoint <- stringr::str_interp("keep_services/${uuid}")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- keep_service$toJSON()
+ queryArgs <- NULL
+
+ if(length(keepservice) > 0)
+ body <- jsonlite::toJSON(list(keepservice = keepservice),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepService$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, service_host = resource$service_host,
- service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
- service_type = resource$service_type, created_at = resource$created_at,
- updated_at = resource$updated_at, read_only = resource$read_only)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
keep_services.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepService$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, service_host = resource$service_host,
- service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
- service_type = resource$service_type, created_at = resource$created_at,
- updated_at = resource$updated_at, read_only = resource$read_only)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
keep_services.accessible = function()
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepService$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, service_host = resource$service_host,
- service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
- service_type = resource$service_type, created_at = resource$created_at,
- updated_at = resource$updated_at, read_only = resource$read_only)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
keep_services.list = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepServiceList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
keep_services.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepService$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, service_host = resource$service_host,
- service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
- service_type = resource$service_type, created_at = resource$created_at,
- updated_at = resource$updated_at, read_only = resource$read_only)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
keep_services.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- KeepService$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, service_host = resource$service_host,
- service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
- service_type = resource$service_type, created_at = resource$created_at,
- updated_at = resource$updated_at, read_only = resource$read_only)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
pipeline_templates.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- PipelineTemplate$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- components = resource$components, updated_at = resource$updated_at,
- description = resource$description)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
pipeline_templates.index = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- PipelineTemplateList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- pipeline_templates.create = function(pipeline_template,
+ pipeline_templates.create = function(pipelinetemplate,
ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("pipeline_templates")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- pipeline_template$toJSON()
+
+ if(length(pipelinetemplate) > 0)
+ body <- jsonlite::toJSON(list(pipelinetemplate = pipelinetemplate),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- PipelineTemplate$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- components = resource$components, updated_at = resource$updated_at,
- description = resource$description)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- pipeline_templates.update = function(pipeline_template, uuid)
+ pipeline_templates.update = function(pipelinetemplate, uuid)
{
endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- pipeline_template$toJSON()
+ queryArgs <- NULL
+
+ if(length(pipelinetemplate) > 0)
+ body <- jsonlite::toJSON(list(pipelinetemplate = pipelinetemplate),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- PipelineTemplate$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- components = resource$components, updated_at = resource$updated_at,
- description = resource$description)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
pipeline_templates.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- PipelineTemplate$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- components = resource$components, updated_at = resource$updated_at,
- description = resource$description)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
pipeline_templates.list = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- PipelineTemplateList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
pipeline_templates.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- PipelineTemplate$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- components = resource$components, updated_at = resource$updated_at,
- description = resource$description)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
pipeline_templates.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- PipelineTemplate$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- components = resource$components, updated_at = resource$updated_at,
- description = resource$description)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
pipeline_instances.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- PipelineInstance$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, pipeline_template_uuid = resource$pipeline_template_uuid,
- name = resource$name, components = resource$components,
- updated_at = resource$updated_at, properties = resource$properties,
- state = resource$state, components_summary = resource$components_summary,
- started_at = resource$started_at, finished_at = resource$finished_at,
- description = resource$description)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
pipeline_instances.index = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- PipelineInstanceList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- pipeline_instances.create = function(pipeline_instance,
+ pipeline_instances.create = function(pipelineinstance,
ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("pipeline_instances")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- pipeline_instance$toJSON()
+
+ if(length(pipelineinstance) > 0)
+ body <- jsonlite::toJSON(list(pipelineinstance = pipelineinstance),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- PipelineInstance$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, pipeline_template_uuid = resource$pipeline_template_uuid,
- name = resource$name, components = resource$components,
- updated_at = resource$updated_at, properties = resource$properties,
- state = resource$state, components_summary = resource$components_summary,
- started_at = resource$started_at, finished_at = resource$finished_at,
- description = resource$description)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- pipeline_instances.update = function(pipeline_instance, uuid)
+ pipeline_instances.update = function(pipelineinstance, uuid)
{
endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- pipeline_instance$toJSON()
+ queryArgs <- NULL
+
+ if(length(pipelineinstance) > 0)
+ body <- jsonlite::toJSON(list(pipelineinstance = pipelineinstance),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- PipelineInstance$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, pipeline_template_uuid = resource$pipeline_template_uuid,
- name = resource$name, components = resource$components,
- updated_at = resource$updated_at, properties = resource$properties,
- state = resource$state, components_summary = resource$components_summary,
- started_at = resource$started_at, finished_at = resource$finished_at,
- description = resource$description)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
pipeline_instances.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- PipelineInstance$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, pipeline_template_uuid = resource$pipeline_template_uuid,
- name = resource$name, components = resource$components,
- updated_at = resource$updated_at, properties = resource$properties,
- state = resource$state, components_summary = resource$components_summary,
- started_at = resource$started_at, finished_at = resource$finished_at,
- description = resource$description)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
pipeline_instances.cancel = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- PipelineInstance$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, pipeline_template_uuid = resource$pipeline_template_uuid,
- name = resource$name, components = resource$components,
- updated_at = resource$updated_at, properties = resource$properties,
- state = resource$state, components_summary = resource$components_summary,
- started_at = resource$started_at, finished_at = resource$finished_at,
- description = resource$description)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
pipeline_instances.list = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- PipelineInstanceList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
pipeline_instances.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- PipelineInstance$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, pipeline_template_uuid = resource$pipeline_template_uuid,
- name = resource$name, components = resource$components,
- updated_at = resource$updated_at, properties = resource$properties,
- state = resource$state, components_summary = resource$components_summary,
- started_at = resource$started_at, finished_at = resource$finished_at,
- description = resource$description)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
pipeline_instances.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- PipelineInstance$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, pipeline_template_uuid = resource$pipeline_template_uuid,
- name = resource$name, components = resource$components,
- updated_at = resource$updated_at, properties = resource$properties,
- state = resource$state, components_summary = resource$components_summary,
- started_at = resource$started_at, finished_at = resource$finished_at,
- description = resource$description)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
nodes.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Node$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, slot_number = resource$slot_number,
- hostname = resource$hostname, domain = resource$domain,
- ip_address = resource$ip_address, first_ping_at = resource$first_ping_at,
- last_ping_at = resource$last_ping_at, info = resource$info,
- updated_at = resource$updated_at, properties = resource$properties,
- job_uuid = resource$job_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
nodes.index = function(filters = NULL, where = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- NodeList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
nodes.create = function(node, ensure_unique_name = "false",
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name,
assign_slot = assign_slot)
- body <- node$toJSON()
+
+ if(length(node) > 0)
+ body <- jsonlite::toJSON(list(node = node),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Node$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, slot_number = resource$slot_number,
- hostname = resource$hostname, domain = resource$domain,
- ip_address = resource$ip_address, first_ping_at = resource$first_ping_at,
- last_ping_at = resource$last_ping_at, info = resource$info,
- updated_at = resource$updated_at, properties = resource$properties,
- job_uuid = resource$job_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
nodes.update = function(node, uuid, assign_slot = NULL)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid, assign_slot = assign_slot)
- body <- node$toJSON()
+ queryArgs <- list(assign_slot = assign_slot)
+
+ if(length(node) > 0)
+ body <- jsonlite::toJSON(list(node = node),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Node$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, slot_number = resource$slot_number,
- hostname = resource$hostname, domain = resource$domain,
- ip_address = resource$ip_address, first_ping_at = resource$first_ping_at,
- last_ping_at = resource$last_ping_at, info = resource$info,
- updated_at = resource$updated_at, properties = resource$properties,
- job_uuid = resource$job_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
nodes.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Node$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, slot_number = resource$slot_number,
- hostname = resource$hostname, domain = resource$domain,
- ip_address = resource$ip_address, first_ping_at = resource$first_ping_at,
- last_ping_at = resource$last_ping_at, info = resource$info,
- updated_at = resource$updated_at, properties = resource$properties,
- job_uuid = resource$job_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
nodes.ping = function(uuid, ping_secret)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid, ping_secret = ping_secret)
+ queryArgs <- list(ping_secret = ping_secret)
+
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Node$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, slot_number = resource$slot_number,
- hostname = resource$hostname, domain = resource$domain,
- ip_address = resource$ip_address, first_ping_at = resource$first_ping_at,
- last_ping_at = resource$last_ping_at, info = resource$info,
- updated_at = resource$updated_at, properties = resource$properties,
- job_uuid = resource$job_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
nodes.list = function(filters = NULL, where = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- NodeList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
nodes.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Node$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, slot_number = resource$slot_number,
- hostname = resource$hostname, domain = resource$domain,
- ip_address = resource$ip_address, first_ping_at = resource$first_ping_at,
- last_ping_at = resource$last_ping_at, info = resource$info,
- updated_at = resource$updated_at, properties = resource$properties,
- job_uuid = resource$job_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
nodes.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Node$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, slot_number = resource$slot_number,
- hostname = resource$hostname, domain = resource$domain,
- ip_address = resource$ip_address, first_ping_at = resource$first_ping_at,
- last_ping_at = resource$last_ping_at, info = resource$info,
- updated_at = resource$updated_at, properties = resource$properties,
- job_uuid = resource$job_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
repositories.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Repository$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
repositories.index = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- RepositoryList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
repositories.create = function(repository, ensure_unique_name = "false")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- repository$toJSON()
+
+ if(length(repository) > 0)
+ body <- jsonlite::toJSON(list(repository = repository),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Repository$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
repositories.update = function(repository, uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- repository$toJSON()
+ queryArgs <- NULL
+
+ if(length(repository) > 0)
+ body <- jsonlite::toJSON(list(repository = repository),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Repository$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
repositories.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Repository$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
repositories.get_all_permissions = function()
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Repository$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
repositories.list = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- RepositoryList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
repositories.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Repository$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
repositories.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Repository$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
specimens.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Specimen$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, material = resource$material,
- updated_at = resource$updated_at, properties = resource$properties)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
specimens.index = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- SpecimenList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
specimens.create = function(specimen, ensure_unique_name = "false")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- specimen$toJSON()
+
+ if(length(specimen) > 0)
+ body <- jsonlite::toJSON(list(specimen = specimen),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Specimen$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, material = resource$material,
- updated_at = resource$updated_at, properties = resource$properties)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
specimens.update = function(specimen, uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- specimen$toJSON()
+ queryArgs <- NULL
+
+ if(length(specimen) > 0)
+ body <- jsonlite::toJSON(list(specimen = specimen),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Specimen$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, material = resource$material,
- updated_at = resource$updated_at, properties = resource$properties)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
specimens.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Specimen$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, material = resource$material,
- updated_at = resource$updated_at, properties = resource$properties)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
specimens.list = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- SpecimenList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
specimens.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Specimen$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, material = resource$material,
- updated_at = resource$updated_at, properties = resource$properties)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
specimens.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Specimen$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, material = resource$material,
- updated_at = resource$updated_at, properties = resource$properties)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
logs.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Log$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- object_uuid = resource$object_uuid, event_at = resource$event_at,
- event_type = resource$event_type, summary = resource$summary,
- properties = resource$properties, created_at = resource$created_at,
- updated_at = resource$updated_at, modified_at = resource$modified_at,
- object_owner_uuid = resource$object_owner_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
logs.index = function(filters = NULL, where = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- LogList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
logs.create = function(log, ensure_unique_name = "false")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- log$toJSON()
+
+ if(length(log) > 0)
+ body <- jsonlite::toJSON(list(log = log),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Log$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- object_uuid = resource$object_uuid, event_at = resource$event_at,
- event_type = resource$event_type, summary = resource$summary,
- properties = resource$properties, created_at = resource$created_at,
- updated_at = resource$updated_at, modified_at = resource$modified_at,
- object_owner_uuid = resource$object_owner_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
logs.update = function(log, uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- log$toJSON()
+ queryArgs <- NULL
+
+ if(length(log) > 0)
+ body <- jsonlite::toJSON(list(log = log),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Log$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- object_uuid = resource$object_uuid, event_at = resource$event_at,
- event_type = resource$event_type, summary = resource$summary,
- properties = resource$properties, created_at = resource$created_at,
- updated_at = resource$updated_at, modified_at = resource$modified_at,
- object_owner_uuid = resource$object_owner_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
logs.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Log$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- object_uuid = resource$object_uuid, event_at = resource$event_at,
- event_type = resource$event_type, summary = resource$summary,
- properties = resource$properties, created_at = resource$created_at,
- updated_at = resource$updated_at, modified_at = resource$modified_at,
- object_owner_uuid = resource$object_owner_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
logs.list = function(filters = NULL, where = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- LogList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
logs.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Log$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- object_uuid = resource$object_uuid, event_at = resource$event_at,
- event_type = resource$event_type, summary = resource$summary,
- properties = resource$properties, created_at = resource$created_at,
- updated_at = resource$updated_at, modified_at = resource$modified_at,
- object_owner_uuid = resource$object_owner_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
logs.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Log$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- object_uuid = resource$object_uuid, event_at = resource$event_at,
- event_type = resource$event_type, summary = resource$summary,
- properties = resource$properties, created_at = resource$created_at,
- updated_at = resource$updated_at, modified_at = resource$modified_at,
- object_owner_uuid = resource$object_owner_uuid)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
traits.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Trait$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- properties = resource$properties, created_at = resource$created_at,
- updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
traits.index = function(filters = NULL, where = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- TraitList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
traits.create = function(trait, ensure_unique_name = "false")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- trait$toJSON()
+
+ if(length(trait) > 0)
+ body <- jsonlite::toJSON(list(trait = trait),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Trait$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- properties = resource$properties, created_at = resource$created_at,
- updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
traits.update = function(trait, uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- trait$toJSON()
+ queryArgs <- NULL
+
+ if(length(trait) > 0)
+ body <- jsonlite::toJSON(list(trait = trait),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Trait$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- properties = resource$properties, created_at = resource$created_at,
- updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
traits.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Trait$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- properties = resource$properties, created_at = resource$created_at,
- updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
traits.list = function(filters = NULL, where = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- TraitList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
traits.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Trait$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- properties = resource$properties, created_at = resource$created_at,
- updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
traits.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Trait$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- properties = resource$properties, created_at = resource$created_at,
- updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
virtual_machines.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- VirtualMachine$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, hostname = resource$hostname,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
virtual_machines.index = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- VirtualMachineList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- virtual_machines.create = function(virtual_machine,
+ virtual_machines.create = function(virtualmachine,
ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("virtual_machines")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- virtual_machine$toJSON()
+
+ if(length(virtualmachine) > 0)
+ body <- jsonlite::toJSON(list(virtualmachine = virtualmachine),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- VirtualMachine$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, hostname = resource$hostname,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- virtual_machines.update = function(virtual_machine, uuid)
+ virtual_machines.update = function(virtualmachine, uuid)
{
endPoint <- stringr::str_interp("virtual_machines/${uuid}")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- virtual_machine$toJSON()
+ queryArgs <- NULL
+
+ if(length(virtualmachine) > 0)
+ body <- jsonlite::toJSON(list(virtualmachine = virtualmachine),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- VirtualMachine$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, hostname = resource$hostname,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
virtual_machines.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- VirtualMachine$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, hostname = resource$hostname,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
virtual_machines.logins = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- VirtualMachine$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, hostname = resource$hostname,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
virtual_machines.get_all_logins = function()
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- VirtualMachine$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, hostname = resource$hostname,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
virtual_machines.list = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- VirtualMachineList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
virtual_machines.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- VirtualMachine$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, hostname = resource$hostname,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
virtual_machines.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- VirtualMachine$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, hostname = resource$hostname,
- created_at = resource$created_at, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
workflows.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Workflow$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- name = resource$name, description = resource$description,
- definition = resource$definition, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
workflows.index = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- WorkflowList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
workflows.create = function(workflow, ensure_unique_name = "false")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- workflow$toJSON()
+
+ if(length(workflow) > 0)
+ body <- jsonlite::toJSON(list(workflow = workflow),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Workflow$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- name = resource$name, description = resource$description,
- definition = resource$definition, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
workflows.update = function(workflow, uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- workflow$toJSON()
+ queryArgs <- NULL
+
+ if(length(workflow) > 0)
+ body <- jsonlite::toJSON(list(workflow = workflow),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Workflow$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- name = resource$name, description = resource$description,
- definition = resource$definition, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
workflows.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Workflow$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- name = resource$name, description = resource$description,
- definition = resource$definition, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
workflows.list = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- WorkflowList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
workflows.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Workflow$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- name = resource$name, description = resource$description,
- definition = resource$definition, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
workflows.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Workflow$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_at = resource$modified_at,
- modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- name = resource$name, description = resource$description,
- definition = resource$definition, updated_at = resource$updated_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
groups.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Group$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- description = resource$description, updated_at = resource$updated_at,
- group_class = resource$group_class, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, delete_at = resource$delete_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
groups.index = function(filters = NULL, where = NULL,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count,
include_trash = include_trash)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- GroupList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
groups.create = function(group, ensure_unique_name = "false")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- group$toJSON()
+
+ if(length(group) > 0)
+ body <- jsonlite::toJSON(list(group = group),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Group$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- description = resource$description, updated_at = resource$updated_at,
- group_class = resource$group_class, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, delete_at = resource$delete_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
groups.update = function(group, uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- group$toJSON()
+ queryArgs <- NULL
+
+ if(length(group) > 0)
+ body <- jsonlite::toJSON(list(group = group),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Group$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- description = resource$description, updated_at = resource$updated_at,
- group_class = resource$group_class, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, delete_at = resource$delete_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
groups.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Group$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- description = resource$description, updated_at = resource$updated_at,
- group_class = resource$group_class, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, delete_at = resource$delete_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
groups.contents = function(filters = NULL,
order = order, distinct = distinct, limit = limit,
offset = offset, count = count, include_trash = include_trash,
uuid = uuid, recursive = recursive)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Group$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- description = resource$description, updated_at = resource$updated_at,
- group_class = resource$group_class, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, delete_at = resource$delete_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
groups.trash = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Group$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- description = resource$description, updated_at = resource$updated_at,
- group_class = resource$group_class, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, delete_at = resource$delete_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
groups.untrash = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Group$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- description = resource$description, updated_at = resource$updated_at,
- group_class = resource$group_class, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, delete_at = resource$delete_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
groups.list = function(filters = NULL, where = NULL,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count,
include_trash = include_trash)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- GroupList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
groups.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Group$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- description = resource$description, updated_at = resource$updated_at,
- group_class = resource$group_class, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, delete_at = resource$delete_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
groups.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- Group$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, name = resource$name,
- description = resource$description, updated_at = resource$updated_at,
- group_class = resource$group_class, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, delete_at = resource$delete_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
user_agreements.get = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- UserAgreement$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
user_agreements.index = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- UserAgreementList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- user_agreements.create = function(user_agreement,
+ user_agreements.create = function(useragreement,
ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("user_agreements")
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- user_agreement$toJSON()
+
+ if(length(useragreement) > 0)
+ body <- jsonlite::toJSON(list(useragreement = useragreement),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- UserAgreement$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
- user_agreements.update = function(user_agreement, uuid)
+ user_agreements.update = function(useragreement, uuid)
{
endPoint <- stringr::str_interp("user_agreements/${uuid}")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
- body <- user_agreement$toJSON()
+ queryArgs <- NULL
+
+ if(length(useragreement) > 0)
+ body <- jsonlite::toJSON(list(useragreement = useragreement),
+ auto_unbox = TRUE)
+ else
+ body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
if(!is.null(resource$errors))
stop(resource$errors)
- result <- UserAgreement$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
user_agreements.delete = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- UserAgreement$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
user_agreements.signatures = function()
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- UserAgreement$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
user_agreements.sign = function()
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- UserAgreement$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
user_agreements.list = function(filters = NULL,
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- UserAgreementList$new(kind = resource$kind,
- etag = resource$etag, items = resource$items,
- next_link = resource$next_link, next_page_token = resource$next_page_token,
- selfLink = resource$selfLink)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
user_agreements.new = function()
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- UserAgreement$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
user_agreements.show = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- UserAgreement$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
user_agreements.destroy = function(uuid)
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(uuid = uuid)
+ queryArgs <- NULL
+
body <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- result <- UserAgreement$new(uuid = resource$uuid,
- etag = resource$etag, owner_uuid = resource$owner_uuid,
- created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
- modified_by_user_uuid = resource$modified_by_user_uuid,
- modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
- replication_desired = resource$replication_desired,
- replication_confirmed_at = resource$replication_confirmed_at,
- replication_confirmed = resource$replication_confirmed,
- updated_at = resource$updated_at, manifest_text = resource$manifest_text,
- name = resource$name, description = resource$description,
- properties = resource$properties, delete_at = resource$delete_at,
- file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
- storage_classes_confirmed = resource$storage_classes_confirmed,
- storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
-
- if(result$isEmpty())
- resource
- else
- result
+ resource
},
getHostName = function() private$host,
getToken = function() private$token,
- setRESTService = function(newREST) private$REST <- newREST
+ setRESTService = function(newREST) private$REST <- newREST,
+ getRESTService = function() private$REST
),
private = list(
+++ /dev/null
-#' UserList
-#'
-#' User list
-#'
-#' @section Usage:
-#' \preformatted{userList -> UserList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#userList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of Users.}
-#' \item{next_link}{A link to the next page of Users.}
-#' \item{next_page_token}{The page token for the next page of Users.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name UserList
-NULL
-
-#' @export
-UserList <- R6::R6Class(
-
- "UserList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("userlist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' User
-#'
-#' User
-#'
-#' @section Usage:
-#' \preformatted{user -> User$new(uuid = NULL, etag = NULL,
-#' owner_uuid = NULL, created_at = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, modified_at = NULL, email = NULL,
-#' first_name = NULL, last_name = NULL, identity_url = NULL,
-#' is_admin = NULL, prefs = NULL, updated_at = NULL, default_owner_uuid = NULL,
-#' is_active = NULL, username = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{created_at}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{email}{}
-#' \item{first_name}{}
-#' \item{last_name}{}
-#' \item{identity_url}{}
-#' \item{is_admin}{}
-#' \item{prefs}{}
-#' \item{updated_at}{}
-#' \item{default_owner_uuid}{}
-#' \item{is_active}{}
-#' \item{username}{}
-#' }
-#'
-#' @name User
-NULL
-
-#' @export
-User <- R6::R6Class(
-
- "User",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- created_at = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- email = NULL,
- first_name = NULL,
- last_name = NULL,
- identity_url = NULL,
- is_admin = NULL,
- prefs = NULL,
- updated_at = NULL,
- default_owner_uuid = NULL,
- is_active = NULL,
- username = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, created_at = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- email = NULL, first_name = NULL, last_name = NULL,
- identity_url = NULL, is_admin = NULL, prefs = NULL,
- updated_at = NULL, default_owner_uuid = NULL,
- is_active = NULL, username = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$created_at <- created_at
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$email <- email
- self$first_name <- first_name
- self$last_name <- last_name
- self$identity_url <- identity_url
- self$is_admin <- is_admin
- self$prefs <- prefs
- self$updated_at <- updated_at
- self$default_owner_uuid <- default_owner_uuid
- self$is_active <- is_active
- self$username <- username
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "created_at", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "email",
- "first_name", "last_name", "identity_url",
- "is_admin", "prefs", "updated_at", "default_owner_uuid",
- "is_active", "username")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("user" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' ApiClientAuthorizationList
-#'
-#' ApiClientAuthorization list
-#'
-#' @section Usage:
-#' \preformatted{apiClientAuthorizationList -> ApiClientAuthorizationList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#apiClientAuthorizationList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of ApiClientAuthorizations.}
-#' \item{next_link}{A link to the next page of ApiClientAuthorizations.}
-#' \item{next_page_token}{The page token for the next page of ApiClientAuthorizations.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name ApiClientAuthorizationList
-NULL
-
-#' @export
-ApiClientAuthorizationList <- R6::R6Class(
-
- "ApiClientAuthorizationList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("apiclientauthorizationlist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' ApiClientAuthorization
-#'
-#' ApiClientAuthorization
-#'
-#' @section Usage:
-#' \preformatted{apiClientAuthorization -> ApiClientAuthorization$new(uuid = NULL,
-#' etag = NULL, api_token = NULL, api_client_id = NULL,
-#' user_id = NULL, created_by_ip_address = NULL, last_used_by_ip_address = NULL,
-#' last_used_at = NULL, expires_at = NULL, created_at = NULL,
-#' updated_at = NULL, default_owner_uuid = NULL, scopes = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{api_token}{}
-#' \item{api_client_id}{}
-#' \item{user_id}{}
-#' \item{created_by_ip_address}{}
-#' \item{last_used_by_ip_address}{}
-#' \item{last_used_at}{}
-#' \item{expires_at}{}
-#' \item{created_at}{}
-#' \item{updated_at}{}
-#' \item{default_owner_uuid}{}
-#' \item{scopes}{}
-#' \item{uuid}{}
-#' }
-#'
-#' @name ApiClientAuthorization
-NULL
-
-#' @export
-ApiClientAuthorization <- R6::R6Class(
-
- "ApiClientAuthorization",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- api_token = NULL,
- api_client_id = NULL,
- user_id = NULL,
- created_by_ip_address = NULL,
- last_used_by_ip_address = NULL,
- last_used_at = NULL,
- expires_at = NULL,
- created_at = NULL,
- updated_at = NULL,
- default_owner_uuid = NULL,
- scopes = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- api_token = NULL, api_client_id = NULL, user_id = NULL,
- created_by_ip_address = NULL, last_used_by_ip_address = NULL,
- last_used_at = NULL, expires_at = NULL, created_at = NULL,
- updated_at = NULL, default_owner_uuid = NULL,
- scopes = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$api_token <- api_token
- self$api_client_id <- api_client_id
- self$user_id <- user_id
- self$created_by_ip_address <- created_by_ip_address
- self$last_used_by_ip_address <- last_used_by_ip_address
- self$last_used_at <- last_used_at
- self$expires_at <- expires_at
- self$created_at <- created_at
- self$updated_at <- updated_at
- self$default_owner_uuid <- default_owner_uuid
- self$scopes <- scopes
-
- private$classFields <- c("uuid", "etag",
- "api_token", "api_client_id", "user_id",
- "created_by_ip_address", "last_used_by_ip_address",
- "last_used_at", "expires_at", "created_at",
- "updated_at", "default_owner_uuid", "scopes")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("apiclientauthorization" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' ApiClientList
-#'
-#' ApiClient list
-#'
-#' @section Usage:
-#' \preformatted{apiClientList -> ApiClientList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#apiClientList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of ApiClients.}
-#' \item{next_link}{A link to the next page of ApiClients.}
-#' \item{next_page_token}{The page token for the next page of ApiClients.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name ApiClientList
-NULL
-
-#' @export
-ApiClientList <- R6::R6Class(
-
- "ApiClientList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("apiclientlist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' ApiClient
-#'
-#' ApiClient
-#'
-#' @section Usage:
-#' \preformatted{apiClient -> ApiClient$new(uuid = NULL,
-#' etag = NULL, owner_uuid = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, modified_at = NULL, name = NULL,
-#' url_prefix = NULL, created_at = NULL, updated_at = NULL,
-#' is_trusted = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{name}{}
-#' \item{url_prefix}{}
-#' \item{created_at}{}
-#' \item{updated_at}{}
-#' \item{is_trusted}{}
-#' }
-#'
-#' @name ApiClient
-NULL
-
-#' @export
-ApiClient <- R6::R6Class(
-
- "ApiClient",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- name = NULL,
- url_prefix = NULL,
- created_at = NULL,
- updated_at = NULL,
- is_trusted = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- name = NULL, url_prefix = NULL, created_at = NULL,
- updated_at = NULL, is_trusted = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$name <- name
- self$url_prefix <- url_prefix
- self$created_at <- created_at
- self$updated_at <- updated_at
- self$is_trusted <- is_trusted
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "name",
- "url_prefix", "created_at", "updated_at",
- "is_trusted")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("apiclient" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' ContainerRequestList
-#'
-#' ContainerRequest list
-#'
-#' @section Usage:
-#' \preformatted{containerRequestList -> ContainerRequestList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#containerRequestList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of ContainerRequests.}
-#' \item{next_link}{A link to the next page of ContainerRequests.}
-#' \item{next_page_token}{The page token for the next page of ContainerRequests.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name ContainerRequestList
-NULL
-
-#' @export
-ContainerRequestList <- R6::R6Class(
-
- "ContainerRequestList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("containerrequestlist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' ContainerRequest
-#'
-#' ContainerRequest
-#'
-#' @section Usage:
-#' \preformatted{containerRequest -> ContainerRequest$new(uuid = NULL,
-#' etag = NULL, owner_uuid = NULL, created_at = NULL,
-#' modified_at = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, name = NULL, description = NULL,
-#' properties = NULL, state = NULL, requesting_container_uuid = NULL,
-#' container_uuid = NULL, container_count_max = NULL,
-#' mounts = NULL, runtime_constraints = NULL, container_image = NULL,
-#' environment = NULL, cwd = NULL, command = NULL, output_path = NULL,
-#' priority = NULL, expires_at = NULL, filters = NULL,
-#' updated_at = NULL, container_count = NULL, use_existing = NULL,
-#' scheduling_parameters = NULL, output_uuid = NULL, log_uuid = NULL,
-#' output_name = NULL, output_ttl = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{created_at}{}
-#' \item{modified_at}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{name}{}
-#' \item{description}{}
-#' \item{properties}{}
-#' \item{state}{}
-#' \item{requesting_container_uuid}{}
-#' \item{container_uuid}{}
-#' \item{container_count_max}{}
-#' \item{mounts}{}
-#' \item{runtime_constraints}{}
-#' \item{container_image}{}
-#' \item{environment}{}
-#' \item{cwd}{}
-#' \item{command}{}
-#' \item{output_path}{}
-#' \item{priority}{}
-#' \item{expires_at}{}
-#' \item{filters}{}
-#' \item{updated_at}{}
-#' \item{container_count}{}
-#' \item{use_existing}{}
-#' \item{scheduling_parameters}{}
-#' \item{output_uuid}{}
-#' \item{log_uuid}{}
-#' \item{output_name}{}
-#' \item{output_ttl}{}
-#' }
-#'
-#' @name ContainerRequest
-NULL
-
-#' @export
-ContainerRequest <- R6::R6Class(
-
- "ContainerRequest",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- created_at = NULL,
- modified_at = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- name = NULL,
- description = NULL,
- properties = NULL,
- state = NULL,
- requesting_container_uuid = NULL,
- container_uuid = NULL,
- container_count_max = NULL,
- mounts = NULL,
- runtime_constraints = NULL,
- container_image = NULL,
- environment = NULL,
- cwd = NULL,
- command = NULL,
- output_path = NULL,
- priority = NULL,
- expires_at = NULL,
- filters = NULL,
- updated_at = NULL,
- container_count = NULL,
- use_existing = NULL,
- scheduling_parameters = NULL,
- output_uuid = NULL,
- log_uuid = NULL,
- output_name = NULL,
- output_ttl = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, created_at = NULL, modified_at = NULL,
- modified_by_client_uuid = NULL, modified_by_user_uuid = NULL,
- name = NULL, description = NULL, properties = NULL,
- state = NULL, requesting_container_uuid = NULL,
- container_uuid = NULL, container_count_max = NULL,
- mounts = NULL, runtime_constraints = NULL,
- container_image = NULL, environment = NULL,
- cwd = NULL, command = NULL, output_path = NULL,
- priority = NULL, expires_at = NULL, filters = NULL,
- updated_at = NULL, container_count = NULL,
- use_existing = NULL, scheduling_parameters = NULL,
- output_uuid = NULL, log_uuid = NULL, output_name = NULL,
- output_ttl = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$created_at <- created_at
- self$modified_at <- modified_at
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$name <- name
- self$description <- description
- self$properties <- properties
- self$state <- state
- self$requesting_container_uuid <- requesting_container_uuid
- self$container_uuid <- container_uuid
- self$container_count_max <- container_count_max
- self$mounts <- mounts
- self$runtime_constraints <- runtime_constraints
- self$container_image <- container_image
- self$environment <- environment
- self$cwd <- cwd
- self$command <- command
- self$output_path <- output_path
- self$priority <- priority
- self$expires_at <- expires_at
- self$filters <- filters
- self$updated_at <- updated_at
- self$container_count <- container_count
- self$use_existing <- use_existing
- self$scheduling_parameters <- scheduling_parameters
- self$output_uuid <- output_uuid
- self$log_uuid <- log_uuid
- self$output_name <- output_name
- self$output_ttl <- output_ttl
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "created_at", "modified_at",
- "modified_by_client_uuid", "modified_by_user_uuid",
- "name", "description", "properties", "state",
- "requesting_container_uuid", "container_uuid",
- "container_count_max", "mounts", "runtime_constraints",
- "container_image", "environment", "cwd",
- "command", "output_path", "priority", "expires_at",
- "filters", "updated_at", "container_count",
- "use_existing", "scheduling_parameters",
- "output_uuid", "log_uuid", "output_name",
- "output_ttl")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("containerrequest" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' AuthorizedKeyList
-#'
-#' AuthorizedKey list
-#'
-#' @section Usage:
-#' \preformatted{authorizedKeyList -> AuthorizedKeyList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#authorizedKeyList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of AuthorizedKeys.}
-#' \item{next_link}{A link to the next page of AuthorizedKeys.}
-#' \item{next_page_token}{The page token for the next page of AuthorizedKeys.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name AuthorizedKeyList
-NULL
-
-#' @export
-AuthorizedKeyList <- R6::R6Class(
-
- "AuthorizedKeyList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("authorizedkeylist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' AuthorizedKey
-#'
-#' AuthorizedKey
-#'
-#' @section Usage:
-#' \preformatted{authorizedKey -> AuthorizedKey$new(uuid = NULL,
-#' etag = NULL, owner_uuid = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, modified_at = NULL, name = NULL,
-#' key_type = NULL, authorized_user_uuid = NULL, public_key = NULL,
-#' expires_at = NULL, created_at = NULL, updated_at = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{name}{}
-#' \item{key_type}{}
-#' \item{authorized_user_uuid}{}
-#' \item{public_key}{}
-#' \item{expires_at}{}
-#' \item{created_at}{}
-#' \item{updated_at}{}
-#' }
-#'
-#' @name AuthorizedKey
-NULL
-
-#' @export
-AuthorizedKey <- R6::R6Class(
-
- "AuthorizedKey",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- name = NULL,
- key_type = NULL,
- authorized_user_uuid = NULL,
- public_key = NULL,
- expires_at = NULL,
- created_at = NULL,
- updated_at = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- name = NULL, key_type = NULL, authorized_user_uuid = NULL,
- public_key = NULL, expires_at = NULL, created_at = NULL,
- updated_at = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$name <- name
- self$key_type <- key_type
- self$authorized_user_uuid <- authorized_user_uuid
- self$public_key <- public_key
- self$expires_at <- expires_at
- self$created_at <- created_at
- self$updated_at <- updated_at
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "name",
- "key_type", "authorized_user_uuid", "public_key",
- "expires_at", "created_at", "updated_at")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("authorizedkey" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' CollectionList
-#'
-#' Collection list
-#'
-#' @section Usage:
-#' \preformatted{collectionList -> CollectionList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#collectionList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of Collections.}
-#' \item{next_link}{A link to the next page of Collections.}
-#' \item{next_page_token}{The page token for the next page of Collections.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name CollectionList
-NULL
-
-#' @export
-CollectionList <- R6::R6Class(
-
- "CollectionList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("collectionlist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' ContainerList
-#'
-#' Container list
-#'
-#' @section Usage:
-#' \preformatted{containerList -> ContainerList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#containerList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of Containers.}
-#' \item{next_link}{A link to the next page of Containers.}
-#' \item{next_page_token}{The page token for the next page of Containers.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name ContainerList
-NULL
-
-#' @export
-ContainerList <- R6::R6Class(
-
- "ContainerList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("containerlist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' Container
-#'
-#' Container
-#'
-#' @section Usage:
-#' \preformatted{container -> Container$new(uuid = NULL,
-#' etag = NULL, owner_uuid = NULL, created_at = NULL,
-#' modified_at = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, state = NULL, started_at = NULL,
-#' finished_at = NULL, log = NULL, environment = NULL,
-#' cwd = NULL, command = NULL, output_path = NULL, mounts = NULL,
-#' runtime_constraints = NULL, output = NULL, container_image = NULL,
-#' progress = NULL, priority = NULL, updated_at = NULL,
-#' exit_code = NULL, auth_uuid = NULL, locked_by_uuid = NULL,
-#' scheduling_parameters = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{created_at}{}
-#' \item{modified_at}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{state}{}
-#' \item{started_at}{}
-#' \item{finished_at}{}
-#' \item{log}{}
-#' \item{environment}{}
-#' \item{cwd}{}
-#' \item{command}{}
-#' \item{output_path}{}
-#' \item{mounts}{}
-#' \item{runtime_constraints}{}
-#' \item{output}{}
-#' \item{container_image}{}
-#' \item{progress}{}
-#' \item{priority}{}
-#' \item{updated_at}{}
-#' \item{exit_code}{}
-#' \item{auth_uuid}{}
-#' \item{locked_by_uuid}{}
-#' \item{scheduling_parameters}{}
-#' }
-#'
-#' @name Container
-NULL
-
-#' @export
-Container <- R6::R6Class(
-
- "Container",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- created_at = NULL,
- modified_at = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- state = NULL,
- started_at = NULL,
- finished_at = NULL,
- log = NULL,
- environment = NULL,
- cwd = NULL,
- command = NULL,
- output_path = NULL,
- mounts = NULL,
- runtime_constraints = NULL,
- output = NULL,
- container_image = NULL,
- progress = NULL,
- priority = NULL,
- updated_at = NULL,
- exit_code = NULL,
- auth_uuid = NULL,
- locked_by_uuid = NULL,
- scheduling_parameters = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, created_at = NULL, modified_at = NULL,
- modified_by_client_uuid = NULL, modified_by_user_uuid = NULL,
- state = NULL, started_at = NULL, finished_at = NULL,
- log = NULL, environment = NULL, cwd = NULL,
- command = NULL, output_path = NULL, mounts = NULL,
- runtime_constraints = NULL, output = NULL,
- container_image = NULL, progress = NULL,
- priority = NULL, updated_at = NULL, exit_code = NULL,
- auth_uuid = NULL, locked_by_uuid = NULL,
- scheduling_parameters = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$created_at <- created_at
- self$modified_at <- modified_at
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$state <- state
- self$started_at <- started_at
- self$finished_at <- finished_at
- self$log <- log
- self$environment <- environment
- self$cwd <- cwd
- self$command <- command
- self$output_path <- output_path
- self$mounts <- mounts
- self$runtime_constraints <- runtime_constraints
- self$output <- output
- self$container_image <- container_image
- self$progress <- progress
- self$priority <- priority
- self$updated_at <- updated_at
- self$exit_code <- exit_code
- self$auth_uuid <- auth_uuid
- self$locked_by_uuid <- locked_by_uuid
- self$scheduling_parameters <- scheduling_parameters
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "created_at", "modified_at",
- "modified_by_client_uuid", "modified_by_user_uuid",
- "state", "started_at", "finished_at", "log",
- "environment", "cwd", "command", "output_path",
- "mounts", "runtime_constraints", "output",
- "container_image", "progress", "priority",
- "updated_at", "exit_code", "auth_uuid", "locked_by_uuid",
- "scheduling_parameters")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("container" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' HumanList
-#'
-#' Human list
-#'
-#' @section Usage:
-#' \preformatted{humanList -> HumanList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#humanList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of Humans.}
-#' \item{next_link}{A link to the next page of Humans.}
-#' \item{next_page_token}{The page token for the next page of Humans.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name HumanList
-NULL
-
-#' @export
-HumanList <- R6::R6Class(
-
- "HumanList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("humanlist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' Human
-#'
-#' Human
-#'
-#' @section Usage:
-#' \preformatted{human -> Human$new(uuid = NULL, etag = NULL,
-#' owner_uuid = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, modified_at = NULL, properties = NULL,
-#' created_at = NULL, updated_at = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{properties}{}
-#' \item{created_at}{}
-#' \item{updated_at}{}
-#' }
-#'
-#' @name Human
-NULL
-
-#' @export
-Human <- R6::R6Class(
-
- "Human",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- properties = NULL,
- created_at = NULL,
- updated_at = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- properties = NULL, created_at = NULL, updated_at = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$properties <- properties
- self$created_at <- created_at
- self$updated_at <- updated_at
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "properties",
- "created_at", "updated_at")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("human" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' JobTaskList
-#'
-#' JobTask list
-#'
-#' @section Usage:
-#' \preformatted{jobTaskList -> JobTaskList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#jobTaskList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of JobTasks.}
-#' \item{next_link}{A link to the next page of JobTasks.}
-#' \item{next_page_token}{The page token for the next page of JobTasks.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name JobTaskList
-NULL
-
-#' @export
-JobTaskList <- R6::R6Class(
-
- "JobTaskList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("jobtasklist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' JobTask
-#'
-#' JobTask
-#'
-#' @section Usage:
-#' \preformatted{jobTask -> JobTask$new(uuid = NULL,
-#' etag = NULL, owner_uuid = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, modified_at = NULL, job_uuid = NULL,
-#' sequence = NULL, parameters = NULL, output = NULL,
-#' progress = NULL, success = NULL, created_at = NULL,
-#' updated_at = NULL, created_by_job_task_uuid = NULL,
-#' qsequence = NULL, started_at = NULL, finished_at = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{job_uuid}{}
-#' \item{sequence}{}
-#' \item{parameters}{}
-#' \item{output}{}
-#' \item{progress}{}
-#' \item{success}{}
-#' \item{created_at}{}
-#' \item{updated_at}{}
-#' \item{created_by_job_task_uuid}{}
-#' \item{qsequence}{}
-#' \item{started_at}{}
-#' \item{finished_at}{}
-#' }
-#'
-#' @name JobTask
-NULL
-
-#' @export
-JobTask <- R6::R6Class(
-
- "JobTask",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- job_uuid = NULL,
- sequence = NULL,
- parameters = NULL,
- output = NULL,
- progress = NULL,
- success = NULL,
- created_at = NULL,
- updated_at = NULL,
- created_by_job_task_uuid = NULL,
- qsequence = NULL,
- started_at = NULL,
- finished_at = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- job_uuid = NULL, sequence = NULL, parameters = NULL,
- output = NULL, progress = NULL, success = NULL,
- created_at = NULL, updated_at = NULL, created_by_job_task_uuid = NULL,
- qsequence = NULL, started_at = NULL, finished_at = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$job_uuid <- job_uuid
- self$sequence <- sequence
- self$parameters <- parameters
- self$output <- output
- self$progress <- progress
- self$success <- success
- self$created_at <- created_at
- self$updated_at <- updated_at
- self$created_by_job_task_uuid <- created_by_job_task_uuid
- self$qsequence <- qsequence
- self$started_at <- started_at
- self$finished_at <- finished_at
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "job_uuid",
- "sequence", "parameters", "output", "progress",
- "success", "created_at", "updated_at", "created_by_job_task_uuid",
- "qsequence", "started_at", "finished_at")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("jobtask" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' LinkList
-#'
-#' Link list
-#'
-#' @section Usage:
-#' \preformatted{linkList -> LinkList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#linkList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of Links.}
-#' \item{next_link}{A link to the next page of Links.}
-#' \item{next_page_token}{The page token for the next page of Links.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name LinkList
-NULL
-
-#' @export
-LinkList <- R6::R6Class(
-
- "LinkList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("linklist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' Link
-#'
-#' Link
-#'
-#' @section Usage:
-#' \preformatted{link -> Link$new(uuid = NULL, etag = NULL,
-#' owner_uuid = NULL, created_at = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, modified_at = NULL, tail_uuid = NULL,
-#' link_class = NULL, name = NULL, head_uuid = NULL, properties = NULL,
-#' updated_at = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{created_at}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{tail_uuid}{}
-#' \item{link_class}{}
-#' \item{name}{}
-#' \item{head_uuid}{}
-#' \item{properties}{}
-#' \item{updated_at}{}
-#' }
-#'
-#' @name Link
-NULL
-
-#' @export
-Link <- R6::R6Class(
-
- "Link",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- created_at = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- tail_uuid = NULL,
- link_class = NULL,
- name = NULL,
- head_uuid = NULL,
- properties = NULL,
- updated_at = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, created_at = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- tail_uuid = NULL, link_class = NULL, name = NULL,
- head_uuid = NULL, properties = NULL, updated_at = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$created_at <- created_at
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$tail_uuid <- tail_uuid
- self$link_class <- link_class
- self$name <- name
- self$head_uuid <- head_uuid
- self$properties <- properties
- self$updated_at <- updated_at
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "created_at", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "tail_uuid",
- "link_class", "name", "head_uuid", "properties",
- "updated_at")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("link" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' JobList
-#'
-#' Job list
-#'
-#' @section Usage:
-#' \preformatted{jobList -> JobList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#jobList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of Jobs.}
-#' \item{next_link}{A link to the next page of Jobs.}
-#' \item{next_page_token}{The page token for the next page of Jobs.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name JobList
-NULL
-
-#' @export
-JobList <- R6::R6Class(
-
- "JobList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("joblist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' Job
-#'
-#' Job
-#'
-#' @section Usage:
-#' \preformatted{job -> Job$new(uuid = NULL, etag = NULL,
-#' owner_uuid = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, modified_at = NULL, submit_id = NULL,
-#' script = NULL, script_version = NULL, script_parameters = NULL,
-#' cancelled_by_client_uuid = NULL, cancelled_by_user_uuid = NULL,
-#' cancelled_at = NULL, started_at = NULL, finished_at = NULL,
-#' running = NULL, success = NULL, output = NULL, created_at = NULL,
-#' updated_at = NULL, is_locked_by_uuid = NULL, log = NULL,
-#' tasks_summary = NULL, runtime_constraints = NULL, nondeterministic = NULL,
-#' repository = NULL, supplied_script_version = NULL,
-#' docker_image_locator = NULL, priority = NULL, description = NULL,
-#' state = NULL, arvados_sdk_version = NULL, components = NULL,
-#' script_parameters_digest = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{submit_id}{}
-#' \item{script}{}
-#' \item{script_version}{}
-#' \item{script_parameters}{}
-#' \item{cancelled_by_client_uuid}{}
-#' \item{cancelled_by_user_uuid}{}
-#' \item{cancelled_at}{}
-#' \item{started_at}{}
-#' \item{finished_at}{}
-#' \item{running}{}
-#' \item{success}{}
-#' \item{output}{}
-#' \item{created_at}{}
-#' \item{updated_at}{}
-#' \item{is_locked_by_uuid}{}
-#' \item{log}{}
-#' \item{tasks_summary}{}
-#' \item{runtime_constraints}{}
-#' \item{nondeterministic}{}
-#' \item{repository}{}
-#' \item{supplied_script_version}{}
-#' \item{docker_image_locator}{}
-#' \item{priority}{}
-#' \item{description}{}
-#' \item{state}{}
-#' \item{arvados_sdk_version}{}
-#' \item{components}{}
-#' \item{script_parameters_digest}{}
-#' }
-#'
-#' @name Job
-NULL
-
-#' @export
-Job <- R6::R6Class(
-
- "Job",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- submit_id = NULL,
- script = NULL,
- script_version = NULL,
- script_parameters = NULL,
- cancelled_by_client_uuid = NULL,
- cancelled_by_user_uuid = NULL,
- cancelled_at = NULL,
- started_at = NULL,
- finished_at = NULL,
- running = NULL,
- success = NULL,
- output = NULL,
- created_at = NULL,
- updated_at = NULL,
- is_locked_by_uuid = NULL,
- log = NULL,
- tasks_summary = NULL,
- runtime_constraints = NULL,
- nondeterministic = NULL,
- repository = NULL,
- supplied_script_version = NULL,
- docker_image_locator = NULL,
- priority = NULL,
- description = NULL,
- state = NULL,
- arvados_sdk_version = NULL,
- components = NULL,
- script_parameters_digest = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- submit_id = NULL, script = NULL, script_version = NULL,
- script_parameters = NULL, cancelled_by_client_uuid = NULL,
- cancelled_by_user_uuid = NULL, cancelled_at = NULL,
- started_at = NULL, finished_at = NULL, running = NULL,
- success = NULL, output = NULL, created_at = NULL,
- updated_at = NULL, is_locked_by_uuid = NULL,
- log = NULL, tasks_summary = NULL, runtime_constraints = NULL,
- nondeterministic = NULL, repository = NULL,
- supplied_script_version = NULL, docker_image_locator = NULL,
- priority = NULL, description = NULL, state = NULL,
- arvados_sdk_version = NULL, components = NULL,
- script_parameters_digest = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$submit_id <- submit_id
- self$script <- script
- self$script_version <- script_version
- self$script_parameters <- script_parameters
- self$cancelled_by_client_uuid <- cancelled_by_client_uuid
- self$cancelled_by_user_uuid <- cancelled_by_user_uuid
- self$cancelled_at <- cancelled_at
- self$started_at <- started_at
- self$finished_at <- finished_at
- self$running <- running
- self$success <- success
- self$output <- output
- self$created_at <- created_at
- self$updated_at <- updated_at
- self$is_locked_by_uuid <- is_locked_by_uuid
- self$log <- log
- self$tasks_summary <- tasks_summary
- self$runtime_constraints <- runtime_constraints
- self$nondeterministic <- nondeterministic
- self$repository <- repository
- self$supplied_script_version <- supplied_script_version
- self$docker_image_locator <- docker_image_locator
- self$priority <- priority
- self$description <- description
- self$state <- state
- self$arvados_sdk_version <- arvados_sdk_version
- self$components <- components
- self$script_parameters_digest <- script_parameters_digest
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "submit_id",
- "script", "script_version", "script_parameters",
- "cancelled_by_client_uuid", "cancelled_by_user_uuid",
- "cancelled_at", "started_at", "finished_at",
- "running", "success", "output", "created_at",
- "updated_at", "is_locked_by_uuid", "log",
- "tasks_summary", "runtime_constraints", "nondeterministic",
- "repository", "supplied_script_version",
- "docker_image_locator", "priority", "description",
- "state", "arvados_sdk_version", "components",
- "script_parameters_digest")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("job" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' KeepDiskList
-#'
-#' KeepDisk list
-#'
-#' @section Usage:
-#' \preformatted{keepDiskList -> KeepDiskList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#keepDiskList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of KeepDisks.}
-#' \item{next_link}{A link to the next page of KeepDisks.}
-#' \item{next_page_token}{The page token for the next page of KeepDisks.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name KeepDiskList
-NULL
-
-#' @export
-KeepDiskList <- R6::R6Class(
-
- "KeepDiskList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("keepdisklist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' KeepDisk
-#'
-#' KeepDisk
-#'
-#' @section Usage:
-#' \preformatted{keepDisk -> KeepDisk$new(uuid = NULL,
-#' etag = NULL, owner_uuid = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, modified_at = NULL, ping_secret = NULL,
-#' node_uuid = NULL, filesystem_uuid = NULL, bytes_total = NULL,
-#' bytes_free = NULL, is_readable = NULL, is_writable = NULL,
-#' last_read_at = NULL, last_write_at = NULL, last_ping_at = NULL,
-#' created_at = NULL, updated_at = NULL, keep_service_uuid = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{ping_secret}{}
-#' \item{node_uuid}{}
-#' \item{filesystem_uuid}{}
-#' \item{bytes_total}{}
-#' \item{bytes_free}{}
-#' \item{is_readable}{}
-#' \item{is_writable}{}
-#' \item{last_read_at}{}
-#' \item{last_write_at}{}
-#' \item{last_ping_at}{}
-#' \item{created_at}{}
-#' \item{updated_at}{}
-#' \item{keep_service_uuid}{}
-#' }
-#'
-#' @name KeepDisk
-NULL
-
-#' @export
-KeepDisk <- R6::R6Class(
-
- "KeepDisk",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- ping_secret = NULL,
- node_uuid = NULL,
- filesystem_uuid = NULL,
- bytes_total = NULL,
- bytes_free = NULL,
- is_readable = NULL,
- is_writable = NULL,
- last_read_at = NULL,
- last_write_at = NULL,
- last_ping_at = NULL,
- created_at = NULL,
- updated_at = NULL,
- keep_service_uuid = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- ping_secret = NULL, node_uuid = NULL, filesystem_uuid = NULL,
- bytes_total = NULL, bytes_free = NULL, is_readable = NULL,
- is_writable = NULL, last_read_at = NULL,
- last_write_at = NULL, last_ping_at = NULL,
- created_at = NULL, updated_at = NULL, keep_service_uuid = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$ping_secret <- ping_secret
- self$node_uuid <- node_uuid
- self$filesystem_uuid <- filesystem_uuid
- self$bytes_total <- bytes_total
- self$bytes_free <- bytes_free
- self$is_readable <- is_readable
- self$is_writable <- is_writable
- self$last_read_at <- last_read_at
- self$last_write_at <- last_write_at
- self$last_ping_at <- last_ping_at
- self$created_at <- created_at
- self$updated_at <- updated_at
- self$keep_service_uuid <- keep_service_uuid
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "ping_secret",
- "node_uuid", "filesystem_uuid", "bytes_total",
- "bytes_free", "is_readable", "is_writable",
- "last_read_at", "last_write_at", "last_ping_at",
- "created_at", "updated_at", "keep_service_uuid")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("keepdisk" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' KeepServiceList
-#'
-#' KeepService list
-#'
-#' @section Usage:
-#' \preformatted{keepServiceList -> KeepServiceList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#keepServiceList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of KeepServices.}
-#' \item{next_link}{A link to the next page of KeepServices.}
-#' \item{next_page_token}{The page token for the next page of KeepServices.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name KeepServiceList
-NULL
-
-#' @export
-KeepServiceList <- R6::R6Class(
-
- "KeepServiceList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("keepservicelist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' KeepService
-#'
-#' KeepService
-#'
-#' @section Usage:
-#' \preformatted{keepService -> KeepService$new(uuid = NULL,
-#' etag = NULL, owner_uuid = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, modified_at = NULL, service_host = NULL,
-#' service_port = NULL, service_ssl_flag = NULL, service_type = NULL,
-#' created_at = NULL, updated_at = NULL, read_only = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{service_host}{}
-#' \item{service_port}{}
-#' \item{service_ssl_flag}{}
-#' \item{service_type}{}
-#' \item{created_at}{}
-#' \item{updated_at}{}
-#' \item{read_only}{}
-#' }
-#'
-#' @name KeepService
-NULL
-
-#' @export
-KeepService <- R6::R6Class(
-
- "KeepService",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- service_host = NULL,
- service_port = NULL,
- service_ssl_flag = NULL,
- service_type = NULL,
- created_at = NULL,
- updated_at = NULL,
- read_only = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- service_host = NULL, service_port = NULL,
- service_ssl_flag = NULL, service_type = NULL,
- created_at = NULL, updated_at = NULL, read_only = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$service_host <- service_host
- self$service_port <- service_port
- self$service_ssl_flag <- service_ssl_flag
- self$service_type <- service_type
- self$created_at <- created_at
- self$updated_at <- updated_at
- self$read_only <- read_only
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "service_host",
- "service_port", "service_ssl_flag", "service_type",
- "created_at", "updated_at", "read_only")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("keepservice" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' PipelineTemplateList
-#'
-#' PipelineTemplate list
-#'
-#' @section Usage:
-#' \preformatted{pipelineTemplateList -> PipelineTemplateList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#pipelineTemplateList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of PipelineTemplates.}
-#' \item{next_link}{A link to the next page of PipelineTemplates.}
-#' \item{next_page_token}{The page token for the next page of PipelineTemplates.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name PipelineTemplateList
-NULL
-
-#' @export
-PipelineTemplateList <- R6::R6Class(
-
- "PipelineTemplateList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("pipelinetemplatelist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' PipelineTemplate
-#'
-#' PipelineTemplate
-#'
-#' @section Usage:
-#' \preformatted{pipelineTemplate -> PipelineTemplate$new(uuid = NULL,
-#' etag = NULL, owner_uuid = NULL, created_at = NULL,
-#' modified_by_client_uuid = NULL, modified_by_user_uuid = NULL,
-#' modified_at = NULL, name = NULL, components = NULL,
-#' updated_at = NULL, description = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{created_at}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{name}{}
-#' \item{components}{}
-#' \item{updated_at}{}
-#' \item{description}{}
-#' }
-#'
-#' @name PipelineTemplate
-NULL
-
-#' @export
-PipelineTemplate <- R6::R6Class(
-
- "PipelineTemplate",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- created_at = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- name = NULL,
- components = NULL,
- updated_at = NULL,
- description = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, created_at = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- name = NULL, components = NULL, updated_at = NULL,
- description = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$created_at <- created_at
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$name <- name
- self$components <- components
- self$updated_at <- updated_at
- self$description <- description
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "created_at", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "name",
- "components", "updated_at", "description")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("pipelinetemplate" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' PipelineInstanceList
-#'
-#' PipelineInstance list
-#'
-#' @section Usage:
-#' \preformatted{pipelineInstanceList -> PipelineInstanceList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#pipelineInstanceList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of PipelineInstances.}
-#' \item{next_link}{A link to the next page of PipelineInstances.}
-#' \item{next_page_token}{The page token for the next page of PipelineInstances.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name PipelineInstanceList
-NULL
-
-#' @export
-PipelineInstanceList <- R6::R6Class(
-
- "PipelineInstanceList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("pipelineinstancelist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' PipelineInstance
-#'
-#' PipelineInstance
-#'
-#' @section Usage:
-#' \preformatted{pipelineInstance -> PipelineInstance$new(uuid = NULL,
-#' etag = NULL, owner_uuid = NULL, created_at = NULL,
-#' modified_by_client_uuid = NULL, modified_by_user_uuid = NULL,
-#' modified_at = NULL, pipeline_template_uuid = NULL,
-#' name = NULL, components = NULL, updated_at = NULL,
-#' properties = NULL, state = NULL, components_summary = NULL,
-#' started_at = NULL, finished_at = NULL, description = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{created_at}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{pipeline_template_uuid}{}
-#' \item{name}{}
-#' \item{components}{}
-#' \item{updated_at}{}
-#' \item{properties}{}
-#' \item{state}{}
-#' \item{components_summary}{}
-#' \item{started_at}{}
-#' \item{finished_at}{}
-#' \item{description}{}
-#' }
-#'
-#' @name PipelineInstance
-NULL
-
-#' @export
-PipelineInstance <- R6::R6Class(
-
- "PipelineInstance",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- created_at = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- pipeline_template_uuid = NULL,
- name = NULL,
- components = NULL,
- updated_at = NULL,
- properties = NULL,
- state = NULL,
- components_summary = NULL,
- started_at = NULL,
- finished_at = NULL,
- description = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, created_at = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- pipeline_template_uuid = NULL, name = NULL,
- components = NULL, updated_at = NULL, properties = NULL,
- state = NULL, components_summary = NULL,
- started_at = NULL, finished_at = NULL, description = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$created_at <- created_at
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$pipeline_template_uuid <- pipeline_template_uuid
- self$name <- name
- self$components <- components
- self$updated_at <- updated_at
- self$properties <- properties
- self$state <- state
- self$components_summary <- components_summary
- self$started_at <- started_at
- self$finished_at <- finished_at
- self$description <- description
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "created_at", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "pipeline_template_uuid",
- "name", "components", "updated_at", "properties",
- "state", "components_summary", "started_at",
- "finished_at", "description")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("pipelineinstance" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' NodeList
-#'
-#' Node list
-#'
-#' @section Usage:
-#' \preformatted{nodeList -> NodeList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#nodeList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of Nodes.}
-#' \item{next_link}{A link to the next page of Nodes.}
-#' \item{next_page_token}{The page token for the next page of Nodes.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name NodeList
-NULL
-
-#' @export
-NodeList <- R6::R6Class(
-
- "NodeList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("nodelist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' Node
-#'
-#' Node
-#'
-#' @section Usage:
-#' \preformatted{node -> Node$new(uuid = NULL, etag = NULL,
-#' owner_uuid = NULL, created_at = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, modified_at = NULL, slot_number = NULL,
-#' hostname = NULL, domain = NULL, ip_address = NULL,
-#' first_ping_at = NULL, last_ping_at = NULL, info = NULL,
-#' updated_at = NULL, properties = NULL, job_uuid = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{created_at}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{slot_number}{}
-#' \item{hostname}{}
-#' \item{domain}{}
-#' \item{ip_address}{}
-#' \item{first_ping_at}{}
-#' \item{last_ping_at}{}
-#' \item{info}{}
-#' \item{updated_at}{}
-#' \item{properties}{}
-#' \item{job_uuid}{}
-#' }
-#'
-#' @name Node
-NULL
-
-#' @export
-Node <- R6::R6Class(
-
- "Node",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- created_at = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- slot_number = NULL,
- hostname = NULL,
- domain = NULL,
- ip_address = NULL,
- first_ping_at = NULL,
- last_ping_at = NULL,
- info = NULL,
- updated_at = NULL,
- properties = NULL,
- job_uuid = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, created_at = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- slot_number = NULL, hostname = NULL, domain = NULL,
- ip_address = NULL, first_ping_at = NULL,
- last_ping_at = NULL, info = NULL, updated_at = NULL,
- properties = NULL, job_uuid = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$created_at <- created_at
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$slot_number <- slot_number
- self$hostname <- hostname
- self$domain <- domain
- self$ip_address <- ip_address
- self$first_ping_at <- first_ping_at
- self$last_ping_at <- last_ping_at
- self$info <- info
- self$updated_at <- updated_at
- self$properties <- properties
- self$job_uuid <- job_uuid
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "created_at", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "slot_number",
- "hostname", "domain", "ip_address", "first_ping_at",
- "last_ping_at", "info", "updated_at", "properties",
- "job_uuid")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("node" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' RepositoryList
-#'
-#' Repository list
-#'
-#' @section Usage:
-#' \preformatted{repositoryList -> RepositoryList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#repositoryList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of Repositories.}
-#' \item{next_link}{A link to the next page of Repositories.}
-#' \item{next_page_token}{The page token for the next page of Repositories.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name RepositoryList
-NULL
-
-#' @export
-RepositoryList <- R6::R6Class(
-
- "RepositoryList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("repositorylist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' Repository
-#'
-#' Repository
-#'
-#' @section Usage:
-#' \preformatted{repository -> Repository$new(uuid = NULL,
-#' etag = NULL, owner_uuid = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, modified_at = NULL, name = NULL,
-#' created_at = NULL, updated_at = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{name}{}
-#' \item{created_at}{}
-#' \item{updated_at}{}
-#' }
-#'
-#' @name Repository
-NULL
-
-#' @export
-Repository <- R6::R6Class(
-
- "Repository",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- name = NULL,
- created_at = NULL,
- updated_at = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- name = NULL, created_at = NULL, updated_at = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$name <- name
- self$created_at <- created_at
- self$updated_at <- updated_at
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "name",
- "created_at", "updated_at")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("repository" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' SpecimenList
-#'
-#' Specimen list
-#'
-#' @section Usage:
-#' \preformatted{specimenList -> SpecimenList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#specimenList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of Specimens.}
-#' \item{next_link}{A link to the next page of Specimens.}
-#' \item{next_page_token}{The page token for the next page of Specimens.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name SpecimenList
-NULL
-
-#' @export
-SpecimenList <- R6::R6Class(
-
- "SpecimenList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("specimenlist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' Specimen
-#'
-#' Specimen
-#'
-#' @section Usage:
-#' \preformatted{specimen -> Specimen$new(uuid = NULL,
-#' etag = NULL, owner_uuid = NULL, created_at = NULL,
-#' modified_by_client_uuid = NULL, modified_by_user_uuid = NULL,
-#' modified_at = NULL, material = NULL, updated_at = NULL,
-#' properties = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{created_at}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{material}{}
-#' \item{updated_at}{}
-#' \item{properties}{}
-#' }
-#'
-#' @name Specimen
-NULL
-
-#' @export
-Specimen <- R6::R6Class(
-
- "Specimen",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- created_at = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- material = NULL,
- updated_at = NULL,
- properties = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, created_at = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- material = NULL, updated_at = NULL, properties = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$created_at <- created_at
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$material <- material
- self$updated_at <- updated_at
- self$properties <- properties
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "created_at", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "material",
- "updated_at", "properties")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("specimen" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' LogList
-#'
-#' Log list
-#'
-#' @section Usage:
-#' \preformatted{logList -> LogList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#logList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of Logs.}
-#' \item{next_link}{A link to the next page of Logs.}
-#' \item{next_page_token}{The page token for the next page of Logs.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name LogList
-NULL
-
-#' @export
-LogList <- R6::R6Class(
-
- "LogList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("loglist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' Log
-#'
-#' Log
-#'
-#' @section Usage:
-#' \preformatted{log -> Log$new(uuid = NULL, etag = NULL,
-#' owner_uuid = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, object_uuid = NULL, event_at = NULL,
-#' event_type = NULL, summary = NULL, properties = NULL,
-#' created_at = NULL, updated_at = NULL, modified_at = NULL,
-#' object_owner_uuid = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{object_uuid}{}
-#' \item{event_at}{}
-#' \item{event_type}{}
-#' \item{summary}{}
-#' \item{properties}{}
-#' \item{created_at}{}
-#' \item{updated_at}{}
-#' \item{modified_at}{}
-#' \item{object_owner_uuid}{}
-#' }
-#'
-#' @name Log
-NULL
-
-#' @export
-Log <- R6::R6Class(
-
- "Log",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- object_uuid = NULL,
- event_at = NULL,
- event_type = NULL,
- summary = NULL,
- properties = NULL,
- created_at = NULL,
- updated_at = NULL,
- modified_at = NULL,
- object_owner_uuid = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, object_uuid = NULL,
- event_at = NULL, event_type = NULL, summary = NULL,
- properties = NULL, created_at = NULL, updated_at = NULL,
- modified_at = NULL, object_owner_uuid = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$object_uuid <- object_uuid
- self$event_at <- event_at
- self$event_type <- event_type
- self$summary <- summary
- self$properties <- properties
- self$created_at <- created_at
- self$updated_at <- updated_at
- self$modified_at <- modified_at
- self$object_owner_uuid <- object_owner_uuid
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "modified_by_client_uuid",
- "modified_by_user_uuid", "object_uuid", "event_at",
- "event_type", "summary", "properties", "created_at",
- "updated_at", "modified_at", "object_owner_uuid")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("log" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' TraitList
-#'
-#' Trait list
-#'
-#' @section Usage:
-#' \preformatted{traitList -> TraitList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#traitList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of Traits.}
-#' \item{next_link}{A link to the next page of Traits.}
-#' \item{next_page_token}{The page token for the next page of Traits.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name TraitList
-NULL
-
-#' @export
-TraitList <- R6::R6Class(
-
- "TraitList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("traitlist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' Trait
-#'
-#' Trait
-#'
-#' @section Usage:
-#' \preformatted{trait -> Trait$new(uuid = NULL, etag = NULL,
-#' owner_uuid = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, modified_at = NULL, name = NULL,
-#' properties = NULL, created_at = NULL, updated_at = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{name}{}
-#' \item{properties}{}
-#' \item{created_at}{}
-#' \item{updated_at}{}
-#' }
-#'
-#' @name Trait
-NULL
-
-#' @export
-Trait <- R6::R6Class(
-
- "Trait",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- name = NULL,
- properties = NULL,
- created_at = NULL,
- updated_at = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- name = NULL, properties = NULL, created_at = NULL,
- updated_at = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$name <- name
- self$properties <- properties
- self$created_at <- created_at
- self$updated_at <- updated_at
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "name",
- "properties", "created_at", "updated_at")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("trait" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' VirtualMachineList
-#'
-#' VirtualMachine list
-#'
-#' @section Usage:
-#' \preformatted{virtualMachineList -> VirtualMachineList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#virtualMachineList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of VirtualMachines.}
-#' \item{next_link}{A link to the next page of VirtualMachines.}
-#' \item{next_page_token}{The page token for the next page of VirtualMachines.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name VirtualMachineList
-NULL
-
-#' @export
-VirtualMachineList <- R6::R6Class(
-
- "VirtualMachineList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("virtualmachinelist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' VirtualMachine
-#'
-#' VirtualMachine
-#'
-#' @section Usage:
-#' \preformatted{virtualMachine -> VirtualMachine$new(uuid = NULL,
-#' etag = NULL, owner_uuid = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, modified_at = NULL, hostname = NULL,
-#' created_at = NULL, updated_at = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{hostname}{}
-#' \item{created_at}{}
-#' \item{updated_at}{}
-#' }
-#'
-#' @name VirtualMachine
-NULL
-
-#' @export
-VirtualMachine <- R6::R6Class(
-
- "VirtualMachine",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- hostname = NULL,
- created_at = NULL,
- updated_at = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- hostname = NULL, created_at = NULL, updated_at = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$hostname <- hostname
- self$created_at <- created_at
- self$updated_at <- updated_at
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "hostname",
- "created_at", "updated_at")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("virtualmachine" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' WorkflowList
-#'
-#' Workflow list
-#'
-#' @section Usage:
-#' \preformatted{workflowList -> WorkflowList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#workflowList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of Workflows.}
-#' \item{next_link}{A link to the next page of Workflows.}
-#' \item{next_page_token}{The page token for the next page of Workflows.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name WorkflowList
-NULL
-
-#' @export
-WorkflowList <- R6::R6Class(
-
- "WorkflowList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("workflowlist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' Workflow
-#'
-#' Workflow
-#'
-#' @section Usage:
-#' \preformatted{workflow -> Workflow$new(uuid = NULL,
-#' etag = NULL, owner_uuid = NULL, created_at = NULL,
-#' modified_at = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, name = NULL, description = NULL,
-#' definition = NULL, updated_at = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{created_at}{}
-#' \item{modified_at}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{name}{}
-#' \item{description}{}
-#' \item{definition}{}
-#' \item{updated_at}{}
-#' }
-#'
-#' @name Workflow
-NULL
-
-#' @export
-Workflow <- R6::R6Class(
-
- "Workflow",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- created_at = NULL,
- modified_at = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- name = NULL,
- description = NULL,
- definition = NULL,
- updated_at = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, created_at = NULL, modified_at = NULL,
- modified_by_client_uuid = NULL, modified_by_user_uuid = NULL,
- name = NULL, description = NULL, definition = NULL,
- updated_at = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$created_at <- created_at
- self$modified_at <- modified_at
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$name <- name
- self$description <- description
- self$definition <- definition
- self$updated_at <- updated_at
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "created_at", "modified_at",
- "modified_by_client_uuid", "modified_by_user_uuid",
- "name", "description", "definition", "updated_at")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("workflow" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' GroupList
-#'
-#' Group list
-#'
-#' @section Usage:
-#' \preformatted{groupList -> GroupList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#groupList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of Groups.}
-#' \item{next_link}{A link to the next page of Groups.}
-#' \item{next_page_token}{The page token for the next page of Groups.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name GroupList
-NULL
-
-#' @export
-GroupList <- R6::R6Class(
-
- "GroupList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("grouplist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' Group
-#'
-#' Group
-#'
-#' @section Usage:
-#' \preformatted{group -> Group$new(uuid = NULL, etag = NULL,
-#' owner_uuid = NULL, created_at = NULL, modified_by_client_uuid = NULL,
-#' modified_by_user_uuid = NULL, modified_at = NULL, name = NULL,
-#' description = NULL, updated_at = NULL, group_class = NULL,
-#' trash_at = NULL, is_trashed = NULL, delete_at = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{uuid}{}
-#' \item{owner_uuid}{}
-#' \item{created_at}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{name}{}
-#' \item{description}{}
-#' \item{updated_at}{}
-#' \item{group_class}{}
-#' \item{trash_at}{}
-#' \item{is_trashed}{}
-#' \item{delete_at}{}
-#' }
-#'
-#' @name Group
-NULL
-
-#' @export
-Group <- R6::R6Class(
-
- "Group",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- created_at = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- name = NULL,
- description = NULL,
- updated_at = NULL,
- group_class = NULL,
- trash_at = NULL,
- is_trashed = NULL,
- delete_at = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, created_at = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- name = NULL, description = NULL, updated_at = NULL,
- group_class = NULL, trash_at = NULL, is_trashed = NULL,
- delete_at = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$created_at <- created_at
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$name <- name
- self$description <- description
- self$updated_at <- updated_at
- self$group_class <- group_class
- self$trash_at <- trash_at
- self$is_trashed <- is_trashed
- self$delete_at <- delete_at
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "created_at", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "name",
- "description", "updated_at", "group_class",
- "trash_at", "is_trashed", "delete_at")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("group" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' UserAgreementList
-#'
-#' UserAgreement list
-#'
-#' @section Usage:
-#' \preformatted{userAgreementList -> UserAgreementList$new(kind = NULL,
-#' etag = NULL, items = NULL, next_link = NULL, next_page_token = NULL,
-#' selfLink = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{kind}{Object type. Always arvados#userAgreementList.}
-#' \item{etag}{List version.}
-#' \item{items}{The list of UserAgreements.}
-#' \item{next_link}{A link to the next page of UserAgreements.}
-#' \item{next_page_token}{The page token for the next page of UserAgreements.}
-#' \item{selfLink}{A link back to this list.}
-#' }
-#'
-#' @name UserAgreementList
-NULL
-
-#' @export
-UserAgreementList <- R6::R6Class(
-
- "UserAgreementList",
-
- public = list(
- kind = NULL,
- etag = NULL,
- items = NULL,
- next_link = NULL,
- next_page_token = NULL,
- selfLink = NULL,
-
- initialize = function(kind = NULL, etag = NULL,
- items = NULL, next_link = NULL, next_page_token = NULL,
- selfLink = NULL)
- {
- self$kind <- kind
- self$etag <- etag
- self$items <- items
- self$next_link <- next_link
- self$next_page_token <- next_page_token
- self$selfLink <- selfLink
-
- private$classFields <- c("kind", "etag",
- "items", "next_link", "next_page_token",
- "selfLink")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("useragreementlist" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-
-#' UserAgreement
-#'
-#' UserAgreement
-#'
-#' @section Usage:
-#' \preformatted{userAgreement -> UserAgreement$new(uuid = NULL,
-#' etag = NULL, owner_uuid = NULL, created_at = NULL,
-#' modified_by_client_uuid = NULL, modified_by_user_uuid = NULL,
-#' modified_at = NULL, portable_data_hash = NULL, replication_desired = NULL,
-#' replication_confirmed_at = NULL, replication_confirmed = NULL,
-#' updated_at = NULL, manifest_text = NULL, name = NULL,
-#' description = NULL, properties = NULL, delete_at = NULL,
-#' file_names = NULL, trash_at = NULL, is_trashed = NULL,
-#' storage_classes_desired = NULL, storage_classes_confirmed = NULL,
-#' storage_classes_confirmed_at = NULL)
-#' }
-#'
-#' @section Arguments:
-#' \describe{
-#' \item{uuid}{Object ID.}
-#' \item{etag}{Object version.}
-#' \item{owner_uuid}{}
-#' \item{created_at}{}
-#' \item{modified_by_client_uuid}{}
-#' \item{modified_by_user_uuid}{}
-#' \item{modified_at}{}
-#' \item{portable_data_hash}{}
-#' \item{replication_desired}{}
-#' \item{replication_confirmed_at}{}
-#' \item{replication_confirmed}{}
-#' \item{updated_at}{}
-#' \item{uuid}{}
-#' \item{manifest_text}{}
-#' \item{name}{}
-#' \item{description}{}
-#' \item{properties}{}
-#' \item{delete_at}{}
-#' \item{file_names}{}
-#' \item{trash_at}{}
-#' \item{is_trashed}{}
-#' \item{storage_classes_desired}{}
-#' \item{storage_classes_confirmed}{}
-#' \item{storage_classes_confirmed_at}{}
-#' }
-#'
-#' @name UserAgreement
-NULL
-
-#' @export
-UserAgreement <- R6::R6Class(
-
- "UserAgreement",
-
- public = list(
- uuid = NULL,
- etag = NULL,
- owner_uuid = NULL,
- created_at = NULL,
- modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL,
- modified_at = NULL,
- portable_data_hash = NULL,
- replication_desired = NULL,
- replication_confirmed_at = NULL,
- replication_confirmed = NULL,
- updated_at = NULL,
- manifest_text = NULL,
- name = NULL,
- description = NULL,
- properties = NULL,
- delete_at = NULL,
- file_names = NULL,
- trash_at = NULL,
- is_trashed = NULL,
- storage_classes_desired = NULL,
- storage_classes_confirmed = NULL,
- storage_classes_confirmed_at = NULL,
-
- initialize = function(uuid = NULL, etag = NULL,
- owner_uuid = NULL, created_at = NULL, modified_by_client_uuid = NULL,
- modified_by_user_uuid = NULL, modified_at = NULL,
- portable_data_hash = NULL, replication_desired = NULL,
- replication_confirmed_at = NULL, replication_confirmed = NULL,
- updated_at = NULL, manifest_text = NULL,
- name = NULL, description = NULL, properties = NULL,
- delete_at = NULL, file_names = NULL, trash_at = NULL,
- is_trashed = NULL, storage_classes_desired = NULL,
- storage_classes_confirmed = NULL, storage_classes_confirmed_at = NULL)
- {
- self$uuid <- uuid
- self$etag <- etag
- self$owner_uuid <- owner_uuid
- self$created_at <- created_at
- self$modified_by_client_uuid <- modified_by_client_uuid
- self$modified_by_user_uuid <- modified_by_user_uuid
- self$modified_at <- modified_at
- self$portable_data_hash <- portable_data_hash
- self$replication_desired <- replication_desired
- self$replication_confirmed_at <- replication_confirmed_at
- self$replication_confirmed <- replication_confirmed
- self$updated_at <- updated_at
- self$manifest_text <- manifest_text
- self$name <- name
- self$description <- description
- self$properties <- properties
- self$delete_at <- delete_at
- self$file_names <- file_names
- self$trash_at <- trash_at
- self$is_trashed <- is_trashed
- self$storage_classes_desired <- storage_classes_desired
- self$storage_classes_confirmed <- storage_classes_confirmed
- self$storage_classes_confirmed_at <- storage_classes_confirmed_at
-
- private$classFields <- c("uuid", "etag",
- "owner_uuid", "created_at", "modified_by_client_uuid",
- "modified_by_user_uuid", "modified_at", "portable_data_hash",
- "replication_desired", "replication_confirmed_at",
- "replication_confirmed", "updated_at", "manifest_text",
- "name", "description", "properties", "delete_at",
- "file_names", "trash_at", "is_trashed", "storage_classes_desired",
- "storage_classes_confirmed", "storage_classes_confirmed_at")
- },
-
- toJSON = function() {
- fields <- sapply(private$classFields, function(field)
- {
- self[[field]]
- }, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("useragreement" =
- Filter(Negate(is.null), fields)), auto_unbox = TRUE)
- },
-
- isEmpty = function() {
- fields <- sapply(private$classFields,
- function(field) self[[field]])
-
- if(any(sapply(fields, function(field) !is.null(field) && field != "")))
- FALSE
- else
- TRUE
- }
- ),
-
- private = list(
- classFields = NULL
- ),
-
- cloneable = FALSE
-)
-