if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- User$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, email = resource$email,
first_name = resource$first_name, last_name = resource$last_name,
prefs = resource$prefs, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
is_active = resource$is_active, username = resource$username)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
users.index = function(filters = NULL, where = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- UserList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- UserList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
users.create = function(user, ensure_unique_name = "false")
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- User$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, email = resource$email,
first_name = resource$first_name, last_name = resource$last_name,
prefs = resource$prefs, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
is_active = resource$is_active, username = resource$username)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
users.update = function(user, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- User$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, email = resource$email,
first_name = resource$first_name, last_name = resource$last_name,
prefs = resource$prefs, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
is_active = resource$is_active, username = resource$username)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
users.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- User$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, email = resource$email,
first_name = resource$first_name, last_name = resource$last_name,
prefs = resource$prefs, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
is_active = resource$is_active, username = resource$username)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
users.current = function()
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- User$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, email = resource$email,
first_name = resource$first_name, last_name = resource$last_name,
prefs = resource$prefs, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
is_active = resource$is_active, username = resource$username)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
users.system = function()
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- User$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, email = resource$email,
first_name = resource$first_name, last_name = resource$last_name,
prefs = resource$prefs, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
is_active = resource$is_active, username = resource$username)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
users.activate = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- User$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, email = resource$email,
first_name = resource$first_name, last_name = resource$last_name,
prefs = resource$prefs, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
is_active = resource$is_active, username = resource$username)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
users.setup = function(user = NULL, openid_prefix = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- User$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, email = resource$email,
first_name = resource$first_name, last_name = resource$last_name,
prefs = resource$prefs, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
is_active = resource$is_active, username = resource$username)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
users.unsetup = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- User$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, email = resource$email,
first_name = resource$first_name, last_name = resource$last_name,
prefs = resource$prefs, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
is_active = resource$is_active, username = resource$username)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
users.update_uuid = function(uuid, new_uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- User$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, email = resource$email,
first_name = resource$first_name, last_name = resource$last_name,
prefs = resource$prefs, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
is_active = resource$is_active, username = resource$username)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
users.list = function(filters = NULL, where = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- UserList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- UserList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
users.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- User$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, email = resource$email,
first_name = resource$first_name, last_name = resource$last_name,
prefs = resource$prefs, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
is_active = resource$is_active, username = resource$username)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
users.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- User$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, email = resource$email,
first_name = resource$first_name, last_name = resource$last_name,
prefs = resource$prefs, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
is_active = resource$is_active, username = resource$username)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_client_authorizations.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClientAuthorization$new(uuid = resource$uuid,
+ result <- ApiClientAuthorization$new(uuid = resource$uuid,
etag = resource$etag, api_token = resource$api_token,
api_client_id = resource$api_client_id, user_id = resource$user_id,
created_by_ip_address = resource$created_by_ip_address,
created_at = resource$created_at, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
scopes = resource$scopes)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_client_authorizations.index = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClientAuthorizationList$new(kind = resource$kind,
+ result <- ApiClientAuthorizationList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_client_authorizations.create = function(api_client_authorization,
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClientAuthorization$new(uuid = resource$uuid,
+ result <- ApiClientAuthorization$new(uuid = resource$uuid,
etag = resource$etag, api_token = resource$api_token,
api_client_id = resource$api_client_id, user_id = resource$user_id,
created_by_ip_address = resource$created_by_ip_address,
created_at = resource$created_at, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
scopes = resource$scopes)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_client_authorizations.update = function(api_client_authorization, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClientAuthorization$new(uuid = resource$uuid,
+ result <- ApiClientAuthorization$new(uuid = resource$uuid,
etag = resource$etag, api_token = resource$api_token,
api_client_id = resource$api_client_id, user_id = resource$user_id,
created_by_ip_address = resource$created_by_ip_address,
created_at = resource$created_at, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
scopes = resource$scopes)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_client_authorizations.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClientAuthorization$new(uuid = resource$uuid,
+ result <- ApiClientAuthorization$new(uuid = resource$uuid,
etag = resource$etag, api_token = resource$api_token,
api_client_id = resource$api_client_id, user_id = resource$user_id,
created_by_ip_address = resource$created_by_ip_address,
created_at = resource$created_at, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
scopes = resource$scopes)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_client_authorizations.create_system_auth = function(api_client_id = NULL, scopes = NULL)
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClientAuthorization$new(uuid = resource$uuid,
+ result <- ApiClientAuthorization$new(uuid = resource$uuid,
etag = resource$etag, api_token = resource$api_token,
api_client_id = resource$api_client_id, user_id = resource$user_id,
created_by_ip_address = resource$created_by_ip_address,
created_at = resource$created_at, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
scopes = resource$scopes)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_client_authorizations.current = function()
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClientAuthorization$new(uuid = resource$uuid,
+ result <- ApiClientAuthorization$new(uuid = resource$uuid,
etag = resource$etag, api_token = resource$api_token,
api_client_id = resource$api_client_id, user_id = resource$user_id,
created_by_ip_address = resource$created_by_ip_address,
created_at = resource$created_at, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
scopes = resource$scopes)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_client_authorizations.list = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClientAuthorizationList$new(kind = resource$kind,
+ result <- ApiClientAuthorizationList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_client_authorizations.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClientAuthorization$new(uuid = resource$uuid,
+ result <- ApiClientAuthorization$new(uuid = resource$uuid,
etag = resource$etag, api_token = resource$api_token,
api_client_id = resource$api_client_id, user_id = resource$user_id,
created_by_ip_address = resource$created_by_ip_address,
created_at = resource$created_at, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
scopes = resource$scopes)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_client_authorizations.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClientAuthorization$new(uuid = resource$uuid,
+ result <- ApiClientAuthorization$new(uuid = resource$uuid,
etag = resource$etag, api_token = resource$api_token,
api_client_id = resource$api_client_id, user_id = resource$user_id,
created_by_ip_address = resource$created_by_ip_address,
created_at = resource$created_at, updated_at = resource$updated_at,
default_owner_uuid = resource$default_owner_uuid,
scopes = resource$scopes)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_clients.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClient$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- ApiClient$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
url_prefix = resource$url_prefix, created_at = resource$created_at,
updated_at = resource$updated_at, is_trusted = resource$is_trusted)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_clients.index = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClientList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- ApiClientList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_clients.create = function(api_client, ensure_unique_name = "false")
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClient$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- ApiClient$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
url_prefix = resource$url_prefix, created_at = resource$created_at,
updated_at = resource$updated_at, is_trusted = resource$is_trusted)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_clients.update = function(api_client, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClient$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- ApiClient$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
url_prefix = resource$url_prefix, created_at = resource$created_at,
updated_at = resource$updated_at, is_trusted = resource$is_trusted)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_clients.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClient$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- ApiClient$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
url_prefix = resource$url_prefix, created_at = resource$created_at,
updated_at = resource$updated_at, is_trusted = resource$is_trusted)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_clients.list = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClientList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- ApiClientList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_clients.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClient$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- ApiClient$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
url_prefix = resource$url_prefix, created_at = resource$created_at,
updated_at = resource$updated_at, is_trusted = resource$is_trusted)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
api_clients.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- ApiClient$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- ApiClient$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
url_prefix = resource$url_prefix, created_at = resource$created_at,
updated_at = resource$updated_at, is_trusted = resource$is_trusted)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
container_requests.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- ContainerRequest$new(uuid = resource$uuid,
+ result <- ContainerRequest$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_at = resource$modified_at,
modified_by_client_uuid = resource$modified_by_client_uuid,
use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
output_name = resource$output_name, output_ttl = resource$output_ttl)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
container_requests.index = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- ContainerRequestList$new(kind = resource$kind,
+ result <- ContainerRequestList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
container_requests.create = function(container_request,
if(!is.null(resource$errors))
stop(resource$errors)
- ContainerRequest$new(uuid = resource$uuid,
+ result <- ContainerRequest$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_at = resource$modified_at,
modified_by_client_uuid = resource$modified_by_client_uuid,
use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
output_name = resource$output_name, output_ttl = resource$output_ttl)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
container_requests.update = function(container_request, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- ContainerRequest$new(uuid = resource$uuid,
+ result <- ContainerRequest$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_at = resource$modified_at,
modified_by_client_uuid = resource$modified_by_client_uuid,
use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
output_name = resource$output_name, output_ttl = resource$output_ttl)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
container_requests.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- ContainerRequest$new(uuid = resource$uuid,
+ result <- ContainerRequest$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_at = resource$modified_at,
modified_by_client_uuid = resource$modified_by_client_uuid,
use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
output_name = resource$output_name, output_ttl = resource$output_ttl)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
container_requests.list = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- ContainerRequestList$new(kind = resource$kind,
+ result <- ContainerRequestList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
container_requests.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- ContainerRequest$new(uuid = resource$uuid,
+ result <- ContainerRequest$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_at = resource$modified_at,
modified_by_client_uuid = resource$modified_by_client_uuid,
use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
output_name = resource$output_name, output_ttl = resource$output_ttl)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
container_requests.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- ContainerRequest$new(uuid = resource$uuid,
+ result <- ContainerRequest$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_at = resource$modified_at,
modified_by_client_uuid = resource$modified_by_client_uuid,
use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
output_name = resource$output_name, output_ttl = resource$output_ttl)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
authorized_keys.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- AuthorizedKey$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- AuthorizedKey$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
public_key = resource$public_key, expires_at = resource$expires_at,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
authorized_keys.index = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- AuthorizedKeyList$new(kind = resource$kind,
+ result <- AuthorizedKeyList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
authorized_keys.create = function(authorized_key,
if(!is.null(resource$errors))
stop(resource$errors)
- AuthorizedKey$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- AuthorizedKey$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
public_key = resource$public_key, expires_at = resource$expires_at,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
authorized_keys.update = function(authorized_key, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- AuthorizedKey$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- AuthorizedKey$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
public_key = resource$public_key, expires_at = resource$expires_at,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
authorized_keys.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- AuthorizedKey$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- AuthorizedKey$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
public_key = resource$public_key, expires_at = resource$expires_at,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
authorized_keys.list = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- AuthorizedKeyList$new(kind = resource$kind,
+ result <- AuthorizedKeyList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
authorized_keys.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- AuthorizedKey$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- AuthorizedKey$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
public_key = resource$public_key, expires_at = resource$expires_at,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
authorized_keys.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- AuthorizedKey$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- AuthorizedKey$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
public_key = resource$public_key, expires_at = resource$expires_at,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
collections.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- Collection$new(uuid = resource$uuid,
+ result <- Collection$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
- collection$setRESTService(private$REST)
- collection
+ result$setRESTService(private$REST)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
collections.index = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- CollectionList$new(kind = resource$kind,
+ result <- CollectionList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
collections.create = function(collection, ensure_unique_name = "false")
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- Collection$new(uuid = resource$uuid,
+ result <- Collection$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
- collection$setRESTService(private$REST)
- collection
+ result$setRESTService(private$REST)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
collections.update = function(collection, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- Collection$new(uuid = resource$uuid,
+ result <- Collection$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
+
+ result$setRESTService(private$REST)
- collection$setRESTService(private$REST)
- collection
+ if(result$isEmpty())
+ resource
+ else
+ result
},
collections.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- Collection$new(uuid = resource$uuid,
+ result <- Collection$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
- collection$setRESTService(private$REST)
- collection
+ result$setRESTService(private$REST)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
collections.provenance = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- Collection$new(uuid = resource$uuid,
+ result <- Collection$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
+
+ result$setRESTService(private$REST)
- collection$setRESTService(private$REST)
- collection
+ if(result$isEmpty())
+ resource
+ else
+ result
},
collections.used_by = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- Collection$new(uuid = resource$uuid,
+ result <- Collection$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
- collection$setRESTService(private$REST)
- collection
+ result$setRESTService(private$REST)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
collections.trash = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- Collection$new(uuid = resource$uuid,
+ result <- Collection$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
+
+ result$setRESTService(private$REST)
- collection$setRESTService(private$REST)
- collection
+ if(result$isEmpty())
+ resource
+ else
+ result
},
collections.untrash = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- Collection$new(uuid = resource$uuid,
+ result <- Collection$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
- collection$setRESTService(private$REST)
- collection
+ result$setRESTService(private$REST)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
collections.list = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- CollectionList$new(kind = resource$kind,
+ result <- CollectionList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
collections.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- Collection$new(uuid = resource$uuid,
+ result <- Collection$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
- collection$setRESTService(private$REST)
- collection
+ result$setRESTService(private$REST)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
collections.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- collection <- Collection$new(uuid = resource$uuid,
+ result <- Collection$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
+
+ result$setRESTService(private$REST)
- collection$setRESTService(private$REST)
- collection
+ if(result$isEmpty())
+ resource
+ else
+ result
},
containers.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Container$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_at = resource$modified_at,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
state = resource$state, started_at = resource$started_at,
finished_at = resource$finished_at, log = resource$log,
updated_at = resource$updated_at, exit_code = resource$exit_code,
auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
scheduling_parameters = resource$scheduling_parameters)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
containers.index = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- ContainerList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- ContainerList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
containers.create = function(container, ensure_unique_name = "false")
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Container$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_at = resource$modified_at,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
state = resource$state, started_at = resource$started_at,
finished_at = resource$finished_at, log = resource$log,
updated_at = resource$updated_at, exit_code = resource$exit_code,
auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
scheduling_parameters = resource$scheduling_parameters)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
containers.update = function(container, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Container$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_at = resource$modified_at,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
state = resource$state, started_at = resource$started_at,
finished_at = resource$finished_at, log = resource$log,
updated_at = resource$updated_at, exit_code = resource$exit_code,
auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
scheduling_parameters = resource$scheduling_parameters)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
containers.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Container$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_at = resource$modified_at,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
state = resource$state, started_at = resource$started_at,
finished_at = resource$finished_at, log = resource$log,
updated_at = resource$updated_at, exit_code = resource$exit_code,
auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
scheduling_parameters = resource$scheduling_parameters)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
containers.auth = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Container$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_at = resource$modified_at,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
state = resource$state, started_at = resource$started_at,
finished_at = resource$finished_at, log = resource$log,
updated_at = resource$updated_at, exit_code = resource$exit_code,
auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
scheduling_parameters = resource$scheduling_parameters)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
containers.lock = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Container$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_at = resource$modified_at,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
state = resource$state, started_at = resource$started_at,
finished_at = resource$finished_at, log = resource$log,
updated_at = resource$updated_at, exit_code = resource$exit_code,
auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
scheduling_parameters = resource$scheduling_parameters)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
containers.unlock = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Container$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_at = resource$modified_at,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
state = resource$state, started_at = resource$started_at,
finished_at = resource$finished_at, log = resource$log,
updated_at = resource$updated_at, exit_code = resource$exit_code,
auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
scheduling_parameters = resource$scheduling_parameters)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
containers.current = function()
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Container$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_at = resource$modified_at,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
state = resource$state, started_at = resource$started_at,
finished_at = resource$finished_at, log = resource$log,
updated_at = resource$updated_at, exit_code = resource$exit_code,
auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
scheduling_parameters = resource$scheduling_parameters)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
containers.list = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- ContainerList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- ContainerList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
containers.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Container$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_at = resource$modified_at,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
state = resource$state, started_at = resource$started_at,
finished_at = resource$finished_at, log = resource$log,
updated_at = resource$updated_at, exit_code = resource$exit_code,
auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
scheduling_parameters = resource$scheduling_parameters)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
containers.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Container$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_at = resource$modified_at,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
state = resource$state, started_at = resource$started_at,
finished_at = resource$finished_at, log = resource$log,
updated_at = resource$updated_at, exit_code = resource$exit_code,
auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
scheduling_parameters = resource$scheduling_parameters)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
humans.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Human$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Human$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, properties = resource$properties,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
humans.index = function(filters = NULL, where = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- HumanList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- HumanList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
humans.create = function(human, ensure_unique_name = "false")
if(!is.null(resource$errors))
stop(resource$errors)
- Human$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Human$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, properties = resource$properties,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
humans.update = function(human, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Human$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Human$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, properties = resource$properties,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
humans.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Human$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Human$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, properties = resource$properties,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
humans.list = function(filters = NULL, where = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- HumanList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- HumanList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
humans.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Human$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Human$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, properties = resource$properties,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
humans.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Human$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Human$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, properties = resource$properties,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
job_tasks.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- JobTask$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- JobTask$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, job_uuid = resource$job_uuid,
sequence = resource$sequence, parameters = resource$parameters,
updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
qsequence = resource$qsequence, started_at = resource$started_at,
finished_at = resource$finished_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
job_tasks.index = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- JobTaskList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- JobTaskList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
job_tasks.create = function(job_task, ensure_unique_name = "false")
if(!is.null(resource$errors))
stop(resource$errors)
- JobTask$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- JobTask$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, job_uuid = resource$job_uuid,
sequence = resource$sequence, parameters = resource$parameters,
updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
qsequence = resource$qsequence, started_at = resource$started_at,
finished_at = resource$finished_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
job_tasks.update = function(job_task, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- JobTask$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- JobTask$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, job_uuid = resource$job_uuid,
sequence = resource$sequence, parameters = resource$parameters,
updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
qsequence = resource$qsequence, started_at = resource$started_at,
finished_at = resource$finished_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
job_tasks.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- JobTask$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- JobTask$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, job_uuid = resource$job_uuid,
sequence = resource$sequence, parameters = resource$parameters,
updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
qsequence = resource$qsequence, started_at = resource$started_at,
finished_at = resource$finished_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
job_tasks.list = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- JobTaskList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- JobTaskList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
job_tasks.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- JobTask$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- JobTask$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, job_uuid = resource$job_uuid,
sequence = resource$sequence, parameters = resource$parameters,
updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
qsequence = resource$qsequence, started_at = resource$started_at,
finished_at = resource$finished_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
job_tasks.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- JobTask$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- JobTask$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, job_uuid = resource$job_uuid,
sequence = resource$sequence, parameters = resource$parameters,
updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
qsequence = resource$qsequence, started_at = resource$started_at,
finished_at = resource$finished_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
links.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Link$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
link_class = resource$link_class, name = resource$name,
head_uuid = resource$head_uuid, properties = resource$properties,
updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
links.index = function(filters = NULL, where = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- LinkList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- LinkList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
links.create = function(link, ensure_unique_name = "false")
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Link$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
link_class = resource$link_class, name = resource$name,
head_uuid = resource$head_uuid, properties = resource$properties,
updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
links.update = function(link, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Link$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
link_class = resource$link_class, name = resource$name,
head_uuid = resource$head_uuid, properties = resource$properties,
updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
links.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Link$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
link_class = resource$link_class, name = resource$name,
head_uuid = resource$head_uuid, properties = resource$properties,
updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
links.list = function(filters = NULL, where = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- LinkList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- LinkList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
links.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Link$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
link_class = resource$link_class, name = resource$name,
head_uuid = resource$head_uuid, properties = resource$properties,
updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
links.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Link$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
link_class = resource$link_class, name = resource$name,
head_uuid = resource$head_uuid, properties = resource$properties,
updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
links.get_permissions = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Link$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
link_class = resource$link_class, name = resource$name,
head_uuid = resource$head_uuid, properties = resource$properties,
updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
jobs.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(uuid = resource$uuid, etag = resource$etag,
+ result <- Job$new(uuid = resource$uuid, etag = resource$etag,
owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, submit_id = resource$submit_id,
priority = resource$priority, description = resource$description,
state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
components = resource$components, script_parameters_digest = resource$script_parameters_digest)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
jobs.index = function(filters = NULL, where = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- JobList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- JobList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
jobs.create = function(job, ensure_unique_name = "false",
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(uuid = resource$uuid, etag = resource$etag,
+ result <- Job$new(uuid = resource$uuid, etag = resource$etag,
owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, submit_id = resource$submit_id,
priority = resource$priority, description = resource$description,
state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
components = resource$components, script_parameters_digest = resource$script_parameters_digest)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
jobs.update = function(job, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(uuid = resource$uuid, etag = resource$etag,
+ result <- Job$new(uuid = resource$uuid, etag = resource$etag,
owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, submit_id = resource$submit_id,
priority = resource$priority, description = resource$description,
state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
components = resource$components, script_parameters_digest = resource$script_parameters_digest)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
jobs.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(uuid = resource$uuid, etag = resource$etag,
+ result <- Job$new(uuid = resource$uuid, etag = resource$etag,
owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, submit_id = resource$submit_id,
priority = resource$priority, description = resource$description,
state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
components = resource$components, script_parameters_digest = resource$script_parameters_digest)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
jobs.queue = function(filters = NULL, where = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(uuid = resource$uuid, etag = resource$etag,
+ result <- Job$new(uuid = resource$uuid, etag = resource$etag,
owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, submit_id = resource$submit_id,
priority = resource$priority, description = resource$description,
state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
components = resource$components, script_parameters_digest = resource$script_parameters_digest)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
jobs.queue_size = function()
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(uuid = resource$uuid, etag = resource$etag,
+ result <- Job$new(uuid = resource$uuid, etag = resource$etag,
owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, submit_id = resource$submit_id,
priority = resource$priority, description = resource$description,
state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
components = resource$components, script_parameters_digest = resource$script_parameters_digest)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
jobs.cancel = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(uuid = resource$uuid, etag = resource$etag,
+ result <- Job$new(uuid = resource$uuid, etag = resource$etag,
owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, submit_id = resource$submit_id,
priority = resource$priority, description = resource$description,
state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
components = resource$components, script_parameters_digest = resource$script_parameters_digest)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
jobs.lock = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(uuid = resource$uuid, etag = resource$etag,
+ result <- Job$new(uuid = resource$uuid, etag = resource$etag,
owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, submit_id = resource$submit_id,
priority = resource$priority, description = resource$description,
state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
components = resource$components, script_parameters_digest = resource$script_parameters_digest)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
jobs.list = function(filters = NULL, where = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- JobList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- JobList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
jobs.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(uuid = resource$uuid, etag = resource$etag,
+ result <- Job$new(uuid = resource$uuid, etag = resource$etag,
owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, submit_id = resource$submit_id,
priority = resource$priority, description = resource$description,
state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
components = resource$components, script_parameters_digest = resource$script_parameters_digest)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
jobs.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Job$new(uuid = resource$uuid, etag = resource$etag,
+ result <- Job$new(uuid = resource$uuid, etag = resource$etag,
owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, submit_id = resource$submit_id,
priority = resource$priority, description = resource$description,
state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
components = resource$components, script_parameters_digest = resource$script_parameters_digest)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_disks.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- KeepDisk$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- KeepDisk$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, ping_secret = resource$ping_secret,
node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
last_ping_at = resource$last_ping_at, created_at = resource$created_at,
updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_disks.index = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- KeepDiskList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- KeepDiskList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_disks.create = function(keep_disk, ensure_unique_name = "false")
if(!is.null(resource$errors))
stop(resource$errors)
- KeepDisk$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- KeepDisk$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, ping_secret = resource$ping_secret,
node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
last_ping_at = resource$last_ping_at, created_at = resource$created_at,
updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_disks.update = function(keep_disk, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- KeepDisk$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- KeepDisk$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, ping_secret = resource$ping_secret,
node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
last_ping_at = resource$last_ping_at, created_at = resource$created_at,
updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_disks.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- KeepDisk$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- KeepDisk$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, ping_secret = resource$ping_secret,
node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
last_ping_at = resource$last_ping_at, created_at = resource$created_at,
updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_disks.ping = function(uuid = NULL, ping_secret,
if(!is.null(resource$errors))
stop(resource$errors)
- KeepDisk$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- KeepDisk$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, ping_secret = resource$ping_secret,
node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
last_ping_at = resource$last_ping_at, created_at = resource$created_at,
updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_disks.list = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- KeepDiskList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- KeepDiskList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_disks.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- KeepDisk$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- KeepDisk$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, ping_secret = resource$ping_secret,
node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
last_ping_at = resource$last_ping_at, created_at = resource$created_at,
updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_disks.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- KeepDisk$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- KeepDisk$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, ping_secret = resource$ping_secret,
node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
last_ping_at = resource$last_ping_at, created_at = resource$created_at,
updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_services.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- KeepService$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- KeepService$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, service_host = resource$service_host,
service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
service_type = resource$service_type, created_at = resource$created_at,
updated_at = resource$updated_at, read_only = resource$read_only)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_services.index = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- KeepServiceList$new(kind = resource$kind,
+ result <- KeepServiceList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_services.create = function(keep_service,
if(!is.null(resource$errors))
stop(resource$errors)
- KeepService$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- KeepService$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, service_host = resource$service_host,
service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
service_type = resource$service_type, created_at = resource$created_at,
updated_at = resource$updated_at, read_only = resource$read_only)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_services.update = function(keep_service, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- KeepService$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- KeepService$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, service_host = resource$service_host,
service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
service_type = resource$service_type, created_at = resource$created_at,
updated_at = resource$updated_at, read_only = resource$read_only)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_services.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- KeepService$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- KeepService$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, service_host = resource$service_host,
service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
service_type = resource$service_type, created_at = resource$created_at,
updated_at = resource$updated_at, read_only = resource$read_only)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_services.accessible = function()
if(!is.null(resource$errors))
stop(resource$errors)
- KeepService$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- KeepService$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, service_host = resource$service_host,
service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
service_type = resource$service_type, created_at = resource$created_at,
updated_at = resource$updated_at, read_only = resource$read_only)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_services.list = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- KeepServiceList$new(kind = resource$kind,
+ result <- KeepServiceList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_services.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- KeepService$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- KeepService$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, service_host = resource$service_host,
service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
service_type = resource$service_type, created_at = resource$created_at,
updated_at = resource$updated_at, read_only = resource$read_only)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
keep_services.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- KeepService$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- KeepService$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, service_host = resource$service_host,
service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
service_type = resource$service_type, created_at = resource$created_at,
updated_at = resource$updated_at, read_only = resource$read_only)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
pipeline_templates.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- PipelineTemplate$new(uuid = resource$uuid,
+ result <- PipelineTemplate$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
components = resource$components, updated_at = resource$updated_at,
description = resource$description)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
pipeline_templates.index = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- PipelineTemplateList$new(kind = resource$kind,
+ result <- PipelineTemplateList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
pipeline_templates.create = function(pipeline_template,
if(!is.null(resource$errors))
stop(resource$errors)
- PipelineTemplate$new(uuid = resource$uuid,
+ result <- PipelineTemplate$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
components = resource$components, updated_at = resource$updated_at,
description = resource$description)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
pipeline_templates.update = function(pipeline_template, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- PipelineTemplate$new(uuid = resource$uuid,
+ result <- PipelineTemplate$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
components = resource$components, updated_at = resource$updated_at,
description = resource$description)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
pipeline_templates.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- PipelineTemplate$new(uuid = resource$uuid,
+ result <- PipelineTemplate$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
components = resource$components, updated_at = resource$updated_at,
description = resource$description)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
pipeline_templates.list = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- PipelineTemplateList$new(kind = resource$kind,
+ result <- PipelineTemplateList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
pipeline_templates.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- PipelineTemplate$new(uuid = resource$uuid,
+ result <- PipelineTemplate$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
components = resource$components, updated_at = resource$updated_at,
description = resource$description)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
pipeline_templates.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- PipelineTemplate$new(uuid = resource$uuid,
+ result <- PipelineTemplate$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
components = resource$components, updated_at = resource$updated_at,
description = resource$description)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
pipeline_instances.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- PipelineInstance$new(uuid = resource$uuid,
+ result <- PipelineInstance$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
state = resource$state, components_summary = resource$components_summary,
started_at = resource$started_at, finished_at = resource$finished_at,
description = resource$description)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
pipeline_instances.index = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- PipelineInstanceList$new(kind = resource$kind,
+ result <- PipelineInstanceList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
pipeline_instances.create = function(pipeline_instance,
if(!is.null(resource$errors))
stop(resource$errors)
- PipelineInstance$new(uuid = resource$uuid,
+ result <- PipelineInstance$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
state = resource$state, components_summary = resource$components_summary,
started_at = resource$started_at, finished_at = resource$finished_at,
description = resource$description)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
pipeline_instances.update = function(pipeline_instance, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- PipelineInstance$new(uuid = resource$uuid,
+ result <- PipelineInstance$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
state = resource$state, components_summary = resource$components_summary,
started_at = resource$started_at, finished_at = resource$finished_at,
description = resource$description)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
pipeline_instances.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- PipelineInstance$new(uuid = resource$uuid,
+ result <- PipelineInstance$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
state = resource$state, components_summary = resource$components_summary,
started_at = resource$started_at, finished_at = resource$finished_at,
description = resource$description)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
pipeline_instances.cancel = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- PipelineInstance$new(uuid = resource$uuid,
+ result <- PipelineInstance$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
state = resource$state, components_summary = resource$components_summary,
started_at = resource$started_at, finished_at = resource$finished_at,
description = resource$description)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
pipeline_instances.list = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- PipelineInstanceList$new(kind = resource$kind,
+ result <- PipelineInstanceList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
pipeline_instances.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- PipelineInstance$new(uuid = resource$uuid,
+ result <- PipelineInstance$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
state = resource$state, components_summary = resource$components_summary,
started_at = resource$started_at, finished_at = resource$finished_at,
description = resource$description)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
pipeline_instances.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- PipelineInstance$new(uuid = resource$uuid,
+ result <- PipelineInstance$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
state = resource$state, components_summary = resource$components_summary,
started_at = resource$started_at, finished_at = resource$finished_at,
description = resource$description)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
nodes.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Node$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, slot_number = resource$slot_number,
hostname = resource$hostname, domain = resource$domain,
last_ping_at = resource$last_ping_at, info = resource$info,
updated_at = resource$updated_at, properties = resource$properties,
job_uuid = resource$job_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
nodes.index = function(filters = NULL, where = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- NodeList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- NodeList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
nodes.create = function(node, ensure_unique_name = "false",
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Node$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, slot_number = resource$slot_number,
hostname = resource$hostname, domain = resource$domain,
last_ping_at = resource$last_ping_at, info = resource$info,
updated_at = resource$updated_at, properties = resource$properties,
job_uuid = resource$job_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
nodes.update = function(node, uuid, assign_slot = NULL)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Node$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, slot_number = resource$slot_number,
hostname = resource$hostname, domain = resource$domain,
last_ping_at = resource$last_ping_at, info = resource$info,
updated_at = resource$updated_at, properties = resource$properties,
job_uuid = resource$job_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
nodes.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Node$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, slot_number = resource$slot_number,
hostname = resource$hostname, domain = resource$domain,
last_ping_at = resource$last_ping_at, info = resource$info,
updated_at = resource$updated_at, properties = resource$properties,
job_uuid = resource$job_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
nodes.ping = function(uuid, ping_secret)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Node$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, slot_number = resource$slot_number,
hostname = resource$hostname, domain = resource$domain,
last_ping_at = resource$last_ping_at, info = resource$info,
updated_at = resource$updated_at, properties = resource$properties,
job_uuid = resource$job_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
nodes.list = function(filters = NULL, where = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- NodeList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- NodeList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
nodes.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Node$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, slot_number = resource$slot_number,
hostname = resource$hostname, domain = resource$domain,
last_ping_at = resource$last_ping_at, info = resource$info,
updated_at = resource$updated_at, properties = resource$properties,
job_uuid = resource$job_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
nodes.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Node$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, slot_number = resource$slot_number,
hostname = resource$hostname, domain = resource$domain,
last_ping_at = resource$last_ping_at, info = resource$info,
updated_at = resource$updated_at, properties = resource$properties,
job_uuid = resource$job_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
repositories.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Repository$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Repository$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
repositories.index = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- RepositoryList$new(kind = resource$kind,
+ result <- RepositoryList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
repositories.create = function(repository, ensure_unique_name = "false")
if(!is.null(resource$errors))
stop(resource$errors)
- Repository$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Repository$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
repositories.update = function(repository, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Repository$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Repository$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
repositories.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Repository$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Repository$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
repositories.get_all_permissions = function()
if(!is.null(resource$errors))
stop(resource$errors)
- Repository$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Repository$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
repositories.list = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- RepositoryList$new(kind = resource$kind,
+ result <- RepositoryList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
repositories.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Repository$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Repository$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
repositories.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Repository$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Repository$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
specimens.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Specimen$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, material = resource$material,
updated_at = resource$updated_at, properties = resource$properties)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
specimens.index = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- SpecimenList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- SpecimenList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
specimens.create = function(specimen, ensure_unique_name = "false")
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Specimen$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, material = resource$material,
updated_at = resource$updated_at, properties = resource$properties)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
specimens.update = function(specimen, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Specimen$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, material = resource$material,
updated_at = resource$updated_at, properties = resource$properties)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
specimens.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Specimen$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, material = resource$material,
updated_at = resource$updated_at, properties = resource$properties)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
specimens.list = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- SpecimenList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- SpecimenList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
specimens.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Specimen$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, material = resource$material,
updated_at = resource$updated_at, properties = resource$properties)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
specimens.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Specimen$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, material = resource$material,
updated_at = resource$updated_at, properties = resource$properties)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
logs.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Log$new(uuid = resource$uuid, etag = resource$etag,
+ result <- Log$new(uuid = resource$uuid, etag = resource$etag,
owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
object_uuid = resource$object_uuid, event_at = resource$event_at,
properties = resource$properties, created_at = resource$created_at,
updated_at = resource$updated_at, modified_at = resource$modified_at,
object_owner_uuid = resource$object_owner_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
logs.index = function(filters = NULL, where = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- LogList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- LogList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
logs.create = function(log, ensure_unique_name = "false")
if(!is.null(resource$errors))
stop(resource$errors)
- Log$new(uuid = resource$uuid, etag = resource$etag,
+ result <- Log$new(uuid = resource$uuid, etag = resource$etag,
owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
object_uuid = resource$object_uuid, event_at = resource$event_at,
properties = resource$properties, created_at = resource$created_at,
updated_at = resource$updated_at, modified_at = resource$modified_at,
object_owner_uuid = resource$object_owner_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
logs.update = function(log, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Log$new(uuid = resource$uuid, etag = resource$etag,
+ result <- Log$new(uuid = resource$uuid, etag = resource$etag,
owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
object_uuid = resource$object_uuid, event_at = resource$event_at,
properties = resource$properties, created_at = resource$created_at,
updated_at = resource$updated_at, modified_at = resource$modified_at,
object_owner_uuid = resource$object_owner_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
logs.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Log$new(uuid = resource$uuid, etag = resource$etag,
+ result <- Log$new(uuid = resource$uuid, etag = resource$etag,
owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
object_uuid = resource$object_uuid, event_at = resource$event_at,
properties = resource$properties, created_at = resource$created_at,
updated_at = resource$updated_at, modified_at = resource$modified_at,
object_owner_uuid = resource$object_owner_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
logs.list = function(filters = NULL, where = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- LogList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- LogList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
logs.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Log$new(uuid = resource$uuid, etag = resource$etag,
+ result <- Log$new(uuid = resource$uuid, etag = resource$etag,
owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
object_uuid = resource$object_uuid, event_at = resource$event_at,
properties = resource$properties, created_at = resource$created_at,
updated_at = resource$updated_at, modified_at = resource$modified_at,
object_owner_uuid = resource$object_owner_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
logs.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Log$new(uuid = resource$uuid, etag = resource$etag,
+ result <- Log$new(uuid = resource$uuid, etag = resource$etag,
owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
object_uuid = resource$object_uuid, event_at = resource$event_at,
properties = resource$properties, created_at = resource$created_at,
updated_at = resource$updated_at, modified_at = resource$modified_at,
object_owner_uuid = resource$object_owner_uuid)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
traits.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Trait$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Trait$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
properties = resource$properties, created_at = resource$created_at,
updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
traits.index = function(filters = NULL, where = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- TraitList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- TraitList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
traits.create = function(trait, ensure_unique_name = "false")
if(!is.null(resource$errors))
stop(resource$errors)
- Trait$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Trait$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
properties = resource$properties, created_at = resource$created_at,
updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
traits.update = function(trait, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Trait$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Trait$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
properties = resource$properties, created_at = resource$created_at,
updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
traits.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Trait$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Trait$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
properties = resource$properties, created_at = resource$created_at,
updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
traits.list = function(filters = NULL, where = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- TraitList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- TraitList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
traits.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Trait$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Trait$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
properties = resource$properties, created_at = resource$created_at,
updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
traits.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- Trait$new(uuid = resource$uuid, etag = resource$etag,
- owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
+ result <- Trait$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
properties = resource$properties, created_at = resource$created_at,
updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
virtual_machines.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachine$new(uuid = resource$uuid,
+ result <- VirtualMachine$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, hostname = resource$hostname,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
virtual_machines.index = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachineList$new(kind = resource$kind,
+ result <- VirtualMachineList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
virtual_machines.create = function(virtual_machine,
if(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachine$new(uuid = resource$uuid,
+ result <- VirtualMachine$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, hostname = resource$hostname,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
virtual_machines.update = function(virtual_machine, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachine$new(uuid = resource$uuid,
+ result <- VirtualMachine$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, hostname = resource$hostname,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
virtual_machines.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachine$new(uuid = resource$uuid,
+ result <- VirtualMachine$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, hostname = resource$hostname,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
virtual_machines.logins = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachine$new(uuid = resource$uuid,
+ result <- VirtualMachine$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, hostname = resource$hostname,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
virtual_machines.get_all_logins = function()
if(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachine$new(uuid = resource$uuid,
+ result <- VirtualMachine$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, hostname = resource$hostname,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
virtual_machines.list = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachineList$new(kind = resource$kind,
+ result <- VirtualMachineList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
virtual_machines.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachine$new(uuid = resource$uuid,
+ result <- VirtualMachine$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, hostname = resource$hostname,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
virtual_machines.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- VirtualMachine$new(uuid = resource$uuid,
+ result <- VirtualMachine$new(uuid = resource$uuid,
etag = resource$etag, owner_uuid = resource$owner_uuid,
modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, hostname = resource$hostname,
created_at = resource$created_at, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
workflows.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Workflow$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_at = resource$modified_at,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
name = resource$name, description = resource$description,
definition = resource$definition, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
workflows.index = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- WorkflowList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- WorkflowList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
workflows.create = function(workflow, ensure_unique_name = "false")
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Workflow$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_at = resource$modified_at,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
name = resource$name, description = resource$description,
definition = resource$definition, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
workflows.update = function(workflow, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Workflow$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_at = resource$modified_at,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
name = resource$name, description = resource$description,
definition = resource$definition, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
workflows.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Workflow$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_at = resource$modified_at,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
name = resource$name, description = resource$description,
definition = resource$definition, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
workflows.list = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- WorkflowList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- WorkflowList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
workflows.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Workflow$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_at = resource$modified_at,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
name = resource$name, description = resource$description,
definition = resource$definition, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
workflows.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Workflow$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_at = resource$modified_at,
+ modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
name = resource$name, description = resource$description,
definition = resource$definition, updated_at = resource$updated_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
groups.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Group$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
description = resource$description, updated_at = resource$updated_at,
group_class = resource$group_class, trash_at = resource$trash_at,
is_trashed = resource$is_trashed, delete_at = resource$delete_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
groups.index = function(filters = NULL, where = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- GroupList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- GroupList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
groups.create = function(group, ensure_unique_name = "false")
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Group$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
description = resource$description, updated_at = resource$updated_at,
group_class = resource$group_class, trash_at = resource$trash_at,
is_trashed = resource$is_trashed, delete_at = resource$delete_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
groups.update = function(group, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Group$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
description = resource$description, updated_at = resource$updated_at,
group_class = resource$group_class, trash_at = resource$trash_at,
is_trashed = resource$is_trashed, delete_at = resource$delete_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
groups.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Group$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
description = resource$description, updated_at = resource$updated_at,
group_class = resource$group_class, trash_at = resource$trash_at,
is_trashed = resource$is_trashed, delete_at = resource$delete_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
groups.contents = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Group$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
description = resource$description, updated_at = resource$updated_at,
group_class = resource$group_class, trash_at = resource$trash_at,
is_trashed = resource$is_trashed, delete_at = resource$delete_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
groups.trash = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Group$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
description = resource$description, updated_at = resource$updated_at,
group_class = resource$group_class, trash_at = resource$trash_at,
is_trashed = resource$is_trashed, delete_at = resource$delete_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
groups.untrash = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Group$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
description = resource$description, updated_at = resource$updated_at,
group_class = resource$group_class, trash_at = resource$trash_at,
is_trashed = resource$is_trashed, delete_at = resource$delete_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
groups.list = function(filters = NULL, where = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- GroupList$new(kind = resource$kind, etag = resource$etag,
- items = resource$items, next_link = resource$next_link,
- next_page_token = resource$next_page_token,
+ result <- GroupList$new(kind = resource$kind,
+ etag = resource$etag, items = resource$items,
+ next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
groups.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Group$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
description = resource$description, updated_at = resource$updated_at,
group_class = resource$group_class, trash_at = resource$trash_at,
is_trashed = resource$is_trashed, delete_at = resource$delete_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
groups.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- Group$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, name = resource$name,
description = resource$description, updated_at = resource$updated_at,
group_class = resource$group_class, trash_at = resource$trash_at,
is_trashed = resource$is_trashed, delete_at = resource$delete_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
user_agreements.get = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- UserAgreement$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
replication_desired = resource$replication_desired,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
user_agreements.index = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- UserAgreementList$new(kind = resource$kind,
+ result <- UserAgreementList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
user_agreements.create = function(user_agreement,
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- UserAgreement$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
replication_desired = resource$replication_desired,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
user_agreements.update = function(user_agreement, uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- UserAgreement$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
replication_desired = resource$replication_desired,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
user_agreements.delete = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- UserAgreement$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
replication_desired = resource$replication_desired,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
user_agreements.signatures = function()
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- UserAgreement$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
replication_desired = resource$replication_desired,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
user_agreements.sign = function()
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- UserAgreement$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
replication_desired = resource$replication_desired,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
user_agreements.list = function(filters = NULL,
if(!is.null(resource$errors))
stop(resource$errors)
- UserAgreementList$new(kind = resource$kind,
+ result <- UserAgreementList$new(kind = resource$kind,
etag = resource$etag, items = resource$items,
next_link = resource$next_link, next_page_token = resource$next_page_token,
selfLink = resource$selfLink)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
user_agreements.new = function()
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- UserAgreement$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
replication_desired = resource$replication_desired,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
user_agreements.show = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- UserAgreement$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
replication_desired = resource$replication_desired,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
user_agreements.destroy = function(uuid)
if(!is.null(resource$errors))
stop(resource$errors)
- 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,
+ result <- UserAgreement$new(uuid = resource$uuid,
+ etag = resource$etag, owner_uuid = resource$owner_uuid,
+ created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
modified_by_user_uuid = resource$modified_by_user_uuid,
modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
replication_desired = resource$replication_desired,
name = resource$name, description = resource$description,
properties = resource$properties, delete_at = resource$delete_at,
file_names = resource$file_names, trash_at = resource$trash_at,
- is_trashed = resource$is_trashed)
+ is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
+ storage_classes_confirmed = resource$storage_classes_confirmed,
+ storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
+
+ if(result$isEmpty())
+ resource
+ else
+ result
},
getHostName = function() private$host,
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() {
jsonlite::toJSON(list("userlist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("user" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("apiclientauthorizationlist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("apiclientauthorization" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("apiclientlist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("apiclient" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("containerrequestlist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
self$output_name <- output_name
self$output_ttl <- output_ttl
- private$classFields <- c(uuid, etag, owner_uuid,
- created_at, modified_at, modified_by_client_uuid,
- modified_by_user_uuid, name, description,
- properties, state, requesting_container_uuid,
- container_uuid, container_count_max, mounts,
- runtime_constraints, container_image, environment,
- cwd, command, output_path, priority, expires_at,
- filters, updated_at, container_count, use_existing,
- scheduling_parameters, output_uuid, log_uuid,
- output_name, output_ttl)
+ private$classFields <- c("uuid", "etag",
+ "owner_uuid", "created_at", "modified_at",
+ "modified_by_client_uuid", "modified_by_user_uuid",
+ "name", "description", "properties", "state",
+ "requesting_container_uuid", "container_uuid",
+ "container_count_max", "mounts", "runtime_constraints",
+ "container_image", "environment", "cwd",
+ "command", "output_path", "priority", "expires_at",
+ "filters", "updated_at", "container_count",
+ "use_existing", "scheduling_parameters",
+ "output_uuid", "log_uuid", "output_name",
+ "output_ttl")
},
toJSON = function() {
jsonlite::toJSON(list("containerrequest" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("authorizedkeylist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("authorizedkey" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("collectionlist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("containerlist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
self$locked_by_uuid <- locked_by_uuid
self$scheduling_parameters <- scheduling_parameters
- private$classFields <- c(uuid, etag, owner_uuid,
- created_at, modified_at, modified_by_client_uuid,
- modified_by_user_uuid, state, started_at,
- finished_at, log, environment, cwd, command,
- output_path, mounts, runtime_constraints,
- output, container_image, progress, priority,
- updated_at, exit_code, auth_uuid, locked_by_uuid,
- scheduling_parameters)
+ private$classFields <- c("uuid", "etag",
+ "owner_uuid", "created_at", "modified_at",
+ "modified_by_client_uuid", "modified_by_user_uuid",
+ "state", "started_at", "finished_at", "log",
+ "environment", "cwd", "command", "output_path",
+ "mounts", "runtime_constraints", "output",
+ "container_image", "progress", "priority",
+ "updated_at", "exit_code", "auth_uuid", "locked_by_uuid",
+ "scheduling_parameters")
},
toJSON = function() {
jsonlite::toJSON(list("container" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("humanlist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("human" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("jobtasklist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("jobtask" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("linklist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("link" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("joblist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("job" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("keepdisklist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("keepdisk" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("keepservicelist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("keepservice" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("pipelinetemplatelist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("pipelinetemplate" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("pipelineinstancelist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("pipelineinstance" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("nodelist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("node" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("repositorylist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("repository" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("specimenlist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("specimen" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("loglist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("log" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("traitlist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("trait" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("virtualmachinelist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("virtualmachine" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("workflowlist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("workflow" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("grouplist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("group" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
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() {
jsonlite::toJSON(list("useragreementlist" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),
#' 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)
+#' file_names = NULL, trash_at = NULL, is_trashed = NULL,
+#' storage_classes_desired = NULL, storage_classes_confirmed = NULL,
+#' storage_classes_confirmed_at = NULL)
#' }
#'
#' @section Arguments:
#' \item{file_names}{}
#' \item{trash_at}{}
#' \item{is_trashed}{}
+#' \item{storage_classes_desired}{}
+#' \item{storage_classes_confirmed}{}
+#' \item{storage_classes_confirmed_at}{}
#' }
#'
#' @name UserAgreement
file_names = NULL,
trash_at = NULL,
is_trashed = NULL,
+ storage_classes_desired = NULL,
+ storage_classes_confirmed = NULL,
+ storage_classes_confirmed_at = NULL,
initialize = function(uuid = NULL, etag = NULL,
owner_uuid = NULL, created_at = NULL, modified_by_client_uuid = NULL,
updated_at = NULL, manifest_text = NULL,
name = NULL, description = NULL, properties = NULL,
delete_at = NULL, file_names = NULL, trash_at = NULL,
- is_trashed = NULL)
+ is_trashed = NULL, storage_classes_desired = NULL,
+ storage_classes_confirmed = NULL, storage_classes_confirmed_at = NULL)
{
self$uuid <- uuid
self$etag <- etag
self$file_names <- file_names
self$trash_at <- trash_at
self$is_trashed <- is_trashed
+ self$storage_classes_desired <- storage_classes_desired
+ self$storage_classes_confirmed <- storage_classes_confirmed
+ self$storage_classes_confirmed_at <- storage_classes_confirmed_at
- private$classFields <- c(uuid, etag, owner_uuid,
- created_at, modified_by_client_uuid, modified_by_user_uuid,
- modified_at, portable_data_hash, replication_desired,
- replication_confirmed_at, replication_confirmed,
- updated_at, manifest_text, name, description,
- properties, delete_at, file_names, trash_at,
- is_trashed)
+ private$classFields <- c("uuid", "etag",
+ "owner_uuid", "created_at", "modified_by_client_uuid",
+ "modified_by_user_uuid", "modified_at", "portable_data_hash",
+ "replication_desired", "replication_confirmed_at",
+ "replication_confirmed", "updated_at", "manifest_text",
+ "name", "description", "properties", "delete_at",
+ "file_names", "trash_at", "is_trashed", "storage_classes_desired",
+ "storage_classes_confirmed", "storage_classes_confirmed_at")
},
toJSON = function() {
jsonlite::toJSON(list("useragreement" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
+ },
+
+ isEmpty = function() {
+ fields <- sapply(private$classFields,
+ function(field) self[[field]])
+
+ if(any(sapply(fields, function(field) !is.null(field) && field != "")))
+ FALSE
+ else
+ TRUE
}
),