if(!is.null(resource$errors))
stop(resource$errors)
- User$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
is_active = resource$is_active, username = resource$username)
},
- users.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ users.index = function(filters = NULL, where = NULL,
+ order = NULL, select = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact")
{
endPoint <- stringr::str_interp("users")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- UserList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- User$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- User$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- User$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- User$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- User$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- User$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
is_active = resource$is_active, username = resource$username)
},
- users.setup = function(
- user = NULL, openid_prefix = NULL, repo_name = NULL,
- vm_uuid = NULL, send_notification_email = "false")
+ users.setup = function(user = NULL, openid_prefix = NULL,
+ repo_name = NULL, vm_uuid = NULL, send_notification_email = "false")
{
endPoint <- stringr::str_interp("users/setup")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- user = user, openid_prefix = openid_prefix,
- repo_name = repo_name, vm_uuid = vm_uuid,
- send_notification_email = send_notification_email)
+ 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)
- User$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- User$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- User$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
is_active = resource$is_active, username = resource$username)
},
- users.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ users.list = function(filters = NULL, where = NULL,
+ order = NULL, select = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact")
{
endPoint <- stringr::str_interp("users")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- UserList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- User$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- User$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
scopes = resource$scopes)
},
- api_client_authorizations.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ api_client_authorizations.index = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("api_client_authorizations")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- ApiClientAuthorizationList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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)
},
- api_client_authorizations.create = function(
- api_client_authorization, ensure_unique_name = "false")
+ api_client_authorizations.create = function(api_client_authorization,
+ ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("api_client_authorizations")
url <- paste0(private$host, endPoint)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- api_client_id = api_client_id, scopes = scopes)
+ 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)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
scopes = resource$scopes)
},
- api_client_authorizations.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ api_client_authorizations.list = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("api_client_authorizations")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- ApiClientAuthorizationList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClient$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
updated_at = resource$updated_at, is_trusted = resource$is_trusted)
},
- api_clients.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ api_clients.index = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("api_clients")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- ApiClientList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- ApiClient$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClient$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClient$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
updated_at = resource$updated_at, is_trusted = resource$is_trusted)
},
- api_clients.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ api_clients.list = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("api_clients")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- ApiClientList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- ApiClient$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClient$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
output_name = resource$output_name, output_ttl = resource$output_ttl)
},
- container_requests.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ container_requests.index = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("container_requests")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- ContainerRequestList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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)
},
- container_requests.create = function(
- container_request, ensure_unique_name = "false")
+ container_requests.create = function(container_request,
+ ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("container_requests")
url <- paste0(private$host, endPoint)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
output_name = resource$output_name, output_ttl = resource$output_ttl)
},
- container_requests.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ container_requests.list = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("container_requests")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- ContainerRequestList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- AuthorizedKey$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
created_at = resource$created_at, updated_at = resource$updated_at)
},
- authorized_keys.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ authorized_keys.index = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("authorized_keys")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- AuthorizedKeyList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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)
},
- authorized_keys.create = function(
- authorized_key, ensure_unique_name = "false")
+ authorized_keys.create = function(authorized_key,
+ ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("authorized_keys")
url <- paste0(private$host, endPoint)
if(!is.null(resource$errors))
stop(resource$errors)
- AuthorizedKey$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- AuthorizedKey$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- AuthorizedKey$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
created_at = resource$created_at, updated_at = resource$updated_at)
},
- authorized_keys.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ authorized_keys.list = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("authorized_keys")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- AuthorizedKeyList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- AuthorizedKey$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- AuthorizedKey$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- 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,
+ collection <- 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,
collection
},
- collections.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact", include_trash = NULL)
+ collections.index = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact", include_trash = NULL)
{
endPoint <- stringr::str_interp("collections")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count, include_trash = include_trash)
+ queryArgs <- list(filters = filters, where = where,
+ 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)
- CollectionList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- collection <- 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,
+ collection <- 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,
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- 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,
+ collection <- 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,
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- 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,
+ collection <- 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,
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- 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,
+ collection <- 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,
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- 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,
+ collection <- 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,
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- 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,
+ collection <- 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,
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- 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,
+ collection <- 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,
collection
},
- collections.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact", include_trash = NULL)
+ collections.list = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact", include_trash = NULL)
{
endPoint <- stringr::str_interp("collections")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count, include_trash = include_trash)
+ queryArgs <- list(filters = filters, where = where,
+ 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)
- CollectionList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- collection <- 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,
+ collection <- 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,
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- 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,
+ collection <- 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Container$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
scheduling_parameters = resource$scheduling_parameters)
},
- containers.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ containers.index = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("containers")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- ContainerList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Container$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Container$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Container$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Container$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Container$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Container$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Container$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
scheduling_parameters = resource$scheduling_parameters)
},
- containers.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ containers.list = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("containers")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- ContainerList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Container$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Container$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Human$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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)
},
- humans.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ humans.index = function(filters = NULL, where = NULL,
+ order = NULL, select = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact")
{
endPoint <- stringr::str_interp("humans")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- HumanList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Human$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Human$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Human$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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)
},
- humans.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ humans.list = function(filters = NULL, where = NULL,
+ order = NULL, select = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact")
{
endPoint <- stringr::str_interp("humans")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- HumanList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Human$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Human$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- JobTask$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
finished_at = resource$finished_at)
},
- job_tasks.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ job_tasks.index = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("job_tasks")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- JobTaskList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- JobTask$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- JobTask$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- JobTask$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
finished_at = resource$finished_at)
},
- job_tasks.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ job_tasks.list = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("job_tasks")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- JobTaskList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- JobTask$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- JobTask$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Link$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
updated_at = resource$updated_at)
},
- links.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ links.index = function(filters = NULL, where = NULL,
+ order = NULL, select = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact")
{
endPoint <- stringr::str_interp("links")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- LinkList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Link$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Link$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Link$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
updated_at = resource$updated_at)
},
- links.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ links.list = function(filters = NULL, where = NULL,
+ order = NULL, select = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact")
{
endPoint <- stringr::str_interp("links")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- LinkList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Link$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Link$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Link$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
components = resource$components, script_parameters_digest = resource$script_parameters_digest)
},
- jobs.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ jobs.index = function(filters = NULL, where = NULL,
+ order = NULL, select = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact")
{
endPoint <- stringr::str_interp("jobs")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- JobList$new(
- kind = resource$kind, etag = resource$etag,
+ 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)
},
- jobs.create = function(
- job, ensure_unique_name = "false", find_or_create = "false",
- filters = NULL, minimum_script_version = NULL,
- exclude_script_versions = NULL)
+ jobs.create = function(job, ensure_unique_name = "false",
+ find_or_create = "false", filters = NULL,
+ minimum_script_version = NULL, exclude_script_versions = NULL)
{
endPoint <- stringr::str_interp("jobs")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- ensure_unique_name = ensure_unique_name,
- find_or_create = find_or_create, filters = filters,
- minimum_script_version = minimum_script_version,
- exclude_script_versions = exclude_script_versions)
+ queryArgs <- list(ensure_unique_name = ensure_unique_name,
+ find_or_create = find_or_create, filters = filters,
+ minimum_script_version = minimum_script_version,
+ exclude_script_versions = exclude_script_versions)
body <- job$toJSON()
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
components = resource$components, script_parameters_digest = resource$script_parameters_digest)
},
- jobs.queue = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ jobs.queue = function(filters = NULL, where = NULL,
+ order = NULL, select = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact")
{
endPoint <- stringr::str_interp("jobs/queue")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- Job$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
components = resource$components, script_parameters_digest = resource$script_parameters_digest)
},
- jobs.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ jobs.list = function(filters = NULL, where = NULL,
+ order = NULL, select = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact")
{
endPoint <- stringr::str_interp("jobs")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- JobList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Job$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- KeepDisk$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
},
- keep_disks.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ keep_disks.index = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("keep_disks")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- KeepDiskList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- KeepDisk$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- KeepDisk$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- KeepDisk$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
},
- keep_disks.ping = function(
- uuid = NULL, ping_secret, node_uuid = NULL,
- filesystem_uuid = NULL, service_host = NULL,
- service_port, service_ssl_flag)
+ keep_disks.ping = function(uuid = NULL, ping_secret,
+ node_uuid = NULL, filesystem_uuid = NULL,
+ service_host = NULL, service_port, service_ssl_flag)
{
endPoint <- stringr::str_interp("keep_disks/ping")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- uuid = uuid, ping_secret = ping_secret, node_uuid = node_uuid,
- filesystem_uuid = filesystem_uuid, service_host = service_host,
- service_port = service_port, service_ssl_flag = service_ssl_flag)
+ queryArgs <- list(uuid = uuid, ping_secret = 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)
- KeepDisk$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
},
- keep_disks.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ keep_disks.list = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("keep_disks")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- KeepDiskList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- KeepDisk$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- KeepDisk$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- KeepService$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
updated_at = resource$updated_at, read_only = resource$read_only)
},
- keep_services.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ keep_services.index = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("keep_services")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- KeepServiceList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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)
},
- keep_services.create = function(
- keep_service, ensure_unique_name = "false")
+ keep_services.create = function(keep_service,
+ ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("keep_services")
url <- paste0(private$host, endPoint)
if(!is.null(resource$errors))
stop(resource$errors)
- KeepService$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- KeepService$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- KeepService$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- KeepService$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
updated_at = resource$updated_at, read_only = resource$read_only)
},
- keep_services.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ keep_services.list = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("keep_services")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- KeepServiceList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- KeepService$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- KeepService$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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)
},
- pipeline_templates.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ pipeline_templates.index = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("pipeline_templates")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- PipelineTemplateList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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)
},
- pipeline_templates.create = function(
- pipeline_template, ensure_unique_name = "false")
+ pipeline_templates.create = function(pipeline_template,
+ ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("pipeline_templates")
url <- paste0(private$host, endPoint)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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)
},
- pipeline_templates.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ pipeline_templates.list = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("pipeline_templates")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- PipelineTemplateList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
description = resource$description)
},
- pipeline_instances.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ pipeline_instances.index = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("pipeline_instances")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- PipelineInstanceList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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)
},
- pipeline_instances.create = function(
- pipeline_instance, ensure_unique_name = "false")
+ pipeline_instances.create = function(pipeline_instance,
+ ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("pipeline_instances")
url <- paste0(private$host, endPoint)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
description = resource$description)
},
- pipeline_instances.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ pipeline_instances.list = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("pipeline_instances")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- PipelineInstanceList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Node$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
job_uuid = resource$job_uuid)
},
- nodes.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ nodes.index = function(filters = NULL, where = NULL,
+ order = NULL, select = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact")
{
endPoint <- stringr::str_interp("nodes")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- NodeList$new(
- kind = resource$kind, etag = resource$etag,
+ 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)
},
- nodes.create = function(
- node, ensure_unique_name = "false", assign_slot = NULL)
+ nodes.create = function(node, ensure_unique_name = "false",
+ assign_slot = NULL)
{
endPoint <- stringr::str_interp("nodes")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- ensure_unique_name = ensure_unique_name,
- assign_slot = assign_slot)
+ queryArgs <- list(ensure_unique_name = ensure_unique_name,
+ assign_slot = assign_slot)
body <- node$toJSON()
response <- private$REST$http$exec("POST", url, headers, body,
if(!is.null(resource$errors))
stop(resource$errors)
- Node$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Node$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Node$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Node$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
job_uuid = resource$job_uuid)
},
- nodes.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ nodes.list = function(filters = NULL, where = NULL,
+ order = NULL, select = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact")
{
endPoint <- stringr::str_interp("nodes")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- NodeList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Node$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Node$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Repository$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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)
},
- repositories.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ repositories.index = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("repositories")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- RepositoryList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Repository$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Repository$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Repository$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Repository$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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)
},
- repositories.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ repositories.list = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("repositories")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- RepositoryList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Repository$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Repository$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Specimen$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
updated_at = resource$updated_at, properties = resource$properties)
},
- specimens.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ specimens.index = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("specimens")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- SpecimenList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Specimen$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Specimen$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Specimen$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
updated_at = resource$updated_at, properties = resource$properties)
},
- specimens.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ specimens.list = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("specimens")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- SpecimenList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Specimen$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Specimen$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Log$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
object_owner_uuid = resource$object_owner_uuid)
},
- logs.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ logs.index = function(filters = NULL, where = NULL,
+ order = NULL, select = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact")
{
endPoint <- stringr::str_interp("logs")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- LogList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Log$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Log$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Log$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
object_owner_uuid = resource$object_owner_uuid)
},
- logs.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ logs.list = function(filters = NULL, where = NULL,
+ order = NULL, select = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact")
{
endPoint <- stringr::str_interp("logs")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- LogList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Log$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Log$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Trait$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
updated_at = resource$updated_at)
},
- traits.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ traits.index = function(filters = NULL, where = NULL,
+ order = NULL, select = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact")
{
endPoint <- stringr::str_interp("traits")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- TraitList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Trait$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Trait$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Trait$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
updated_at = resource$updated_at)
},
- traits.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ traits.list = function(filters = NULL, where = NULL,
+ order = NULL, select = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact")
{
endPoint <- stringr::str_interp("traits")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- TraitList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Trait$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Trait$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachine$new(
- uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ 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)
},
- virtual_machines.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ virtual_machines.index = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("virtual_machines")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- VirtualMachineList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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)
},
- virtual_machines.create = function(
- virtual_machine, ensure_unique_name = "false")
+ virtual_machines.create = function(virtual_machine,
+ ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("virtual_machines")
url <- paste0(private$host, endPoint)
if(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachine$new(
- uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachine$new(
- uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachine$new(
- uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachine$new(
- uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachine$new(
- uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ 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)
},
- virtual_machines.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ virtual_machines.list = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("virtual_machines")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- VirtualMachineList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachine$new(
- uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachine$new(
- uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Workflow$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
definition = resource$definition, updated_at = resource$updated_at)
},
- workflows.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ workflows.index = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("workflows")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- WorkflowList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Workflow$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Workflow$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Workflow$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
definition = resource$definition, updated_at = resource$updated_at)
},
- workflows.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ workflows.list = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("workflows")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- WorkflowList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Workflow$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Workflow$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Group$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
is_trashed = resource$is_trashed, delete_at = resource$delete_at)
},
- groups.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact", include_trash = NULL)
+ groups.index = function(filters = NULL, where = NULL,
+ order = NULL, select = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact",
+ include_trash = NULL)
{
endPoint <- stringr::str_interp("groups")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count, include_trash = include_trash)
+ queryArgs <- list(filters = filters, where = where,
+ 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)
- GroupList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Group$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Group$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Group$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
is_trashed = resource$is_trashed, delete_at = resource$delete_at)
},
- groups.contents = function(
- filters = NULL, where = NULL, order = NULL,
- distinct = NULL, limit = "100", offset = "0",
- count = "exact", include_trash = NULL, uuid = NULL,
- recursive = NULL)
+ groups.contents = function(filters = NULL,
+ where = NULL, order = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact",
+ include_trash = NULL, uuid = NULL, recursive = NULL)
{
endPoint <- stringr::str_interp("groups/contents")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- distinct = distinct, limit = limit, offset = offset,
- count = count, include_trash = include_trash,
- uuid = uuid, recursive = recursive)
+ queryArgs <- list(filters = filters, where = where,
+ 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)
- Group$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Group$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Group$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
is_trashed = resource$is_trashed, delete_at = resource$delete_at)
},
- groups.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact", include_trash = NULL)
+ groups.list = function(filters = NULL, where = NULL,
+ order = NULL, select = NULL, distinct = NULL,
+ limit = "100", offset = "0", count = "exact",
+ include_trash = NULL)
{
endPoint <- stringr::str_interp("groups")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count, include_trash = include_trash)
+ queryArgs <- list(filters = filters, where = where,
+ 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)
- GroupList$new(
- kind = resource$kind, etag = resource$etag,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- Group$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- Group$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- UserAgreement$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
is_trashed = resource$is_trashed)
},
- user_agreements.index = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ user_agreements.index = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("user_agreements")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- UserAgreementList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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)
},
- user_agreements.create = function(
- user_agreement, ensure_unique_name = "false")
+ user_agreements.create = function(user_agreement,
+ ensure_unique_name = "false")
{
endPoint <- stringr::str_interp("user_agreements")
url <- paste0(private$host, endPoint)
if(!is.null(resource$errors))
stop(resource$errors)
- UserAgreement$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- UserAgreement$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- UserAgreement$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- UserAgreement$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- UserAgreement$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
is_trashed = resource$is_trashed)
},
- user_agreements.list = function(
- filters = NULL, where = NULL, order = NULL,
- select = NULL, distinct = NULL, limit = "100",
- offset = "0", count = "exact")
+ user_agreements.list = function(filters = NULL,
+ where = NULL, order = NULL, select = NULL,
+ distinct = NULL, limit = "100", offset = "0",
+ count = "exact")
{
endPoint <- stringr::str_interp("user_agreements")
url <- paste0(private$host, endPoint)
headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
- queryArgs <- list(
- filters = filters, where = where, order = order,
- select = select, distinct = distinct, limit = limit,
- offset = offset, count = count)
+ 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)
- UserAgreementList$new(
- kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ 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(!is.null(resource$errors))
stop(resource$errors)
- UserAgreement$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- UserAgreement$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
if(!is.null(resource$errors))
stop(resource$errors)
- UserAgreement$new(
- uuid = resource$uuid, etag = resource$etag,
+ 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,
+#' 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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
is_active = NULL,
username = NULL,
- initialize = function(
- uuid = NULL, etag = NULL, owner_uuid = NULL,
- created_at = NULL, modified_by_client_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,
email = NULL, first_name = NULL, last_name = NULL,
identity_url = NULL, is_admin = NULL, prefs = NULL,
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
- )
+ 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() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
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)
+ 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$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
- )
+ 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() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
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)
+ 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$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
- )
+ 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() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
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,
+ 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$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,
+ 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
- )
+ output_name, output_ttl)
},
toJSON = function() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
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)
+ 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$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
- )
+ 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() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
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,
+ 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$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,
+ 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
- )
+ scheduling_parameters)
},
toJSON = function() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
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)
+ 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$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
- )
+ private$classFields <- c(uuid, etag, owner_uuid,
+ modified_by_client_uuid, modified_by_user_uuid,
+ modified_at, properties, created_at, updated_at)
},
toJSON = function() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
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)
+ 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$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
- )
+ 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() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
properties = NULL,
updated_at = NULL,
- initialize = function(
- uuid = NULL, etag = NULL, owner_uuid = NULL,
- created_at = NULL, modified_by_client_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,
tail_uuid = NULL, link_class = NULL, name = NULL,
head_uuid = NULL, properties = NULL, updated_at = NULL)
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
- )
+ 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() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
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,
+ 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,
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
- )
+ 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() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
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)
+ 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$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
- )
+ 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() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
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)
+ 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$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
- )
+ 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() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
updated_at = NULL,
description = NULL,
- initialize = function(
- uuid = NULL, etag = NULL, owner_uuid = NULL,
- created_at = NULL, modified_by_client_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,
name = NULL, components = NULL, updated_at = NULL,
description = NULL)
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
- )
+ 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() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
finished_at = NULL,
description = NULL,
- initialize = function(
- uuid = NULL, etag = NULL, owner_uuid = NULL,
- created_at = NULL, modified_by_client_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,
pipeline_template_uuid = NULL, name = NULL,
components = NULL, updated_at = NULL, properties = NULL,
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
- )
+ 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() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
properties = NULL,
job_uuid = NULL,
- initialize = function(
- uuid = NULL, etag = NULL, owner_uuid = NULL,
- created_at = NULL, modified_by_client_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,
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
- )
+ 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() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
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)
+ 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$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
- )
+ private$classFields <- c(uuid, etag, owner_uuid,
+ modified_by_client_uuid, modified_by_user_uuid,
+ modified_at, name, created_at, updated_at)
},
toJSON = function() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
updated_at = NULL,
properties = NULL,
- initialize = function(
- uuid = NULL, etag = NULL, owner_uuid = NULL,
- created_at = NULL, modified_by_client_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,
material = NULL, updated_at = NULL, properties = NULL)
{
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
- )
+ 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() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
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)
+ 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$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
- )
+ 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() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
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)
+ 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$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
- )
+ 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() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
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)
+ 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$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
- )
+ private$classFields <- c(uuid, etag, owner_uuid,
+ modified_by_client_uuid, modified_by_user_uuid,
+ modified_at, hostname, created_at, updated_at)
},
toJSON = function() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
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)
+ 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$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
- )
+ 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() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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(
is_trashed = NULL,
delete_at = NULL,
- initialize = function(
- uuid = NULL, etag = NULL, owner_uuid = NULL,
- created_at = NULL, modified_by_client_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,
name = NULL, description = NULL, updated_at = NULL,
group_class = NULL, trash_at = NULL, is_trashed = NULL,
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
- )
+ 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() {
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(
next_page_token = NULL,
selfLink = NULL,
- initialize = function(
- 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$next_page_token <- next_page_token
self$selfLink <- selfLink
- private$classFields <- c(
- kind, etag, items, next_link, next_page_token,
- selfLink
- )
+ private$classFields <- c(kind, etag, items,
+ next_link, next_page_token, selfLink)
},
toJSON = function() {
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)
+#' }
+#'
+#' @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}{}
+#' }
+#'
+#' @name UserAgreement
+NULL
+
#' @export
UserAgreement <- R6::R6Class(
trash_at = NULL,
is_trashed = NULL,
- initialize = function(
- uuid = NULL, etag = NULL, owner_uuid = NULL,
- created_at = NULL, modified_by_client_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,
portable_data_hash = NULL, replication_desired = NULL,
replication_confirmed_at = NULL, replication_confirmed = NULL,
self$trash_at <- trash_at
self$is_trashed <- is_trashed
- 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
- )
+ 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)
},
toJSON = function() {
projects / arvados.git / commitdiff