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,
projects / arvados.git / blobdiff