Arvados-DCO-1.1-Signed-off-by: Fuad Muhic <fmuhic@capeannenterprises.com>
16 files changed:
# SPDX-License-Identifier: Apache-2.0
#' users.get
# SPDX-License-Identifier: Apache-2.0
#' users.get
#' users.get is a method defined in Arvados class.
#' users.get is a method defined in Arvados class.
#' @usage arv$users.get(uuid)
#' @param uuid The UUID of the User in question.
#' @return User object.
#' @usage arv$users.get(uuid)
#' @param uuid The UUID of the User in question.
#' @return User object.
#' users.create is a method defined in Arvados class.
#' users.create is a method defined in Arvados class.
#' @usage arv$users.create(user, ensure_unique_name = "false")
#' @param user User object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' @usage arv$users.create(user, ensure_unique_name = "false")
#' @param user User object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' users.update is a method defined in Arvados class.
#' users.update is a method defined in Arvados class.
#' @usage arv$users.update(user, uuid)
#' @param user User object.
#' @param uuid The UUID of the User in question.
#' @usage arv$users.update(user, uuid)
#' @param user User object.
#' @param uuid The UUID of the User in question.
#' users.delete is a method defined in Arvados class.
#' users.delete is a method defined in Arvados class.
#' @usage arv$users.delete(uuid)
#' @param uuid The UUID of the User in question.
#' @return User object.
#' @usage arv$users.delete(uuid)
#' @param uuid The UUID of the User in question.
#' @return User object.
#' users.current is a method defined in Arvados class.
#' users.current is a method defined in Arvados class.
#' @usage arv$users.current(NULL)
#' @return User object.
#' @name users.current
NULL
#' users.system
#' @usage arv$users.current(NULL)
#' @return User object.
#' @name users.current
NULL
#' users.system
#' users.system is a method defined in Arvados class.
#' users.system is a method defined in Arvados class.
#' @usage arv$users.system(NULL)
#' @return User object.
#' @name users.system
NULL
#' users.activate
#' @usage arv$users.system(NULL)
#' @return User object.
#' @name users.system
NULL
#' users.activate
#' users.activate is a method defined in Arvados class.
#' users.activate is a method defined in Arvados class.
#' @usage arv$users.activate(uuid)
#' @usage arv$users.activate(uuid)
#' @return User object.
#' @name users.activate
NULL
#' users.setup
#' @return User object.
#' @name users.activate
NULL
#' users.setup
#' users.setup is a method defined in Arvados class.
#' users.setup is a method defined in Arvados class.
#' @usage arv$users.setup(user = NULL, openid_prefix = NULL,
#' repo_name = NULL, vm_uuid = NULL, send_notification_email = "false")
#' @usage arv$users.setup(user = NULL, openid_prefix = NULL,
#' repo_name = NULL, vm_uuid = NULL, send_notification_email = "false")
-#' @param user
-#' @param openid_prefix
-#' @param repo_name
-#' @param vm_uuid
-#' @param send_notification_email
+#' @param user
+#' @param openid_prefix
+#' @param repo_name
+#' @param vm_uuid
+#' @param send_notification_email
#' @return User object.
#' @name users.setup
NULL
#' users.unsetup
#' @return User object.
#' @name users.setup
NULL
#' users.unsetup
#' users.unsetup is a method defined in Arvados class.
#' users.unsetup is a method defined in Arvados class.
#' @usage arv$users.unsetup(uuid)
#' @usage arv$users.unsetup(uuid)
#' @return User object.
#' @name users.unsetup
NULL
#' users.update_uuid
#' @return User object.
#' @name users.unsetup
NULL
#' users.update_uuid
#' users.update_uuid is a method defined in Arvados class.
#' users.update_uuid is a method defined in Arvados class.
#' @usage arv$users.update_uuid(uuid, new_uuid)
#' @usage arv$users.update_uuid(uuid, new_uuid)
-#' @param uuid
-#' @param new_uuid
+#' @param uuid
+#' @param new_uuid
#' @return User object.
#' @name users.update_uuid
NULL
#' users.list
#' @return User object.
#' @name users.update_uuid
NULL
#' users.list
#' users.list is a method defined in Arvados class.
#' users.list is a method defined in Arvados class.
#' @usage arv$users.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$users.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return UserList object.
#' @name users.list
NULL
#' api_client_authorizations.get
#' @return UserList object.
#' @name users.list
NULL
#' api_client_authorizations.get
#' api_client_authorizations.get is a method defined in Arvados class.
#' api_client_authorizations.get is a method defined in Arvados class.
#' @usage arv$api_client_authorizations.get(uuid)
#' @param uuid The UUID of the ApiClientAuthorization in question.
#' @return ApiClientAuthorization object.
#' @usage arv$api_client_authorizations.get(uuid)
#' @param uuid The UUID of the ApiClientAuthorization in question.
#' @return ApiClientAuthorization object.
NULL
#' api_client_authorizations.create
NULL
#' api_client_authorizations.create
#' api_client_authorizations.create is a method defined in Arvados class.
#' api_client_authorizations.create is a method defined in Arvados class.
#' @usage arv$api_client_authorizations.create(apiclientauthorization,
#' ensure_unique_name = "false")
#' @param apiClientAuthorization ApiClientAuthorization object.
#' @usage arv$api_client_authorizations.create(apiclientauthorization,
#' ensure_unique_name = "false")
#' @param apiClientAuthorization ApiClientAuthorization object.
NULL
#' api_client_authorizations.update
NULL
#' api_client_authorizations.update
#' api_client_authorizations.update is a method defined in Arvados class.
#' api_client_authorizations.update is a method defined in Arvados class.
#' @usage arv$api_client_authorizations.update(apiclientauthorization,
#' uuid)
#' @param apiClientAuthorization ApiClientAuthorization object.
#' @usage arv$api_client_authorizations.update(apiclientauthorization,
#' uuid)
#' @param apiClientAuthorization ApiClientAuthorization object.
NULL
#' api_client_authorizations.delete
NULL
#' api_client_authorizations.delete
#' api_client_authorizations.delete is a method defined in Arvados class.
#' api_client_authorizations.delete is a method defined in Arvados class.
#' @usage arv$api_client_authorizations.delete(uuid)
#' @param uuid The UUID of the ApiClientAuthorization in question.
#' @return ApiClientAuthorization object.
#' @usage arv$api_client_authorizations.delete(uuid)
#' @param uuid The UUID of the ApiClientAuthorization in question.
#' @return ApiClientAuthorization object.
NULL
#' api_client_authorizations.create_system_auth
NULL
#' api_client_authorizations.create_system_auth
#' api_client_authorizations.create_system_auth is a method defined in Arvados class.
#' api_client_authorizations.create_system_auth is a method defined in Arvados class.
#' @usage arv$api_client_authorizations.create_system_auth(api_client_id = NULL,
#' scopes = NULL)
#' @usage arv$api_client_authorizations.create_system_auth(api_client_id = NULL,
#' scopes = NULL)
-#' @param api_client_id
-#' @param scopes
+#' @param api_client_id
+#' @param scopes
#' @return ApiClientAuthorization object.
#' @name api_client_authorizations.create_system_auth
NULL
#' api_client_authorizations.current
#' @return ApiClientAuthorization object.
#' @name api_client_authorizations.create_system_auth
NULL
#' api_client_authorizations.current
#' api_client_authorizations.current is a method defined in Arvados class.
#' api_client_authorizations.current is a method defined in Arvados class.
#' @usage arv$api_client_authorizations.current(NULL)
#' @return ApiClientAuthorization object.
#' @name api_client_authorizations.current
NULL
#' api_client_authorizations.list
#' @usage arv$api_client_authorizations.current(NULL)
#' @return ApiClientAuthorization object.
#' @name api_client_authorizations.current
NULL
#' api_client_authorizations.list
#' api_client_authorizations.list is a method defined in Arvados class.
#' api_client_authorizations.list is a method defined in Arvados class.
#' @usage arv$api_client_authorizations.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$api_client_authorizations.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return ApiClientAuthorizationList object.
#' @name api_client_authorizations.list
NULL
#' containers.get
#' @return ApiClientAuthorizationList object.
#' @name api_client_authorizations.list
NULL
#' containers.get
#' containers.get is a method defined in Arvados class.
#' containers.get is a method defined in Arvados class.
#' @usage arv$containers.get(uuid)
#' @param uuid The UUID of the Container in question.
#' @return Container object.
#' @usage arv$containers.get(uuid)
#' @param uuid The UUID of the Container in question.
#' @return Container object.
NULL
#' containers.create
NULL
#' containers.create
#' containers.create is a method defined in Arvados class.
#' containers.create is a method defined in Arvados class.
#' @usage arv$containers.create(container,
#' ensure_unique_name = "false")
#' @param container Container object.
#' @usage arv$containers.create(container,
#' ensure_unique_name = "false")
#' @param container Container object.
NULL
#' containers.update
NULL
#' containers.update
#' containers.update is a method defined in Arvados class.
#' containers.update is a method defined in Arvados class.
#' @usage arv$containers.update(container,
#' uuid)
#' @param container Container object.
#' @usage arv$containers.update(container,
#' uuid)
#' @param container Container object.
NULL
#' containers.delete
NULL
#' containers.delete
#' containers.delete is a method defined in Arvados class.
#' containers.delete is a method defined in Arvados class.
#' @usage arv$containers.delete(uuid)
#' @param uuid The UUID of the Container in question.
#' @return Container object.
#' @usage arv$containers.delete(uuid)
#' @param uuid The UUID of the Container in question.
#' @return Container object.
#' containers.auth is a method defined in Arvados class.
#' containers.auth is a method defined in Arvados class.
#' @usage arv$containers.auth(uuid)
#' @usage arv$containers.auth(uuid)
#' @return Container object.
#' @name containers.auth
NULL
#' containers.lock
#' @return Container object.
#' @name containers.auth
NULL
#' containers.lock
#' containers.lock is a method defined in Arvados class.
#' containers.lock is a method defined in Arvados class.
#' @usage arv$containers.lock(uuid)
#' @usage arv$containers.lock(uuid)
#' @return Container object.
#' @name containers.lock
NULL
#' containers.unlock
#' @return Container object.
#' @name containers.lock
NULL
#' containers.unlock
#' containers.unlock is a method defined in Arvados class.
#' containers.unlock is a method defined in Arvados class.
#' @usage arv$containers.unlock(uuid)
#' @usage arv$containers.unlock(uuid)
#' @return Container object.
#' @name containers.unlock
NULL
#' containers.secret_mounts
#' @return Container object.
#' @name containers.unlock
NULL
#' containers.secret_mounts
#' containers.secret_mounts is a method defined in Arvados class.
#' containers.secret_mounts is a method defined in Arvados class.
#' @usage arv$containers.secret_mounts(uuid)
#' @usage arv$containers.secret_mounts(uuid)
#' @return Container object.
#' @name containers.secret_mounts
NULL
#' containers.current
#' @return Container object.
#' @name containers.secret_mounts
NULL
#' containers.current
#' containers.current is a method defined in Arvados class.
#' containers.current is a method defined in Arvados class.
#' @usage arv$containers.current(NULL)
#' @return Container object.
#' @name containers.current
NULL
#' containers.list
#' @usage arv$containers.current(NULL)
#' @return Container object.
#' @name containers.current
NULL
#' containers.list
#' containers.list is a method defined in Arvados class.
#' containers.list is a method defined in Arvados class.
#' @usage arv$containers.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$containers.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return ContainerList object.
#' @name containers.list
NULL
#' api_clients.get
#' @return ContainerList object.
#' @name containers.list
NULL
#' api_clients.get
#' api_clients.get is a method defined in Arvados class.
#' api_clients.get is a method defined in Arvados class.
#' @usage arv$api_clients.get(uuid)
#' @param uuid The UUID of the ApiClient in question.
#' @return ApiClient object.
#' @usage arv$api_clients.get(uuid)
#' @param uuid The UUID of the ApiClient in question.
#' @return ApiClient object.
NULL
#' api_clients.create
NULL
#' api_clients.create
#' api_clients.create is a method defined in Arvados class.
#' api_clients.create is a method defined in Arvados class.
#' @usage arv$api_clients.create(apiclient,
#' ensure_unique_name = "false")
#' @param apiClient ApiClient object.
#' @usage arv$api_clients.create(apiclient,
#' ensure_unique_name = "false")
#' @param apiClient ApiClient object.
NULL
#' api_clients.update
NULL
#' api_clients.update
#' api_clients.update is a method defined in Arvados class.
#' api_clients.update is a method defined in Arvados class.
#' @usage arv$api_clients.update(apiclient,
#' uuid)
#' @param apiClient ApiClient object.
#' @usage arv$api_clients.update(apiclient,
#' uuid)
#' @param apiClient ApiClient object.
NULL
#' api_clients.delete
NULL
#' api_clients.delete
#' api_clients.delete is a method defined in Arvados class.
#' api_clients.delete is a method defined in Arvados class.
#' @usage arv$api_clients.delete(uuid)
#' @param uuid The UUID of the ApiClient in question.
#' @return ApiClient object.
#' @usage arv$api_clients.delete(uuid)
#' @param uuid The UUID of the ApiClient in question.
#' @return ApiClient object.
#' api_clients.list is a method defined in Arvados class.
#' api_clients.list is a method defined in Arvados class.
#' @usage arv$api_clients.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$api_clients.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return ApiClientList object.
#' @name api_clients.list
NULL
#' authorized_keys.get
#' @return ApiClientList object.
#' @name api_clients.list
NULL
#' authorized_keys.get
#' authorized_keys.get is a method defined in Arvados class.
#' authorized_keys.get is a method defined in Arvados class.
#' @usage arv$authorized_keys.get(uuid)
#' @param uuid The UUID of the AuthorizedKey in question.
#' @return AuthorizedKey object.
#' @usage arv$authorized_keys.get(uuid)
#' @param uuid The UUID of the AuthorizedKey in question.
#' @return AuthorizedKey object.
NULL
#' authorized_keys.create
NULL
#' authorized_keys.create
#' authorized_keys.create is a method defined in Arvados class.
#' authorized_keys.create is a method defined in Arvados class.
#' @usage arv$authorized_keys.create(authorizedkey,
#' ensure_unique_name = "false")
#' @param authorizedKey AuthorizedKey object.
#' @usage arv$authorized_keys.create(authorizedkey,
#' ensure_unique_name = "false")
#' @param authorizedKey AuthorizedKey object.
NULL
#' authorized_keys.update
NULL
#' authorized_keys.update
#' authorized_keys.update is a method defined in Arvados class.
#' authorized_keys.update is a method defined in Arvados class.
#' @usage arv$authorized_keys.update(authorizedkey,
#' uuid)
#' @param authorizedKey AuthorizedKey object.
#' @usage arv$authorized_keys.update(authorizedkey,
#' uuid)
#' @param authorizedKey AuthorizedKey object.
NULL
#' authorized_keys.delete
NULL
#' authorized_keys.delete
#' authorized_keys.delete is a method defined in Arvados class.
#' authorized_keys.delete is a method defined in Arvados class.
#' @usage arv$authorized_keys.delete(uuid)
#' @param uuid The UUID of the AuthorizedKey in question.
#' @return AuthorizedKey object.
#' @usage arv$authorized_keys.delete(uuid)
#' @param uuid The UUID of the AuthorizedKey in question.
#' @return AuthorizedKey object.
NULL
#' authorized_keys.list
NULL
#' authorized_keys.list
#' authorized_keys.list is a method defined in Arvados class.
#' authorized_keys.list is a method defined in Arvados class.
#' @usage arv$authorized_keys.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$authorized_keys.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return AuthorizedKeyList object.
#' @name authorized_keys.list
NULL
#' container_requests.get
#' @return AuthorizedKeyList object.
#' @name authorized_keys.list
NULL
#' container_requests.get
#' container_requests.get is a method defined in Arvados class.
#' container_requests.get is a method defined in Arvados class.
#' @usage arv$container_requests.get(uuid)
#' @param uuid The UUID of the ContainerRequest in question.
#' @return ContainerRequest object.
#' @usage arv$container_requests.get(uuid)
#' @param uuid The UUID of the ContainerRequest in question.
#' @return ContainerRequest object.
NULL
#' container_requests.create
NULL
#' container_requests.create
#' container_requests.create is a method defined in Arvados class.
#' container_requests.create is a method defined in Arvados class.
#' @usage arv$container_requests.create(containerrequest,
#' ensure_unique_name = "false")
#' @param containerRequest ContainerRequest object.
#' @usage arv$container_requests.create(containerrequest,
#' ensure_unique_name = "false")
#' @param containerRequest ContainerRequest object.
NULL
#' container_requests.update
NULL
#' container_requests.update
#' container_requests.update is a method defined in Arvados class.
#' container_requests.update is a method defined in Arvados class.
#' @usage arv$container_requests.update(containerrequest,
#' uuid)
#' @param containerRequest ContainerRequest object.
#' @usage arv$container_requests.update(containerrequest,
#' uuid)
#' @param containerRequest ContainerRequest object.
NULL
#' container_requests.delete
NULL
#' container_requests.delete
#' container_requests.delete is a method defined in Arvados class.
#' container_requests.delete is a method defined in Arvados class.
#' @usage arv$container_requests.delete(uuid)
#' @param uuid The UUID of the ContainerRequest in question.
#' @return ContainerRequest object.
#' @usage arv$container_requests.delete(uuid)
#' @param uuid The UUID of the ContainerRequest in question.
#' @return ContainerRequest object.
NULL
#' container_requests.list
NULL
#' container_requests.list
#' container_requests.list is a method defined in Arvados class.
#' container_requests.list is a method defined in Arvados class.
#' @usage arv$container_requests.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$container_requests.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return ContainerRequestList object.
#' @name container_requests.list
NULL
#' collections.get
#' @return ContainerRequestList object.
#' @name container_requests.list
NULL
#' collections.get
#' collections.get is a method defined in Arvados class.
#' collections.get is a method defined in Arvados class.
#' @usage arv$collections.get(uuid)
#' @param uuid The UUID of the Collection in question.
#' @return Collection object.
#' @usage arv$collections.get(uuid)
#' @param uuid The UUID of the Collection in question.
#' @return Collection object.
NULL
#' collections.create
NULL
#' collections.create
#' collections.create is a method defined in Arvados class.
#' collections.create is a method defined in Arvados class.
#' @usage arv$collections.create(collection,
#' ensure_unique_name = "false")
#' @param collection Collection object.
#' @usage arv$collections.create(collection,
#' ensure_unique_name = "false")
#' @param collection Collection object.
NULL
#' collections.update
NULL
#' collections.update
#' collections.update is a method defined in Arvados class.
#' collections.update is a method defined in Arvados class.
#' @usage arv$collections.update(collection,
#' uuid)
#' @param collection Collection object.
#' @usage arv$collections.update(collection,
#' uuid)
#' @param collection Collection object.
NULL
#' collections.delete
NULL
#' collections.delete
#' collections.delete is a method defined in Arvados class.
#' collections.delete is a method defined in Arvados class.
#' @usage arv$collections.delete(uuid)
#' @param uuid The UUID of the Collection in question.
#' @return Collection object.
#' @usage arv$collections.delete(uuid)
#' @param uuid The UUID of the Collection in question.
#' @return Collection object.
NULL
#' collections.provenance
NULL
#' collections.provenance
#' collections.provenance is a method defined in Arvados class.
#' collections.provenance is a method defined in Arvados class.
#' @usage arv$collections.provenance(uuid)
#' @usage arv$collections.provenance(uuid)
#' @return Collection object.
#' @name collections.provenance
NULL
#' collections.used_by
#' @return Collection object.
#' @name collections.provenance
NULL
#' collections.used_by
#' collections.used_by is a method defined in Arvados class.
#' collections.used_by is a method defined in Arvados class.
#' @usage arv$collections.used_by(uuid)
#' @usage arv$collections.used_by(uuid)
#' @return Collection object.
#' @name collections.used_by
NULL
#' collections.trash
#' @return Collection object.
#' @name collections.used_by
NULL
#' collections.trash
#' collections.trash is a method defined in Arvados class.
#' collections.trash is a method defined in Arvados class.
#' @usage arv$collections.trash(uuid)
#' @usage arv$collections.trash(uuid)
#' @return Collection object.
#' @name collections.trash
NULL
#' collections.untrash
#' @return Collection object.
#' @name collections.trash
NULL
#' collections.untrash
#' collections.untrash is a method defined in Arvados class.
#' collections.untrash is a method defined in Arvados class.
#' @usage arv$collections.untrash(uuid)
#' @usage arv$collections.untrash(uuid)
#' @return Collection object.
#' @name collections.untrash
NULL
#' collections.list
#' @return Collection object.
#' @name collections.untrash
NULL
#' collections.list
#' collections.list is a method defined in Arvados class.
#' collections.list is a method defined in Arvados class.
#' @usage arv$collections.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact", include_trash = NULL)
#' @usage arv$collections.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact", include_trash = NULL)
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @param include_trash Include collections whose is_trashed attribute is true.
#' @return CollectionList object.
#' @name collections.list
NULL
#' humans.get
#' @param include_trash Include collections whose is_trashed attribute is true.
#' @return CollectionList object.
#' @name collections.list
NULL
#' humans.get
#' humans.get is a method defined in Arvados class.
#' humans.get is a method defined in Arvados class.
#' @usage arv$humans.get(uuid)
#' @param uuid The UUID of the Human in question.
#' @return Human object.
#' @usage arv$humans.get(uuid)
#' @param uuid The UUID of the Human in question.
#' @return Human object.
#' humans.create is a method defined in Arvados class.
#' humans.create is a method defined in Arvados class.
#' @usage arv$humans.create(human, ensure_unique_name = "false")
#' @param human Human object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' @usage arv$humans.create(human, ensure_unique_name = "false")
#' @param human Human object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' humans.update is a method defined in Arvados class.
#' humans.update is a method defined in Arvados class.
#' @usage arv$humans.update(human, uuid)
#' @param human Human object.
#' @param uuid The UUID of the Human in question.
#' @usage arv$humans.update(human, uuid)
#' @param human Human object.
#' @param uuid The UUID of the Human in question.
#' humans.delete is a method defined in Arvados class.
#' humans.delete is a method defined in Arvados class.
#' @usage arv$humans.delete(uuid)
#' @param uuid The UUID of the Human in question.
#' @return Human object.
#' @usage arv$humans.delete(uuid)
#' @param uuid The UUID of the Human in question.
#' @return Human object.
#' humans.list is a method defined in Arvados class.
#' humans.list is a method defined in Arvados class.
#' @usage arv$humans.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$humans.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return HumanList object.
#' @name humans.list
NULL
#' job_tasks.get
#' @return HumanList object.
#' @name humans.list
NULL
#' job_tasks.get
#' job_tasks.get is a method defined in Arvados class.
#' job_tasks.get is a method defined in Arvados class.
#' @usage arv$job_tasks.get(uuid)
#' @param uuid The UUID of the JobTask in question.
#' @return JobTask object.
#' @usage arv$job_tasks.get(uuid)
#' @param uuid The UUID of the JobTask in question.
#' @return JobTask object.
#' job_tasks.create is a method defined in Arvados class.
#' job_tasks.create is a method defined in Arvados class.
#' @usage arv$job_tasks.create(jobtask, ensure_unique_name = "false")
#' @param jobTask JobTask object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' @usage arv$job_tasks.create(jobtask, ensure_unique_name = "false")
#' @param jobTask JobTask object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' job_tasks.update is a method defined in Arvados class.
#' job_tasks.update is a method defined in Arvados class.
#' @usage arv$job_tasks.update(jobtask, uuid)
#' @param jobTask JobTask object.
#' @param uuid The UUID of the JobTask in question.
#' @usage arv$job_tasks.update(jobtask, uuid)
#' @param jobTask JobTask object.
#' @param uuid The UUID of the JobTask in question.
#' job_tasks.delete is a method defined in Arvados class.
#' job_tasks.delete is a method defined in Arvados class.
#' @usage arv$job_tasks.delete(uuid)
#' @param uuid The UUID of the JobTask in question.
#' @return JobTask object.
#' @usage arv$job_tasks.delete(uuid)
#' @param uuid The UUID of the JobTask in question.
#' @return JobTask object.
#' job_tasks.list is a method defined in Arvados class.
#' job_tasks.list is a method defined in Arvados class.
#' @usage arv$job_tasks.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$job_tasks.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return JobTaskList object.
#' @name job_tasks.list
NULL
#' links.get
#' @return JobTaskList object.
#' @name job_tasks.list
NULL
#' links.get
#' links.get is a method defined in Arvados class.
#' links.get is a method defined in Arvados class.
#' @usage arv$links.get(uuid)
#' @param uuid The UUID of the Link in question.
#' @return Link object.
#' @usage arv$links.get(uuid)
#' @param uuid The UUID of the Link in question.
#' @return Link object.
#' links.create is a method defined in Arvados class.
#' links.create is a method defined in Arvados class.
#' @usage arv$links.create(link, ensure_unique_name = "false")
#' @param link Link object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' @usage arv$links.create(link, ensure_unique_name = "false")
#' @param link Link object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' links.update is a method defined in Arvados class.
#' links.update is a method defined in Arvados class.
#' @usage arv$links.update(link, uuid)
#' @param link Link object.
#' @param uuid The UUID of the Link in question.
#' @usage arv$links.update(link, uuid)
#' @param link Link object.
#' @param uuid The UUID of the Link in question.
#' links.delete is a method defined in Arvados class.
#' links.delete is a method defined in Arvados class.
#' @usage arv$links.delete(uuid)
#' @param uuid The UUID of the Link in question.
#' @return Link object.
#' @usage arv$links.delete(uuid)
#' @param uuid The UUID of the Link in question.
#' @return Link object.
#' links.list is a method defined in Arvados class.
#' links.list is a method defined in Arvados class.
#' @usage arv$links.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$links.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return LinkList object.
#' @name links.list
NULL
#' links.get_permissions
#' @return LinkList object.
#' @name links.list
NULL
#' links.get_permissions
#' links.get_permissions is a method defined in Arvados class.
#' links.get_permissions is a method defined in Arvados class.
#' @usage arv$links.get_permissions(uuid)
#' @usage arv$links.get_permissions(uuid)
#' @return Link object.
#' @name links.get_permissions
NULL
#' jobs.get
#' @return Link object.
#' @name links.get_permissions
NULL
#' jobs.get
#' jobs.get is a method defined in Arvados class.
#' jobs.get is a method defined in Arvados class.
#' @usage arv$jobs.get(uuid)
#' @param uuid The UUID of the Job in question.
#' @return Job object.
#' @usage arv$jobs.get(uuid)
#' @param uuid The UUID of the Job in question.
#' @return Job object.
#' jobs.create is a method defined in Arvados class.
#' jobs.create is a method defined in Arvados class.
#' @usage arv$jobs.create(job, ensure_unique_name = "false",
#' find_or_create = "false", filters = NULL,
#' minimum_script_version = NULL, exclude_script_versions = NULL)
#' @param job Job object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' @usage arv$jobs.create(job, ensure_unique_name = "false",
#' find_or_create = "false", filters = NULL,
#' minimum_script_version = NULL, exclude_script_versions = NULL)
#' @param job Job object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
-#' @param find_or_create
-#' @param filters
-#' @param minimum_script_version
-#' @param exclude_script_versions
+#' @param find_or_create
+#' @param filters
+#' @param minimum_script_version
+#' @param exclude_script_versions
#' @return Job object.
#' @name jobs.create
NULL
#' jobs.update
#' @return Job object.
#' @name jobs.create
NULL
#' jobs.update
#' jobs.update is a method defined in Arvados class.
#' jobs.update is a method defined in Arvados class.
#' @usage arv$jobs.update(job, uuid)
#' @param job Job object.
#' @param uuid The UUID of the Job in question.
#' @usage arv$jobs.update(job, uuid)
#' @param job Job object.
#' @param uuid The UUID of the Job in question.
#' jobs.delete is a method defined in Arvados class.
#' jobs.delete is a method defined in Arvados class.
#' @usage arv$jobs.delete(uuid)
#' @param uuid The UUID of the Job in question.
#' @return Job object.
#' @usage arv$jobs.delete(uuid)
#' @param uuid The UUID of the Job in question.
#' @return Job object.
#' jobs.queue is a method defined in Arvados class.
#' jobs.queue is a method defined in Arvados class.
#' @usage arv$jobs.queue(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$jobs.queue(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return Job object.
#' @name jobs.queue
NULL
#' jobs.queue_size
#' @return Job object.
#' @name jobs.queue
NULL
#' jobs.queue_size
#' jobs.queue_size is a method defined in Arvados class.
#' jobs.queue_size is a method defined in Arvados class.
#' @usage arv$jobs.queue_size(NULL)
#' @return Job object.
#' @name jobs.queue_size
NULL
#' jobs.cancel
#' @usage arv$jobs.queue_size(NULL)
#' @return Job object.
#' @name jobs.queue_size
NULL
#' jobs.cancel
#' jobs.cancel is a method defined in Arvados class.
#' jobs.cancel is a method defined in Arvados class.
#' @usage arv$jobs.cancel(uuid)
#' @usage arv$jobs.cancel(uuid)
#' @return Job object.
#' @name jobs.cancel
NULL
#' jobs.lock
#' @return Job object.
#' @name jobs.cancel
NULL
#' jobs.lock
#' jobs.lock is a method defined in Arvados class.
#' jobs.lock is a method defined in Arvados class.
#' @usage arv$jobs.lock(uuid)
#' @usage arv$jobs.lock(uuid)
#' @return Job object.
#' @name jobs.lock
NULL
#' jobs.list
#' @return Job object.
#' @name jobs.lock
NULL
#' jobs.list
#' jobs.list is a method defined in Arvados class.
#' jobs.list is a method defined in Arvados class.
#' @usage arv$jobs.list(filters = NULL, where = NULL,
#' order = NULL, select = NULL, distinct = NULL,
#' limit = "100", offset = "0", count = "exact")
#' @usage arv$jobs.list(filters = NULL, where = NULL,
#' order = NULL, select = NULL, distinct = NULL,
#' limit = "100", offset = "0", count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return JobList object.
#' @name jobs.list
NULL
#' keep_disks.get
#' @return JobList object.
#' @name jobs.list
NULL
#' keep_disks.get
#' keep_disks.get is a method defined in Arvados class.
#' keep_disks.get is a method defined in Arvados class.
#' @usage arv$keep_disks.get(uuid)
#' @param uuid The UUID of the KeepDisk in question.
#' @return KeepDisk object.
#' @usage arv$keep_disks.get(uuid)
#' @param uuid The UUID of the KeepDisk in question.
#' @return KeepDisk object.
NULL
#' keep_disks.create
NULL
#' keep_disks.create
#' keep_disks.create is a method defined in Arvados class.
#' keep_disks.create is a method defined in Arvados class.
#' @usage arv$keep_disks.create(keepdisk,
#' ensure_unique_name = "false")
#' @param keepDisk KeepDisk object.
#' @usage arv$keep_disks.create(keepdisk,
#' ensure_unique_name = "false")
#' @param keepDisk KeepDisk object.
NULL
#' keep_disks.update
NULL
#' keep_disks.update
#' keep_disks.update is a method defined in Arvados class.
#' keep_disks.update is a method defined in Arvados class.
#' @usage arv$keep_disks.update(keepdisk,
#' uuid)
#' @param keepDisk KeepDisk object.
#' @usage arv$keep_disks.update(keepdisk,
#' uuid)
#' @param keepDisk KeepDisk object.
NULL
#' keep_disks.delete
NULL
#' keep_disks.delete
#' keep_disks.delete is a method defined in Arvados class.
#' keep_disks.delete is a method defined in Arvados class.
#' @usage arv$keep_disks.delete(uuid)
#' @param uuid The UUID of the KeepDisk in question.
#' @return KeepDisk object.
#' @usage arv$keep_disks.delete(uuid)
#' @param uuid The UUID of the KeepDisk in question.
#' @return KeepDisk object.
#' keep_disks.ping is a method defined in Arvados class.
#' keep_disks.ping is a method defined in Arvados class.
#' @usage arv$keep_disks.ping(uuid = NULL,
#' ping_secret, node_uuid = NULL, filesystem_uuid = NULL,
#' service_host = NULL, service_port, service_ssl_flag)
#' @usage arv$keep_disks.ping(uuid = NULL,
#' ping_secret, node_uuid = NULL, filesystem_uuid = NULL,
#' service_host = NULL, service_port, service_ssl_flag)
-#' @param uuid
-#' @param ping_secret
-#' @param node_uuid
-#' @param filesystem_uuid
-#' @param service_host
-#' @param service_port
-#' @param service_ssl_flag
+#' @param uuid
+#' @param ping_secret
+#' @param node_uuid
+#' @param filesystem_uuid
+#' @param service_host
+#' @param service_port
+#' @param service_ssl_flag
#' @return KeepDisk object.
#' @name keep_disks.ping
NULL
#' keep_disks.list
#' @return KeepDisk object.
#' @name keep_disks.ping
NULL
#' keep_disks.list
#' keep_disks.list is a method defined in Arvados class.
#' keep_disks.list is a method defined in Arvados class.
#' @usage arv$keep_disks.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$keep_disks.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return KeepDiskList object.
#' @name keep_disks.list
NULL
#' keep_services.get
#' @return KeepDiskList object.
#' @name keep_disks.list
NULL
#' keep_services.get
#' keep_services.get is a method defined in Arvados class.
#' keep_services.get is a method defined in Arvados class.
#' @usage arv$keep_services.get(uuid)
#' @param uuid The UUID of the KeepService in question.
#' @return KeepService object.
#' @usage arv$keep_services.get(uuid)
#' @param uuid The UUID of the KeepService in question.
#' @return KeepService object.
NULL
#' keep_services.create
NULL
#' keep_services.create
#' keep_services.create is a method defined in Arvados class.
#' keep_services.create is a method defined in Arvados class.
#' @usage arv$keep_services.create(keepservice,
#' ensure_unique_name = "false")
#' @param keepService KeepService object.
#' @usage arv$keep_services.create(keepservice,
#' ensure_unique_name = "false")
#' @param keepService KeepService object.
NULL
#' keep_services.update
NULL
#' keep_services.update
#' keep_services.update is a method defined in Arvados class.
#' keep_services.update is a method defined in Arvados class.
#' @usage arv$keep_services.update(keepservice,
#' uuid)
#' @param keepService KeepService object.
#' @usage arv$keep_services.update(keepservice,
#' uuid)
#' @param keepService KeepService object.
NULL
#' keep_services.delete
NULL
#' keep_services.delete
#' keep_services.delete is a method defined in Arvados class.
#' keep_services.delete is a method defined in Arvados class.
#' @usage arv$keep_services.delete(uuid)
#' @param uuid The UUID of the KeepService in question.
#' @return KeepService object.
#' @usage arv$keep_services.delete(uuid)
#' @param uuid The UUID of the KeepService in question.
#' @return KeepService object.
NULL
#' keep_services.accessible
NULL
#' keep_services.accessible
#' keep_services.accessible is a method defined in Arvados class.
#' keep_services.accessible is a method defined in Arvados class.
#' @usage arv$keep_services.accessible(NULL)
#' @return KeepService object.
#' @name keep_services.accessible
NULL
#' keep_services.list
#' @usage arv$keep_services.accessible(NULL)
#' @return KeepService object.
#' @name keep_services.accessible
NULL
#' keep_services.list
#' keep_services.list is a method defined in Arvados class.
#' keep_services.list is a method defined in Arvados class.
#' @usage arv$keep_services.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$keep_services.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return KeepServiceList object.
#' @name keep_services.list
NULL
#' pipeline_templates.get
#' @return KeepServiceList object.
#' @name keep_services.list
NULL
#' pipeline_templates.get
#' pipeline_templates.get is a method defined in Arvados class.
#' pipeline_templates.get is a method defined in Arvados class.
#' @usage arv$pipeline_templates.get(uuid)
#' @param uuid The UUID of the PipelineTemplate in question.
#' @return PipelineTemplate object.
#' @usage arv$pipeline_templates.get(uuid)
#' @param uuid The UUID of the PipelineTemplate in question.
#' @return PipelineTemplate object.
NULL
#' pipeline_templates.create
NULL
#' pipeline_templates.create
#' pipeline_templates.create is a method defined in Arvados class.
#' pipeline_templates.create is a method defined in Arvados class.
#' @usage arv$pipeline_templates.create(pipelinetemplate,
#' ensure_unique_name = "false")
#' @param pipelineTemplate PipelineTemplate object.
#' @usage arv$pipeline_templates.create(pipelinetemplate,
#' ensure_unique_name = "false")
#' @param pipelineTemplate PipelineTemplate object.
NULL
#' pipeline_templates.update
NULL
#' pipeline_templates.update
#' pipeline_templates.update is a method defined in Arvados class.
#' pipeline_templates.update is a method defined in Arvados class.
#' @usage arv$pipeline_templates.update(pipelinetemplate,
#' uuid)
#' @param pipelineTemplate PipelineTemplate object.
#' @usage arv$pipeline_templates.update(pipelinetemplate,
#' uuid)
#' @param pipelineTemplate PipelineTemplate object.
NULL
#' pipeline_templates.delete
NULL
#' pipeline_templates.delete
#' pipeline_templates.delete is a method defined in Arvados class.
#' pipeline_templates.delete is a method defined in Arvados class.
#' @usage arv$pipeline_templates.delete(uuid)
#' @param uuid The UUID of the PipelineTemplate in question.
#' @return PipelineTemplate object.
#' @usage arv$pipeline_templates.delete(uuid)
#' @param uuid The UUID of the PipelineTemplate in question.
#' @return PipelineTemplate object.
NULL
#' pipeline_templates.list
NULL
#' pipeline_templates.list
#' pipeline_templates.list is a method defined in Arvados class.
#' pipeline_templates.list is a method defined in Arvados class.
#' @usage arv$pipeline_templates.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$pipeline_templates.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return PipelineTemplateList object.
#' @name pipeline_templates.list
NULL
#' pipeline_instances.get
#' @return PipelineTemplateList object.
#' @name pipeline_templates.list
NULL
#' pipeline_instances.get
#' pipeline_instances.get is a method defined in Arvados class.
#' pipeline_instances.get is a method defined in Arvados class.
#' @usage arv$pipeline_instances.get(uuid)
#' @param uuid The UUID of the PipelineInstance in question.
#' @return PipelineInstance object.
#' @usage arv$pipeline_instances.get(uuid)
#' @param uuid The UUID of the PipelineInstance in question.
#' @return PipelineInstance object.
NULL
#' pipeline_instances.create
NULL
#' pipeline_instances.create
#' pipeline_instances.create is a method defined in Arvados class.
#' pipeline_instances.create is a method defined in Arvados class.
#' @usage arv$pipeline_instances.create(pipelineinstance,
#' ensure_unique_name = "false")
#' @param pipelineInstance PipelineInstance object.
#' @usage arv$pipeline_instances.create(pipelineinstance,
#' ensure_unique_name = "false")
#' @param pipelineInstance PipelineInstance object.
NULL
#' pipeline_instances.update
NULL
#' pipeline_instances.update
#' pipeline_instances.update is a method defined in Arvados class.
#' pipeline_instances.update is a method defined in Arvados class.
#' @usage arv$pipeline_instances.update(pipelineinstance,
#' uuid)
#' @param pipelineInstance PipelineInstance object.
#' @usage arv$pipeline_instances.update(pipelineinstance,
#' uuid)
#' @param pipelineInstance PipelineInstance object.
NULL
#' pipeline_instances.delete
NULL
#' pipeline_instances.delete
#' pipeline_instances.delete is a method defined in Arvados class.
#' pipeline_instances.delete is a method defined in Arvados class.
#' @usage arv$pipeline_instances.delete(uuid)
#' @param uuid The UUID of the PipelineInstance in question.
#' @return PipelineInstance object.
#' @usage arv$pipeline_instances.delete(uuid)
#' @param uuid The UUID of the PipelineInstance in question.
#' @return PipelineInstance object.
NULL
#' pipeline_instances.cancel
NULL
#' pipeline_instances.cancel
#' pipeline_instances.cancel is a method defined in Arvados class.
#' pipeline_instances.cancel is a method defined in Arvados class.
#' @usage arv$pipeline_instances.cancel(uuid)
#' @usage arv$pipeline_instances.cancel(uuid)
#' @return PipelineInstance object.
#' @name pipeline_instances.cancel
NULL
#' pipeline_instances.list
#' @return PipelineInstance object.
#' @name pipeline_instances.cancel
NULL
#' pipeline_instances.list
#' pipeline_instances.list is a method defined in Arvados class.
#' pipeline_instances.list is a method defined in Arvados class.
#' @usage arv$pipeline_instances.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$pipeline_instances.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return PipelineInstanceList object.
#' @name pipeline_instances.list
NULL
#' nodes.get
#' @return PipelineInstanceList object.
#' @name pipeline_instances.list
NULL
#' nodes.get
#' nodes.get is a method defined in Arvados class.
#' nodes.get is a method defined in Arvados class.
#' @usage arv$nodes.get(uuid)
#' @param uuid The UUID of the Node in question.
#' @return Node object.
#' @usage arv$nodes.get(uuid)
#' @param uuid The UUID of the Node in question.
#' @return Node object.
#' nodes.create is a method defined in Arvados class.
#' nodes.create is a method defined in Arvados class.
#' @usage arv$nodes.create(node, ensure_unique_name = "false",
#' assign_slot = NULL)
#' @param node Node object.
#' @usage arv$nodes.create(node, ensure_unique_name = "false",
#' assign_slot = NULL)
#' @param node Node object.
#' nodes.update is a method defined in Arvados class.
#' nodes.update is a method defined in Arvados class.
#' @usage arv$nodes.update(node, uuid, assign_slot = NULL)
#' @param node Node object.
#' @param uuid The UUID of the Node in question.
#' @usage arv$nodes.update(node, uuid, assign_slot = NULL)
#' @param node Node object.
#' @param uuid The UUID of the Node in question.
#' nodes.delete is a method defined in Arvados class.
#' nodes.delete is a method defined in Arvados class.
#' @usage arv$nodes.delete(uuid)
#' @param uuid The UUID of the Node in question.
#' @return Node object.
#' @usage arv$nodes.delete(uuid)
#' @param uuid The UUID of the Node in question.
#' @return Node object.
#' nodes.ping is a method defined in Arvados class.
#' nodes.ping is a method defined in Arvados class.
#' @usage arv$nodes.ping(uuid, ping_secret)
#' @usage arv$nodes.ping(uuid, ping_secret)
-#' @param uuid
-#' @param ping_secret
+#' @param uuid
+#' @param ping_secret
#' @return Node object.
#' @name nodes.ping
NULL
#' nodes.list
#' @return Node object.
#' @name nodes.ping
NULL
#' nodes.list
#' nodes.list is a method defined in Arvados class.
#' nodes.list is a method defined in Arvados class.
#' @usage arv$nodes.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$nodes.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return NodeList object.
#' @name nodes.list
NULL
#' repositories.get
#' @return NodeList object.
#' @name nodes.list
NULL
#' repositories.get
#' repositories.get is a method defined in Arvados class.
#' repositories.get is a method defined in Arvados class.
#' @usage arv$repositories.get(uuid)
#' @param uuid The UUID of the Repository in question.
#' @return Repository object.
#' @usage arv$repositories.get(uuid)
#' @param uuid The UUID of the Repository in question.
#' @return Repository object.
NULL
#' repositories.create
NULL
#' repositories.create
#' repositories.create is a method defined in Arvados class.
#' repositories.create is a method defined in Arvados class.
#' @usage arv$repositories.create(repository,
#' ensure_unique_name = "false")
#' @param repository Repository object.
#' @usage arv$repositories.create(repository,
#' ensure_unique_name = "false")
#' @param repository Repository object.
NULL
#' repositories.update
NULL
#' repositories.update
#' repositories.update is a method defined in Arvados class.
#' repositories.update is a method defined in Arvados class.
#' @usage arv$repositories.update(repository,
#' uuid)
#' @param repository Repository object.
#' @usage arv$repositories.update(repository,
#' uuid)
#' @param repository Repository object.
NULL
#' repositories.delete
NULL
#' repositories.delete
#' repositories.delete is a method defined in Arvados class.
#' repositories.delete is a method defined in Arvados class.
#' @usage arv$repositories.delete(uuid)
#' @param uuid The UUID of the Repository in question.
#' @return Repository object.
#' @usage arv$repositories.delete(uuid)
#' @param uuid The UUID of the Repository in question.
#' @return Repository object.
NULL
#' repositories.get_all_permissions
NULL
#' repositories.get_all_permissions
#' repositories.get_all_permissions is a method defined in Arvados class.
#' repositories.get_all_permissions is a method defined in Arvados class.
#' @usage arv$repositories.get_all_permissions(NULL)
#' @return Repository object.
#' @name repositories.get_all_permissions
NULL
#' repositories.list
#' @usage arv$repositories.get_all_permissions(NULL)
#' @return Repository object.
#' @name repositories.get_all_permissions
NULL
#' repositories.list
#' repositories.list is a method defined in Arvados class.
#' repositories.list is a method defined in Arvados class.
#' @usage arv$repositories.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$repositories.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return RepositoryList object.
#' @name repositories.list
NULL
#' specimens.get
#' @return RepositoryList object.
#' @name repositories.list
NULL
#' specimens.get
#' specimens.get is a method defined in Arvados class.
#' specimens.get is a method defined in Arvados class.
#' @usage arv$specimens.get(uuid)
#' @param uuid The UUID of the Specimen in question.
#' @return Specimen object.
#' @usage arv$specimens.get(uuid)
#' @param uuid The UUID of the Specimen in question.
#' @return Specimen object.
#' specimens.create is a method defined in Arvados class.
#' specimens.create is a method defined in Arvados class.
#' @usage arv$specimens.create(specimen,
#' ensure_unique_name = "false")
#' @param specimen Specimen object.
#' @usage arv$specimens.create(specimen,
#' ensure_unique_name = "false")
#' @param specimen Specimen object.
#' specimens.update is a method defined in Arvados class.
#' specimens.update is a method defined in Arvados class.
#' @usage arv$specimens.update(specimen,
#' uuid)
#' @param specimen Specimen object.
#' @usage arv$specimens.update(specimen,
#' uuid)
#' @param specimen Specimen object.
#' specimens.delete is a method defined in Arvados class.
#' specimens.delete is a method defined in Arvados class.
#' @usage arv$specimens.delete(uuid)
#' @param uuid The UUID of the Specimen in question.
#' @return Specimen object.
#' @usage arv$specimens.delete(uuid)
#' @param uuid The UUID of the Specimen in question.
#' @return Specimen object.
#' specimens.list is a method defined in Arvados class.
#' specimens.list is a method defined in Arvados class.
#' @usage arv$specimens.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$specimens.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return SpecimenList object.
#' @name specimens.list
NULL
#' logs.get
#' @return SpecimenList object.
#' @name specimens.list
NULL
#' logs.get
#' logs.get is a method defined in Arvados class.
#' logs.get is a method defined in Arvados class.
#' @usage arv$logs.get(uuid)
#' @param uuid The UUID of the Log in question.
#' @return Log object.
#' @usage arv$logs.get(uuid)
#' @param uuid The UUID of the Log in question.
#' @return Log object.
#' logs.create is a method defined in Arvados class.
#' logs.create is a method defined in Arvados class.
#' @usage arv$logs.create(log, ensure_unique_name = "false")
#' @param log Log object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' @usage arv$logs.create(log, ensure_unique_name = "false")
#' @param log Log object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' logs.update is a method defined in Arvados class.
#' logs.update is a method defined in Arvados class.
#' @usage arv$logs.update(log, uuid)
#' @param log Log object.
#' @param uuid The UUID of the Log in question.
#' @usage arv$logs.update(log, uuid)
#' @param log Log object.
#' @param uuid The UUID of the Log in question.
#' logs.delete is a method defined in Arvados class.
#' logs.delete is a method defined in Arvados class.
#' @usage arv$logs.delete(uuid)
#' @param uuid The UUID of the Log in question.
#' @return Log object.
#' @usage arv$logs.delete(uuid)
#' @param uuid The UUID of the Log in question.
#' @return Log object.
#' logs.list is a method defined in Arvados class.
#' logs.list is a method defined in Arvados class.
#' @usage arv$logs.list(filters = NULL, where = NULL,
#' order = NULL, select = NULL, distinct = NULL,
#' limit = "100", offset = "0", count = "exact")
#' @usage arv$logs.list(filters = NULL, where = NULL,
#' order = NULL, select = NULL, distinct = NULL,
#' limit = "100", offset = "0", count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return LogList object.
#' @name logs.list
NULL
#' traits.get
#' @return LogList object.
#' @name logs.list
NULL
#' traits.get
#' traits.get is a method defined in Arvados class.
#' traits.get is a method defined in Arvados class.
#' @usage arv$traits.get(uuid)
#' @param uuid The UUID of the Trait in question.
#' @return Trait object.
#' @usage arv$traits.get(uuid)
#' @param uuid The UUID of the Trait in question.
#' @return Trait object.
#' traits.create is a method defined in Arvados class.
#' traits.create is a method defined in Arvados class.
#' @usage arv$traits.create(trait, ensure_unique_name = "false")
#' @param trait Trait object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' @usage arv$traits.create(trait, ensure_unique_name = "false")
#' @param trait Trait object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' traits.update is a method defined in Arvados class.
#' traits.update is a method defined in Arvados class.
#' @usage arv$traits.update(trait, uuid)
#' @param trait Trait object.
#' @param uuid The UUID of the Trait in question.
#' @usage arv$traits.update(trait, uuid)
#' @param trait Trait object.
#' @param uuid The UUID of the Trait in question.
#' traits.delete is a method defined in Arvados class.
#' traits.delete is a method defined in Arvados class.
#' @usage arv$traits.delete(uuid)
#' @param uuid The UUID of the Trait in question.
#' @return Trait object.
#' @usage arv$traits.delete(uuid)
#' @param uuid The UUID of the Trait in question.
#' @return Trait object.
#' traits.list is a method defined in Arvados class.
#' traits.list is a method defined in Arvados class.
#' @usage arv$traits.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$traits.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return TraitList object.
#' @name traits.list
NULL
#' virtual_machines.get
#' @return TraitList object.
#' @name traits.list
NULL
#' virtual_machines.get
#' virtual_machines.get is a method defined in Arvados class.
#' virtual_machines.get is a method defined in Arvados class.
#' @usage arv$virtual_machines.get(uuid)
#' @param uuid The UUID of the VirtualMachine in question.
#' @return VirtualMachine object.
#' @usage arv$virtual_machines.get(uuid)
#' @param uuid The UUID of the VirtualMachine in question.
#' @return VirtualMachine object.
NULL
#' virtual_machines.create
NULL
#' virtual_machines.create
#' virtual_machines.create is a method defined in Arvados class.
#' virtual_machines.create is a method defined in Arvados class.
#' @usage arv$virtual_machines.create(virtualmachine,
#' ensure_unique_name = "false")
#' @param virtualMachine VirtualMachine object.
#' @usage arv$virtual_machines.create(virtualmachine,
#' ensure_unique_name = "false")
#' @param virtualMachine VirtualMachine object.
NULL
#' virtual_machines.update
NULL
#' virtual_machines.update
#' virtual_machines.update is a method defined in Arvados class.
#' virtual_machines.update is a method defined in Arvados class.
#' @usage arv$virtual_machines.update(virtualmachine,
#' uuid)
#' @param virtualMachine VirtualMachine object.
#' @usage arv$virtual_machines.update(virtualmachine,
#' uuid)
#' @param virtualMachine VirtualMachine object.
NULL
#' virtual_machines.delete
NULL
#' virtual_machines.delete
#' virtual_machines.delete is a method defined in Arvados class.
#' virtual_machines.delete is a method defined in Arvados class.
#' @usage arv$virtual_machines.delete(uuid)
#' @param uuid The UUID of the VirtualMachine in question.
#' @return VirtualMachine object.
#' @usage arv$virtual_machines.delete(uuid)
#' @param uuid The UUID of the VirtualMachine in question.
#' @return VirtualMachine object.
NULL
#' virtual_machines.logins
NULL
#' virtual_machines.logins
#' virtual_machines.logins is a method defined in Arvados class.
#' virtual_machines.logins is a method defined in Arvados class.
#' @usage arv$virtual_machines.logins(uuid)
#' @usage arv$virtual_machines.logins(uuid)
#' @return VirtualMachine object.
#' @name virtual_machines.logins
NULL
#' virtual_machines.get_all_logins
#' @return VirtualMachine object.
#' @name virtual_machines.logins
NULL
#' virtual_machines.get_all_logins
#' virtual_machines.get_all_logins is a method defined in Arvados class.
#' virtual_machines.get_all_logins is a method defined in Arvados class.
#' @usage arv$virtual_machines.get_all_logins(NULL)
#' @return VirtualMachine object.
#' @name virtual_machines.get_all_logins
NULL
#' virtual_machines.list
#' @usage arv$virtual_machines.get_all_logins(NULL)
#' @return VirtualMachine object.
#' @name virtual_machines.get_all_logins
NULL
#' virtual_machines.list
#' virtual_machines.list is a method defined in Arvados class.
#' virtual_machines.list is a method defined in Arvados class.
#' @usage arv$virtual_machines.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$virtual_machines.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return VirtualMachineList object.
#' @name virtual_machines.list
NULL
#' workflows.get
#' @return VirtualMachineList object.
#' @name virtual_machines.list
NULL
#' workflows.get
#' workflows.get is a method defined in Arvados class.
#' workflows.get is a method defined in Arvados class.
#' @usage arv$workflows.get(uuid)
#' @param uuid The UUID of the Workflow in question.
#' @return Workflow object.
#' @usage arv$workflows.get(uuid)
#' @param uuid The UUID of the Workflow in question.
#' @return Workflow object.
#' workflows.create is a method defined in Arvados class.
#' workflows.create is a method defined in Arvados class.
#' @usage arv$workflows.create(workflow,
#' ensure_unique_name = "false")
#' @param workflow Workflow object.
#' @usage arv$workflows.create(workflow,
#' ensure_unique_name = "false")
#' @param workflow Workflow object.
#' workflows.update is a method defined in Arvados class.
#' workflows.update is a method defined in Arvados class.
#' @usage arv$workflows.update(workflow,
#' uuid)
#' @param workflow Workflow object.
#' @usage arv$workflows.update(workflow,
#' uuid)
#' @param workflow Workflow object.
#' workflows.delete is a method defined in Arvados class.
#' workflows.delete is a method defined in Arvados class.
#' @usage arv$workflows.delete(uuid)
#' @param uuid The UUID of the Workflow in question.
#' @return Workflow object.
#' @usage arv$workflows.delete(uuid)
#' @param uuid The UUID of the Workflow in question.
#' @return Workflow object.
#' workflows.list is a method defined in Arvados class.
#' workflows.list is a method defined in Arvados class.
#' @usage arv$workflows.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$workflows.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return WorkflowList object.
#' @name workflows.list
NULL
#' groups.get
#' @return WorkflowList object.
#' @name workflows.list
NULL
#' groups.get
#' groups.get is a method defined in Arvados class.
#' groups.get is a method defined in Arvados class.
#' @usage arv$groups.get(uuid)
#' @param uuid The UUID of the Group in question.
#' @return Group object.
#' @usage arv$groups.get(uuid)
#' @param uuid The UUID of the Group in question.
#' @return Group object.
#' groups.create is a method defined in Arvados class.
#' groups.create is a method defined in Arvados class.
#' @usage arv$groups.create(group, ensure_unique_name = "false")
#' @param group Group object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' @usage arv$groups.create(group, ensure_unique_name = "false")
#' @param group Group object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' groups.update is a method defined in Arvados class.
#' groups.update is a method defined in Arvados class.
#' @usage arv$groups.update(group, uuid)
#' @param group Group object.
#' @param uuid The UUID of the Group in question.
#' @usage arv$groups.update(group, uuid)
#' @param group Group object.
#' @param uuid The UUID of the Group in question.
#' groups.delete is a method defined in Arvados class.
#' groups.delete is a method defined in Arvados class.
#' @usage arv$groups.delete(uuid)
#' @param uuid The UUID of the Group in question.
#' @return Group object.
#' @usage arv$groups.delete(uuid)
#' @param uuid The UUID of the Group in question.
#' @return Group object.
#' groups.contents is a method defined in Arvados class.
#' groups.contents is a method defined in Arvados class.
#' @usage arv$groups.contents(filters = NULL,
#' where = NULL, order = NULL, distinct = NULL,
#' limit = "100", offset = "0", count = "exact",
#' include_trash = NULL, uuid = NULL, recursive = NULL)
#' @usage arv$groups.contents(filters = NULL,
#' where = NULL, order = NULL, distinct = NULL,
#' limit = "100", offset = "0", count = "exact",
#' include_trash = NULL, uuid = NULL, recursive = NULL)
-#' @param filters
-#' @param where
-#' @param order
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @param include_trash Include items whose is_trashed attribute is true.
#' @param include_trash Include items whose is_trashed attribute is true.
#' @param recursive Include contents from child groups recursively.
#' @return Group object.
#' @name groups.contents
NULL
#' groups.trash
#' @param recursive Include contents from child groups recursively.
#' @return Group object.
#' @name groups.contents
NULL
#' groups.trash
#' groups.trash is a method defined in Arvados class.
#' groups.trash is a method defined in Arvados class.
#' @usage arv$groups.trash(uuid)
#' @usage arv$groups.trash(uuid)
#' @return Group object.
#' @name groups.trash
NULL
#' groups.untrash
#' @return Group object.
#' @name groups.trash
NULL
#' groups.untrash
#' groups.untrash is a method defined in Arvados class.
#' groups.untrash is a method defined in Arvados class.
#' @usage arv$groups.untrash(uuid)
#' @usage arv$groups.untrash(uuid)
#' @return Group object.
#' @name groups.untrash
NULL
#' groups.list
#' @return Group object.
#' @name groups.untrash
NULL
#' groups.list
#' groups.list is a method defined in Arvados class.
#' groups.list is a method defined in Arvados class.
#' @usage arv$groups.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact", include_trash = NULL)
#' @usage arv$groups.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact", include_trash = NULL)
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @param include_trash Include items whose is_trashed attribute is true.
#' @return GroupList object.
#' @name groups.list
NULL
#' user_agreements.get
#' @param include_trash Include items whose is_trashed attribute is true.
#' @return GroupList object.
#' @name groups.list
NULL
#' user_agreements.get
#' user_agreements.get is a method defined in Arvados class.
#' user_agreements.get is a method defined in Arvados class.
#' @usage arv$user_agreements.get(uuid)
#' @param uuid The UUID of the UserAgreement in question.
#' @return UserAgreement object.
#' @usage arv$user_agreements.get(uuid)
#' @param uuid The UUID of the UserAgreement in question.
#' @return UserAgreement object.
NULL
#' user_agreements.create
NULL
#' user_agreements.create
#' user_agreements.create is a method defined in Arvados class.
#' user_agreements.create is a method defined in Arvados class.
#' @usage arv$user_agreements.create(useragreement,
#' ensure_unique_name = "false")
#' @param userAgreement UserAgreement object.
#' @usage arv$user_agreements.create(useragreement,
#' ensure_unique_name = "false")
#' @param userAgreement UserAgreement object.
NULL
#' user_agreements.update
NULL
#' user_agreements.update
#' user_agreements.update is a method defined in Arvados class.
#' user_agreements.update is a method defined in Arvados class.
#' @usage arv$user_agreements.update(useragreement,
#' uuid)
#' @param userAgreement UserAgreement object.
#' @usage arv$user_agreements.update(useragreement,
#' uuid)
#' @param userAgreement UserAgreement object.
NULL
#' user_agreements.delete
NULL
#' user_agreements.delete
#' user_agreements.delete is a method defined in Arvados class.
#' user_agreements.delete is a method defined in Arvados class.
#' @usage arv$user_agreements.delete(uuid)
#' @param uuid The UUID of the UserAgreement in question.
#' @return UserAgreement object.
#' @usage arv$user_agreements.delete(uuid)
#' @param uuid The UUID of the UserAgreement in question.
#' @return UserAgreement object.
NULL
#' user_agreements.signatures
NULL
#' user_agreements.signatures
#' user_agreements.signatures is a method defined in Arvados class.
#' user_agreements.signatures is a method defined in Arvados class.
#' @usage arv$user_agreements.signatures(NULL)
#' @return UserAgreement object.
#' @name user_agreements.signatures
NULL
#' user_agreements.sign
#' @usage arv$user_agreements.signatures(NULL)
#' @return UserAgreement object.
#' @name user_agreements.signatures
NULL
#' user_agreements.sign
#' user_agreements.sign is a method defined in Arvados class.
#' user_agreements.sign is a method defined in Arvados class.
#' @usage arv$user_agreements.sign(NULL)
#' @return UserAgreement object.
#' @name user_agreements.sign
NULL
#' user_agreements.list
#' @usage arv$user_agreements.sign(NULL)
#' @return UserAgreement object.
#' @name user_agreements.sign
NULL
#' user_agreements.list
#' user_agreements.list is a method defined in Arvados class.
#' user_agreements.list is a method defined in Arvados class.
#' @usage arv$user_agreements.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
#' @usage arv$user_agreements.list(filters = NULL,
#' where = NULL, order = NULL, select = NULL,
#' distinct = NULL, limit = "100", offset = "0",
#' count = "exact")
-#' @param filters
-#' @param where
-#' @param order
-#' @param select
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param select
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @return UserAgreementList object.
#' @name user_agreements.list
NULL
#' user_agreements.new
#' @return UserAgreementList object.
#' @name user_agreements.list
NULL
#' user_agreements.new
#' user_agreements.new is a method defined in Arvados class.
#' user_agreements.new is a method defined in Arvados class.
#' @usage arv$user_agreements.new(NULL)
#' @return UserAgreement object.
#' @name user_agreements.new
NULL
#' project.get
#' @usage arv$user_agreements.new(NULL)
#' @return UserAgreement object.
#' @name user_agreements.new
NULL
#' project.get
#' projects.get is equivalent to groups.get method.
#' projects.get is equivalent to groups.get method.
#' @usage arv$projects.get(uuid)
#' @param uuid The UUID of the Group in question.
#' @return Group object.
#' @usage arv$projects.get(uuid)
#' @param uuid The UUID of the Group in question.
#' @return Group object.
#' projects.create wrapps groups.create method by setting group_class attribute to "project".
#' projects.create wrapps groups.create method by setting group_class attribute to "project".
#' @usage arv$projects.create(group, ensure_unique_name = "false")
#' @param group Group object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' @usage arv$projects.create(group, ensure_unique_name = "false")
#' @param group Group object.
#' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
#' projects.update wrapps groups.update method by setting group_class attribute to "project".
#' projects.update wrapps groups.update method by setting group_class attribute to "project".
#' @usage arv$projects.update(group, uuid)
#' @param group Group object.
#' @param uuid The UUID of the Group in question.
#' @usage arv$projects.update(group, uuid)
#' @param group Group object.
#' @param uuid The UUID of the Group in question.
#' projects.delete is equivalent to groups.delete method.
#' projects.delete is equivalent to groups.delete method.
#' @usage arv$project.delete(uuid)
#' @param uuid The UUID of the Group in question.
#' @return Group object.
#' @usage arv$project.delete(uuid)
#' @param uuid The UUID of the Group in question.
#' @return Group object.
#' projects.list wrapps groups.list method by setting group_class attribute to "project".
#' projects.list wrapps groups.list method by setting group_class attribute to "project".
#' @usage arv$projects.list(filters = NULL,
#' where = NULL, order = NULL, distinct = NULL,
#' limit = "100", offset = "0", count = "exact",
#' include_trash = NULL, uuid = NULL, recursive = NULL)
#' @usage arv$projects.list(filters = NULL,
#' where = NULL, order = NULL, distinct = NULL,
#' limit = "100", offset = "0", count = "exact",
#' include_trash = NULL, uuid = NULL, recursive = NULL)
-#' @param filters
-#' @param where
-#' @param order
-#' @param distinct
-#' @param limit
-#' @param offset
-#' @param count
+#' @param filters
+#' @param where
+#' @param order
+#' @param distinct
+#' @param limit
+#' @param offset
+#' @param count
#' @param include_trash Include items whose is_trashed attribute is true.
#' @param include_trash Include items whose is_trashed attribute is true.
#' @param recursive Include contents from child groups recursively.
#' @return Group object.
#' @name projects.list
#' @param recursive Include contents from child groups recursively.
#' @return Group object.
#' @name projects.list
{
endPoint <- stringr::str_interp("users/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("users/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("users")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("users")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- jsonlite::toJSON(list(user = user),
+ body <- jsonlite::toJSON(list(user = user),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("users/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("users/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
- body <- jsonlite::toJSON(list(user = user),
+ body <- jsonlite::toJSON(list(user = user),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("users/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("users/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("users/current")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("users/current")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("users/system")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("users/system")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("users/${uuid}/activate")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("users/${uuid}/activate")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("users/setup")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("users/setup")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(user = user, openid_prefix = openid_prefix,
repo_name = repo_name, vm_uuid = vm_uuid,
send_notification_email = send_notification_email)
"Content-Type" = "application/json")
queryArgs <- list(user = user, openid_prefix = openid_prefix,
repo_name = repo_name, vm_uuid = vm_uuid,
send_notification_email = send_notification_email)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("users/${uuid}/unsetup")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("users/${uuid}/unsetup")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("users/${uuid}/update_uuid")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("users/${uuid}/update_uuid")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(new_uuid = new_uuid)
"Content-Type" = "application/json")
queryArgs <- list(new_uuid = new_uuid)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("users")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("users")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("api_client_authorizations")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("api_client_authorizations")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
if(length(apiclientauthorization) > 0)
if(length(apiclientauthorization) > 0)
- body <- jsonlite::toJSON(list(apiclientauthorization = apiclientauthorization),
+ body <- jsonlite::toJSON(list(apiclientauthorization = apiclientauthorization),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
if(length(apiclientauthorization) > 0)
if(length(apiclientauthorization) > 0)
- body <- jsonlite::toJSON(list(apiclientauthorization = apiclientauthorization),
+ body <- jsonlite::toJSON(list(apiclientauthorization = apiclientauthorization),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("api_client_authorizations/create_system_auth")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("api_client_authorizations/create_system_auth")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(api_client_id = api_client_id,
scopes = scopes)
"Content-Type" = "application/json")
queryArgs <- list(api_client_id = api_client_id,
scopes = scopes)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("api_client_authorizations/current")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("api_client_authorizations/current")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("api_client_authorizations")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("api_client_authorizations")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("containers/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("containers/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("containers")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("containers")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
if(length(container) > 0)
if(length(container) > 0)
- body <- jsonlite::toJSON(list(container = container),
+ body <- jsonlite::toJSON(list(container = container),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("containers/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("containers/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
if(length(container) > 0)
if(length(container) > 0)
- body <- jsonlite::toJSON(list(container = container),
+ body <- jsonlite::toJSON(list(container = container),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("containers/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("containers/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("containers/${uuid}/auth")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("containers/${uuid}/auth")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("containers/${uuid}/lock")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("containers/${uuid}/lock")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("containers/${uuid}/unlock")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("containers/${uuid}/unlock")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("containers/${uuid}/secret_mounts")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("containers/${uuid}/secret_mounts")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("containers/current")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("containers/current")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("containers")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("containers")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("api_clients/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("api_clients/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("api_clients")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("api_clients")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
if(length(apiclient) > 0)
if(length(apiclient) > 0)
- body <- jsonlite::toJSON(list(apiclient = apiclient),
+ body <- jsonlite::toJSON(list(apiclient = apiclient),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("api_clients/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("api_clients/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
if(length(apiclient) > 0)
if(length(apiclient) > 0)
- body <- jsonlite::toJSON(list(apiclient = apiclient),
+ body <- jsonlite::toJSON(list(apiclient = apiclient),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("api_clients/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("api_clients/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("api_clients")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("api_clients")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("authorized_keys/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("authorized_keys/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("authorized_keys")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("authorized_keys")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
if(length(authorizedkey) > 0)
if(length(authorizedkey) > 0)
- body <- jsonlite::toJSON(list(authorizedkey = authorizedkey),
+ body <- jsonlite::toJSON(list(authorizedkey = authorizedkey),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("authorized_keys/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("authorized_keys/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
if(length(authorizedkey) > 0)
if(length(authorizedkey) > 0)
- body <- jsonlite::toJSON(list(authorizedkey = authorizedkey),
+ body <- jsonlite::toJSON(list(authorizedkey = authorizedkey),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("authorized_keys/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("authorized_keys/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("authorized_keys")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("authorized_keys")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("container_requests/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("container_requests/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("container_requests")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("container_requests")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
if(length(containerrequest) > 0)
if(length(containerrequest) > 0)
- body <- jsonlite::toJSON(list(containerrequest = containerrequest),
+ body <- jsonlite::toJSON(list(containerrequest = containerrequest),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("container_requests/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("container_requests/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
if(length(containerrequest) > 0)
if(length(containerrequest) > 0)
- body <- jsonlite::toJSON(list(containerrequest = containerrequest),
+ body <- jsonlite::toJSON(list(containerrequest = containerrequest),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("container_requests/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("container_requests/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("container_requests")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("container_requests")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("collections/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("collections/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("collections")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("collections")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
if(length(collection) > 0)
if(length(collection) > 0)
- body <- jsonlite::toJSON(list(collection = collection),
+ body <- jsonlite::toJSON(list(collection = collection),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("collections/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("collections/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
if(length(collection) > 0)
if(length(collection) > 0)
- body <- jsonlite::toJSON(list(collection = collection),
+ body <- jsonlite::toJSON(list(collection = collection),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("collections/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("collections/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("collections/${uuid}/provenance")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("collections/${uuid}/provenance")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("collections/${uuid}/used_by")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("collections/${uuid}/used_by")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("collections/${uuid}/trash")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("collections/${uuid}/trash")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("collections/${uuid}/untrash")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("collections/${uuid}/untrash")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("collections")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("collections")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count,
include_trash = include_trash)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count,
include_trash = include_trash)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("humans/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("humans/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("humans")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("humans")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- jsonlite::toJSON(list(human = human),
+ body <- jsonlite::toJSON(list(human = human),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("humans/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("humans/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
- body <- jsonlite::toJSON(list(human = human),
+ body <- jsonlite::toJSON(list(human = human),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("humans/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("humans/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("humans")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("humans")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("job_tasks/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("job_tasks/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("job_tasks")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("job_tasks")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- jsonlite::toJSON(list(jobtask = jobtask),
+ body <- jsonlite::toJSON(list(jobtask = jobtask),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("job_tasks/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("job_tasks/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
- body <- jsonlite::toJSON(list(jobtask = jobtask),
+ body <- jsonlite::toJSON(list(jobtask = jobtask),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("job_tasks/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("job_tasks/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("job_tasks")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("job_tasks")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("links/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("links/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("links")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("links")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- jsonlite::toJSON(list(link = link),
+ body <- jsonlite::toJSON(list(link = link),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("links/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("links/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
- body <- jsonlite::toJSON(list(link = link),
+ body <- jsonlite::toJSON(list(link = link),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("links/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("links/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("links")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("links")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("permissions/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("permissions/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("jobs/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("jobs/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("jobs")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("jobs")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name,
find_or_create = find_or_create, filters = filters,
minimum_script_version = minimum_script_version,
exclude_script_versions = exclude_script_versions)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name,
find_or_create = find_or_create, filters = filters,
minimum_script_version = minimum_script_version,
exclude_script_versions = exclude_script_versions)
- body <- jsonlite::toJSON(list(job = job),
+ body <- jsonlite::toJSON(list(job = job),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("jobs/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("jobs/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
- body <- jsonlite::toJSON(list(job = job),
+ body <- jsonlite::toJSON(list(job = job),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("jobs/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("jobs/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("jobs/queue")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("jobs/queue")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("jobs/queue_size")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("jobs/queue_size")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("jobs/${uuid}/cancel")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("jobs/${uuid}/cancel")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("jobs/${uuid}/lock")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("jobs/${uuid}/lock")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("jobs")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("jobs")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("keep_disks/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("keep_disks/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("keep_disks")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("keep_disks")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- jsonlite::toJSON(list(keepdisk = keepdisk),
+ body <- jsonlite::toJSON(list(keepdisk = keepdisk),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("keep_disks/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("keep_disks/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
- body <- jsonlite::toJSON(list(keepdisk = keepdisk),
+ body <- jsonlite::toJSON(list(keepdisk = keepdisk),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("keep_disks/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("keep_disks/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("keep_disks/ping")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("keep_disks/ping")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(uuid = uuid, ping_secret = ping_secret,
node_uuid = node_uuid, filesystem_uuid = filesystem_uuid,
service_host = service_host, service_port = service_port,
service_ssl_flag = service_ssl_flag)
"Content-Type" = "application/json")
queryArgs <- list(uuid = uuid, ping_secret = ping_secret,
node_uuid = node_uuid, filesystem_uuid = filesystem_uuid,
service_host = service_host, service_port = service_port,
service_ssl_flag = service_ssl_flag)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("keep_disks")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("keep_disks")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("keep_services/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("keep_services/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("keep_services")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("keep_services")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
if(length(keepservice) > 0)
if(length(keepservice) > 0)
- body <- jsonlite::toJSON(list(keepservice = keepservice),
+ body <- jsonlite::toJSON(list(keepservice = keepservice),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("keep_services/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("keep_services/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
if(length(keepservice) > 0)
if(length(keepservice) > 0)
- body <- jsonlite::toJSON(list(keepservice = keepservice),
+ body <- jsonlite::toJSON(list(keepservice = keepservice),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("keep_services/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("keep_services/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("keep_services/accessible")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("keep_services/accessible")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("keep_services")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("keep_services")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("pipeline_templates")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("pipeline_templates")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
if(length(pipelinetemplate) > 0)
if(length(pipelinetemplate) > 0)
- body <- jsonlite::toJSON(list(pipelinetemplate = pipelinetemplate),
+ body <- jsonlite::toJSON(list(pipelinetemplate = pipelinetemplate),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
if(length(pipelinetemplate) > 0)
if(length(pipelinetemplate) > 0)
- body <- jsonlite::toJSON(list(pipelinetemplate = pipelinetemplate),
+ body <- jsonlite::toJSON(list(pipelinetemplate = pipelinetemplate),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("pipeline_templates")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("pipeline_templates")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("pipeline_instances")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("pipeline_instances")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
if(length(pipelineinstance) > 0)
if(length(pipelineinstance) > 0)
- body <- jsonlite::toJSON(list(pipelineinstance = pipelineinstance),
+ body <- jsonlite::toJSON(list(pipelineinstance = pipelineinstance),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
if(length(pipelineinstance) > 0)
if(length(pipelineinstance) > 0)
- body <- jsonlite::toJSON(list(pipelineinstance = pipelineinstance),
+ body <- jsonlite::toJSON(list(pipelineinstance = pipelineinstance),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("pipeline_instances/${uuid}/cancel")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("pipeline_instances/${uuid}/cancel")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("pipeline_instances")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("pipeline_instances")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("nodes/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("nodes/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("nodes")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("nodes")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name,
assign_slot = assign_slot)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name,
assign_slot = assign_slot)
- body <- jsonlite::toJSON(list(node = node),
+ body <- jsonlite::toJSON(list(node = node),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("nodes/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("nodes/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(assign_slot = assign_slot)
"Content-Type" = "application/json")
queryArgs <- list(assign_slot = assign_slot)
- body <- jsonlite::toJSON(list(node = node),
+ body <- jsonlite::toJSON(list(node = node),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("nodes/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("nodes/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("nodes/${uuid}/ping")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("nodes/${uuid}/ping")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ping_secret = ping_secret)
"Content-Type" = "application/json")
queryArgs <- list(ping_secret = ping_secret)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("nodes")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("nodes")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("repositories/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("repositories/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("repositories")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("repositories")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
if(length(repository) > 0)
if(length(repository) > 0)
- body <- jsonlite::toJSON(list(repository = repository),
+ body <- jsonlite::toJSON(list(repository = repository),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("repositories/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("repositories/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
if(length(repository) > 0)
if(length(repository) > 0)
- body <- jsonlite::toJSON(list(repository = repository),
+ body <- jsonlite::toJSON(list(repository = repository),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("repositories/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("repositories/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("repositories/get_all_permissions")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("repositories/get_all_permissions")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("repositories")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("repositories")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("specimens/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("specimens/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("specimens")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("specimens")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- jsonlite::toJSON(list(specimen = specimen),
+ body <- jsonlite::toJSON(list(specimen = specimen),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("specimens/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("specimens/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
- body <- jsonlite::toJSON(list(specimen = specimen),
+ body <- jsonlite::toJSON(list(specimen = specimen),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("specimens/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("specimens/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("specimens")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("specimens")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("logs/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("logs/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("logs")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("logs")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- jsonlite::toJSON(list(log = log),
+ body <- jsonlite::toJSON(list(log = log),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("logs/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("logs/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
- body <- jsonlite::toJSON(list(log = log),
+ body <- jsonlite::toJSON(list(log = log),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("logs/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("logs/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("logs")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("logs")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("traits/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("traits/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("traits")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("traits")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- jsonlite::toJSON(list(trait = trait),
+ body <- jsonlite::toJSON(list(trait = trait),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("traits/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("traits/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
- body <- jsonlite::toJSON(list(trait = trait),
+ body <- jsonlite::toJSON(list(trait = trait),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("traits/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("traits/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("traits")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("traits")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("virtual_machines/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("virtual_machines/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("virtual_machines")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("virtual_machines")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
if(length(virtualmachine) > 0)
if(length(virtualmachine) > 0)
- body <- jsonlite::toJSON(list(virtualmachine = virtualmachine),
+ body <- jsonlite::toJSON(list(virtualmachine = virtualmachine),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("virtual_machines/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("virtual_machines/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
if(length(virtualmachine) > 0)
if(length(virtualmachine) > 0)
- body <- jsonlite::toJSON(list(virtualmachine = virtualmachine),
+ body <- jsonlite::toJSON(list(virtualmachine = virtualmachine),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("virtual_machines/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("virtual_machines/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("virtual_machines/${uuid}/logins")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("virtual_machines/${uuid}/logins")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("virtual_machines/get_all_logins")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("virtual_machines/get_all_logins")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("virtual_machines")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("virtual_machines")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("workflows/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("workflows/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("workflows")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("workflows")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- jsonlite::toJSON(list(workflow = workflow),
+ body <- jsonlite::toJSON(list(workflow = workflow),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("workflows/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("workflows/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
- body <- jsonlite::toJSON(list(workflow = workflow),
+ body <- jsonlite::toJSON(list(workflow = workflow),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("workflows/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("workflows/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("workflows")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("workflows")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("groups/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("groups/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("groups")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("groups")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
- body <- jsonlite::toJSON(list(group = group),
+ body <- jsonlite::toJSON(list(group = group),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("groups/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("groups/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
- body <- jsonlite::toJSON(list(group = group),
+ body <- jsonlite::toJSON(list(group = group),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("groups/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("groups/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("groups/contents")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("groups/contents")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, distinct = distinct, limit = limit,
offset = offset, count = count, include_trash = include_trash,
uuid = uuid, recursive = recursive)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, distinct = distinct, limit = limit,
offset = offset, count = count, include_trash = include_trash,
uuid = uuid, recursive = recursive)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("groups/${uuid}/trash")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("groups/${uuid}/trash")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("groups/${uuid}/untrash")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("groups/${uuid}/untrash")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("groups")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("groups")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count,
include_trash = include_trash)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count,
include_trash = include_trash)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("user_agreements/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("user_agreements/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("user_agreements")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("user_agreements")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
"Content-Type" = "application/json")
queryArgs <- list(ensure_unique_name = ensure_unique_name)
if(length(useragreement) > 0)
if(length(useragreement) > 0)
- body <- jsonlite::toJSON(list(useragreement = useragreement),
+ body <- jsonlite::toJSON(list(useragreement = useragreement),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("user_agreements/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("user_agreements/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
if(length(useragreement) > 0)
if(length(useragreement) > 0)
- body <- jsonlite::toJSON(list(useragreement = useragreement),
+ body <- jsonlite::toJSON(list(useragreement = useragreement),
auto_unbox = TRUE)
else
body <- NULL
auto_unbox = TRUE)
else
body <- NULL
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("PUT", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("user_agreements/${uuid}")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("user_agreements/${uuid}")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("DELETE", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("user_agreements/signatures")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("user_agreements/signatures")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("user_agreements/sign")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("user_agreements/sign")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("POST", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("user_agreements")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("user_agreements")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
"Content-Type" = "application/json")
queryArgs <- list(filters = filters, where = where,
order = order, select = select, distinct = distinct,
limit = limit, offset = offset, count = count)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
{
endPoint <- stringr::str_interp("user_agreements/new")
url <- paste0(private$host, endPoint)
{
endPoint <- stringr::str_interp("user_agreements/new")
url <- paste0(private$host, endPoint)
- headers <- list(Authorization = paste("OAuth2", private$token),
+ headers <- list(Authorization = paste("OAuth2", private$token),
"Content-Type" = "application/json")
queryArgs <- NULL
"Content-Type" = "application/json")
queryArgs <- NULL
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
response <- private$REST$http$exec("GET", url, headers, body,
queryArgs, private$numRetries)
resource <- private$REST$httpParser$parseJSONResponse(response)
if(!is.null(resource$errors))
stop(resource$errors)
if(!is.null(resource$errors))
stop(resource$errors)
source("./R/util.R")
#' ArvadosFile
source("./R/util.R")
#' ArvadosFile
#' ArvadosFile class represents a file inside Arvados collection.
#' ArvadosFile class represents a file inside Arvados collection.
#' @section Usage:
#' \preformatted{file = ArvadosFile$new(name)}
#'
#' @section Usage:
#' \preformatted{file = ArvadosFile$new(name)}
#'
#' \describe{
#' \item{name}{Name of the file.}
#' }
#' \describe{
#' \item{name}{Name of the file.}
#' }
#' @section Methods:
#' \describe{
#' \item{getName()}{Returns name of the file.}
#' @section Methods:
#' \describe{
#' \item{getName()}{Returns name of the file.}
#' myFile$write("This is new file content")
#' fileContent <- myFile$read()
#' fileContent <- myFile$read("text")
#' myFile$write("This is new file content")
#' fileContent <- myFile$read()
#' fileContent <- myFile$read("text")
-#' fileContent <- myFile$read("raw", offset = 8, length = 4)
+#' fileContent <- myFile$read("raw", offset = 8, length = 4)
#'
#' #Write a table:
#' arvConnection <- myFile$connection("w")
#'
#' #Write a table:
#' arvConnection <- myFile$connection("w")
connection = function(rw)
{
connection = function(rw)
{
- if (rw == "r" || rw == "rb")
+ if (rw == "r" || rw == "rb")
{
REST <- private$collection$getRESTService()
return(REST$getConnection(self$getRelativePath(),
private$collection$uuid,
rw))
}
{
REST <- private$collection$getRESTService()
return(REST$getConnection(self$getRelativePath(),
private$collection$uuid,
rw))
}
{
private$buffer <- textConnection(NULL, "w")
{
private$buffer <- textConnection(NULL, "w")
{
v <- textConnectionValue(private$buffer)
close(private$buffer)
{
v <- textConnectionValue(private$buffer)
close(private$buffer)
#'
#' @param x Instance of ArvadosFile class
#' @param ... Optional arguments.
#'
#' @param x Instance of ArvadosFile class
#' @param ... Optional arguments.
print.ArvadosFile = function(x, ...)
{
collection <- NULL
print.ArvadosFile = function(x, ...)
{
collection <- NULL
source("./R/util.R")
#' Collection
source("./R/util.R")
#' Collection
#' Collection class provides interface for working with Arvados collections.
#' Collection class provides interface for working with Arvados collections.
#' @section Usage:
#' \preformatted{collection = Collection$new(arv, uuid)}
#'
#' @section Usage:
#' \preformatted{collection = Collection$new(arv, uuid)}
#'
#' \item{arv}{Arvados object.}
#' \item{uuid}{UUID of a collection.}
#' }
#' \item{arv}{Arvados object.}
#' \item{uuid}{UUID of a collection.}
#' }
#' @section Methods:
#' \describe{
#' \item{add(content)}{Adds ArvadosFile or Subcollection specified by content to the collection.}
#' @section Methods:
#' \describe{
#' \item{add(content)}{Adds ArvadosFile or Subcollection specified by content to the collection.}
uuid = NULL,
# api = NULL,
uuid = NULL,
# api = NULL,
- initialize = function(api, uuid)
+ initialize = function(api, uuid)
{
# self$api <- api
private$REST <- api$getRESTService()
{
# self$api <- api
private$REST <- api$getRESTService()
- relativePath <- trimFromEnd(relativePath, "/")
+ relativePath <- trimFromEnd(relativePath, "/")
subcollection <- self$get(relativePath)
}
subcollection <- self$get(relativePath)
}
else
return(arvadosFiles)
}
else
return(arvadosFiles)
}
{
stop(paste0("Expected character vector, got ",
paste0("(", paste0(class(fileNames), collapse = ", "), ")"),
{
stop(paste0("Expected character vector, got ",
paste0("(", paste0(class(fileNames), collapse = ", "), ")"),
{
stop(paste0("Expected character vector, got ",
paste0("(", paste0(class(paths), collapse = ", "), ")"),
{
stop(paste0("Expected character vector, got ",
paste0("(", paste0(class(paths), collapse = ", "), ")"),
private$tree$getElement(relativePath)
},
private$tree$getElement(relativePath)
},
{
fields <- sapply(private$classFields, function(field)
{
self[[field]]
}, USE.NAMES = TRUE)
{
fields <- sapply(private$classFields, function(field)
{
self[[field]]
}, USE.NAMES = TRUE)
-
- jsonlite::toJSON(list("collection" =
+
+ jsonlite::toJSON(list("collection" =
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
},
Filter(Negate(is.null), fields)), auto_unbox = TRUE)
},
#'
#' @param x Instance of Collection class
#' @param ... Optional arguments.
#'
#' @param x Instance of Collection class
#' @param ... Optional arguments.
print.Collection = function(x, ...)
{
cat(paste0("Type: ", "\"", "Arvados Collection", "\""), sep = "\n")
print.Collection = function(x, ...)
{
cat(paste0("Type: ", "\"", "Arvados Collection", "\""), sep = "\n")
treeBranches <- sapply(fileContent, function(filePath)
{
splitPath <- unlist(strsplit(filePath, "/", fixed = TRUE))
treeBranches <- sapply(fileContent, function(filePath)
{
splitPath <- unlist(strsplit(filePath, "/", fixed = TRUE))
- branch <- private$createBranch(splitPath)
+ branch <- private$createBranch(splitPath)
})
root <- Subcollection$new("")
})
root <- Subcollection$new("")
- # Note: REST always returns folder name alone before other folder
+ # Note: REST always returns folder name alone before other folder
# content, so in first iteration we don't know if it's a file
# content, so in first iteration we don't know if it's a file
- # or folder since its just a name, so we assume it's a file.
- # If we encounter that same name again we know
+ # or folder since its just a name, so we assume it's a file.
+ # If we encounter that same name again we know
# it's a folder so we need to replace ArvadosFile with Subcollection.
if("ArvadosFile" %in% class(child))
{
# it's a folder so we need to replace ArvadosFile with Subcollection.
if("ArvadosFile" %in% class(child))
{
validContentTypes = NULL,
validContentTypes = NULL,
- initialize = function()
+ initialize = function()
{
self$validContentTypes <- c("text", "raw")
},
{
self$validContentTypes <- c("text", "raw")
},
- parseJSONResponse = function(serverResponse)
+ parseJSONResponse = function(serverResponse)
{
parsed_response <- httr::content(serverResponse,
as = "parsed",
{
parsed_response <- httr::content(serverResponse,
as = "parsed",
- getFileSizesFromResponse = function(response, uri)
+ getFileSizesFromResponse = function(response, uri)
{
text <- rawToChar(response$content)
doc <- XML::xmlParse(text, asText=TRUE)
{
text <- rawToChar(response$content)
doc <- XML::xmlParse(text, asText=TRUE)
validContentTypes = NULL,
validVerbs = NULL,
validContentTypes = NULL,
validVerbs = NULL,
- initialize = function()
+ initialize = function()
{
self$validContentTypes <- c("text", "raw")
self$validVerbs <- c("GET", "POST", "PUT", "DELETE", "PROPFIND", "MOVE")
{
self$validContentTypes <- c("text", "raw")
self$validVerbs <- c("GET", "POST", "PUT", "DELETE", "PROPFIND", "MOVE")
- getConnection = function(url, headers, openMode)
+ getConnection = function(url, headers, openMode)
{
h <- curl::new_handle()
curl::handle_setheaders(h, .list = headers)
{
h <- curl::new_handle()
curl::handle_setheaders(h, .list = headers)
{
fileURL <- paste0(self$getWebDavHostName(), "c=",
uuid, "/", relativePath);
{
fileURL <- paste0(self$getWebDavHostName(), "c=",
uuid, "/", relativePath);
- headers <- list(Authorization = paste("OAuth2", self$token))
+ headers <- list(Authorization = paste("OAuth2", self$token))
serverResponse <- self$http$exec("DELETE", fileURL, headers,
retryTimes = self$numRetries)
serverResponse <- self$http$exec("DELETE", fileURL, headers,
retryTimes = self$numRetries)
getConnection = function(relativePath, uuid, openMode)
{
getConnection = function(relativePath, uuid, openMode)
{
- fileURL <- paste0(self$getWebDavHostName(),
+ fileURL <- paste0(self$getWebDavHostName(),
"c=", uuid, "/", relativePath);
headers <- list(Authorization = paste("OAuth2", self$token))
"c=", uuid, "/", relativePath);
headers <- list(Authorization = paste("OAuth2", self$token))
{
fileURL <- paste0(self$getWebDavHostName(), "c=",
uuid, "/", relativePath)
{
fileURL <- paste0(self$getWebDavHostName(), "c=",
uuid, "/", relativePath)
- headers <- list(Authorization = paste("OAuth2", self$token),
+ headers <- list(Authorization = paste("OAuth2", self$token),
"Content-Type" = contentType)
body <- NULL
"Content-Type" = contentType)
body <- NULL
source("./R/util.R")
#' Subcollection
source("./R/util.R")
#' Subcollection
#' Subcollection class represents a folder inside Arvados collection.
#' It is essentially a composite of arvadosFiles and other subcollections.
#' Subcollection class represents a folder inside Arvados collection.
#' It is essentially a composite of arvadosFiles and other subcollections.
#' @section Usage:
#' \preformatted{subcollection = Subcollection$new(name)}
#'
#' @section Usage:
#' \preformatted{subcollection = Subcollection$new(name)}
#'
#' \describe{
#' \item{name}{Name of the subcollection.}
#' }
#' \describe{
#' \item{name}{Name of the subcollection.}
#' }
#' @section Methods:
#' \describe{
#' \item{getName()}{Returns name of the subcollection.}
#' @section Methods:
#' \describe{
#' \item{getName()}{Returns name of the subcollection.}
},
getName = function() private$name,
},
getName = function() private$name,
getRelativePath = function()
{
relativePath <- c(private$name)
getRelativePath = function()
{
relativePath <- c(private$name)
"or Subcollection with same name."))
if(!is.null(private$collection))
"or Subcollection with same name."))
if(!is.null(private$collection))
if(self$getRelativePath() != "")
contentPath <- paste0(self$getRelativePath(),
"/", content$getFileListing())
if(self$getRelativePath() != "")
contentPath <- paste0(self$getRelativePath(),
"/", content$getFileListing())
#'
#' @param x Instance of Subcollection class
#' @param ... Optional arguments.
#'
#' @param x Instance of Subcollection class
#' @param ... Optional arguments.
print.Subcollection = function(x, ...)
{
collection <- NULL
print.Subcollection = function(x, ...)
{
collection <- NULL
}, methodResources, resourceNames)))
projectDoc <- genProjectMethodsDoc()
}, methodResources, resourceNames)))
projectDoc <- genProjectMethodsDoc()
c(methodsDoc, projectDoc)
}
c(methodsDoc, projectDoc)
}
methodNames[!(methodNames %in% c("index", "show", "destroy"))])
}, methodResources, resourceNames)))
methodNames[!(methodNames %in% c("index", "show", "destroy"))])
}, methodResources, resourceNames)))
hardcodedMethods <- c("projects.create", "projects.get",
"projects.list", "projects.update", "projects.delete")
hardcodedMethods <- c("projects.create", "projects.get",
"projects.list", "projects.update", "projects.delete")
- paste0("#' \t\\item{}{\\code{\\link{", sort(c(methodList, hardcodedMethods)), "}}}")
+ paste0("#' \t\\item{}{\\code{\\link{", sort(c(methodList, hardcodedMethods)), "}}}")
}
getMethodDoc <- function(methodName, methodMetaData)
}
getMethodDoc <- function(methodName, methodMetaData)
className <- sapply(prop, function(ref) ref)
objectName <- paste0(tolower(substr(className, 1, 1)),
substr(className, 2, nchar(className)))
className <- sapply(prop, function(ref) ref)
objectName <- paste0(tolower(substr(className, 1, 1)),
substr(className, 2, nchar(className)))
- paste("#' @param", objectName, className, "object.")
+ paste("#' @param", objectName, className, "object.")
{
arg <- methodMetaData$parameters[[argName]]
argDescription <- arg$description
{
arg <- methodMetaData$parameters[[argName]]
argDescription <- arg$description
- paste("#' @param", argName, argDescription)
+ paste("#' @param", argName, argDescription)
})))
c(requestDoc, argsDoc)
})))
c(requestDoc, argsDoc)
- args[1:(length(args) - 1)] <- paste0(args[1:(length(args) - 1)], ",")
+ args[1:(length(args) - 1)] <- paste0(args[1:(length(args) - 1)], ",")
}
args[1] <- paste0(prependAtStart, args[1])
}
args[1] <- paste0(prependAtStart, args[1])
argLines <- c(argLines, line)
}
argLines <- c(argLines, line)
}
argLines <- unlist(argLines)
argLinesLen <- length(argLines)
if(argLinesLen > 1)
argLines <- unlist(argLines)
argLinesLen <- length(argLines)
if(argLinesLen > 1)
- argLines[2:argLinesLen] <- paste0(prependToEachSplit, argLines[2:argLinesLen])
+ argLines[2:argLinesLen] <- paste0(prependToEachSplit, argLines[2:argLinesLen])
validContentTypes = NULL,
parserCallCount = NULL,
validContentTypes = NULL,
parserCallCount = NULL,
- initialize = function()
+ initialize = function()
{
self$parserCallCount <- 0
self$validContentTypes <- c("text", "raw")
},
{
self$parserCallCount <- 0
self$validContentTypes <- c("text", "raw")
},
- parseJSONResponse = function(serverResponse)
+ parseJSONResponse = function(serverResponse)
{
self$parserCallCount <- self$parserCallCount + 1
{
self$parserCallCount <- self$parserCallCount + 1
- getFileSizesFromResponse = function(serverResponse, uri)
+ getFileSizesFromResponse = function(serverResponse, uri)
{
self$parserCallCount <- self$parserCallCount + 1
{
self$parserCallCount <- self$parserCallCount + 1
test_that("constructor raises error if file name is empty string", {
expect_that(ArvadosFile$new(""), throws_error("Invalid name."))
test_that("constructor raises error if file name is empty string", {
expect_that(ArvadosFile$new(""), throws_error("Invalid name."))
test_that("getFileListing always returns file name", {
dog <- ArvadosFile$new("dog")
expect_that(dog$getFileListing(), equals("dog"))
test_that("getFileListing always returns file name", {
dog <- ArvadosFile$new("dog")
expect_that(dog$getFileListing(), equals("dog"))
test_that("get always returns NULL", {
dog <- ArvadosFile$new("dog")
test_that("get always returns NULL", {
dog <- ArvadosFile$new("dog")
responseIsNull <- is.null(dog$get("something"))
expect_that(responseIsNull, is_true())
responseIsNull <- is.null(dog$get("something"))
expect_that(responseIsNull, is_true())
test_that("getFirst always returns NULL", {
dog <- ArvadosFile$new("dog")
test_that("getFirst always returns NULL", {
dog <- ArvadosFile$new("dog")
responseIsNull <- is.null(dog$getFirst())
expect_that(responseIsNull, is_true())
responseIsNull <- is.null(dog$getFirst())
expect_that(responseIsNull, is_true())
test_that(paste("getSizeInBytes returns zero if arvadosFile",
"is not part of a collection"), {
test_that(paste("getSizeInBytes returns zero if arvadosFile",
"is not part of a collection"), {
dog <- ArvadosFile$new("dog")
expect_that(dog$getSizeInBytes(), equals(0))
dog <- ArvadosFile$new("dog")
expect_that(dog$getSizeInBytes(), equals(0))
test_that(paste("getSizeInBytes delegates size calculation",
"to REST service class"), {
test_that(paste("getSizeInBytes delegates size calculation",
"to REST service class"), {
resourceSize <- fish$getSizeInBytes()
expect_that(resourceSize, equals(100))
resourceSize <- fish$getSizeInBytes()
expect_that(resourceSize, equals(100))
test_that("getRelativePath returns path relative to the tree root", {
test_that("getRelativePath returns path relative to the tree root", {
fish$add(shark)
expect_that(shark$getRelativePath(), equals("animal/fish/shark"))
fish$add(shark)
expect_that(shark$getRelativePath(), equals("animal/fish/shark"))
test_that("read raises exception if file doesn't belong to a collection", {
test_that("read raises exception if file doesn't belong to a collection", {
expect_that(dog$read(),
throws_error("ArvadosFile doesn't belong to any collection."))
expect_that(dog$read(),
throws_error("ArvadosFile doesn't belong to any collection."))
test_that("read raises exception offset or length is negative number", {
test_that("read raises exception offset or length is negative number", {
throws_error("Offset and length must be positive values."))
expect_that(fish$read(contentType = "text", offset = -1, length = -1),
throws_error("Offset and length must be positive values."))
throws_error("Offset and length must be positive values."))
expect_that(fish$read(contentType = "text", offset = -1, length = -1),
throws_error("Offset and length must be positive values."))
test_that("read delegates reading operation to REST service class", {
test_that("read delegates reading operation to REST service class", {
api$setRESTService(fakeREST)
collection <- Collection$new(api, "myUUID")
fish <- collection$get("animal/fish")
api$setRESTService(fakeREST)
collection <- Collection$new(api, "myUUID")
fish <- collection$get("animal/fish")
fileContent <- fish$read("text")
expect_that(fileContent, equals("my file"))
expect_that(fakeREST$readCallCount, equals(1))
fileContent <- fish$read("text")
expect_that(fileContent, equals("my file"))
expect_that(fakeREST$readCallCount, equals(1))
test_that(paste("connection delegates connection creation ro RESTService class",
test_that(paste("connection delegates connection creation ro RESTService class",
- "which returns curl connection opened in read mode when",
+ "which returns curl connection opened in read mode when",
"'r' of 'rb' is passed as argument"), {
collectionContent <- c("animal", "animal/fish")
"'r' of 'rb' is passed as argument"), {
collectionContent <- c("animal", "animal/fish")
connection <- fish$connection("r")
expect_that(fakeREST$getConnectionCallCount, equals(1))
connection <- fish$connection("r")
expect_that(fakeREST$getConnectionCallCount, equals(1))
test_that(paste("connection returns textConnection opened",
"in write mode when 'w' is passed as argument"), {
test_that(paste("connection returns textConnection opened",
"in write mode when 'w' is passed as argument"), {
expect_that(writeResult[1], equals("file"))
expect_that(writeResult[2], equals("content"))
expect_that(writeResult[1], equals("file"))
expect_that(writeResult[2], equals("content"))
test_that("flush sends data stored in a connection to a REST server", {
test_that("flush sends data stored in a connection to a REST server", {
fish$flush()
expect_that(fakeREST$writeBuffer, equals("file content"))
fish$flush()
expect_that(fakeREST$writeBuffer, equals("file content"))
test_that("write raises exception if file doesn't belong to a collection", {
test_that("write raises exception if file doesn't belong to a collection", {
expect_that(dog$write(),
throws_error("ArvadosFile doesn't belong to any collection."))
expect_that(dog$write(),
throws_error("ArvadosFile doesn't belong to any collection."))
test_that("write delegates writing operation to REST service class", {
test_that("write delegates writing operation to REST service class", {
api$setRESTService(fakeREST)
collection <- Collection$new(api, "myUUID")
fish <- collection$get("animal/fish")
api$setRESTService(fakeREST)
collection <- Collection$new(api, "myUUID")
fish <- collection$get("animal/fish")
fileContent <- fish$write("new file content")
expect_that(fakeREST$writeBuffer, equals("new file content"))
fileContent <- fish$write("new file content")
expect_that(fakeREST$writeBuffer, equals("new file content"))
test_that(paste("move raises exception if arvados file",
"doesn't belong to any collection"), {
test_that(paste("move raises exception if arvados file",
"doesn't belong to any collection"), {
expect_that(animal$move("new/location"),
throws_error("ArvadosFile doesn't belong to any collection"))
expect_that(animal$move("new/location"),
throws_error("ArvadosFile doesn't belong to any collection"))
test_that(paste("move raises exception if newLocationInCollection",
"parameter is invalid"), {
test_that(paste("move raises exception if newLocationInCollection",
"parameter is invalid"), {
expect_that(dog$move("objects/dog"),
throws_error("Unable to get destination subcollection"))
expect_that(dog$move("objects/dog"),
throws_error("Unable to get destination subcollection"))
test_that("move raises exception if new location contains content with the same name", {
test_that("move raises exception if new location contains content with the same name", {
expect_that(dog$move("dog"),
throws_error("Destination already contains content with same name."))
expect_that(dog$move("dog"),
throws_error("Destination already contains content with same name."))
test_that("move moves arvados file inside collection tree", {
test_that("move moves arvados file inside collection tree", {
collection <- Collection$new(api, "myUUID")
expect_that(collection$create(10),
collection <- Collection$new(api, "myUUID")
expect_that(collection$create(10),
- throws_error("Expected character vector, got (numeric).",
+ throws_error("Expected character vector, got (numeric).",
collection <- Collection$new(api, "myUUID")
expect_that(collection$remove(10),
collection <- Collection$new(api, "myUUID")
expect_that(collection$remove(10),
- throws_error("Expected character vector, got (numeric).",
+ throws_error("Expected character vector, got (numeric).",
api$setRESTService(fakeREST)
collection <- Collection$new(api, "myUUID")
api$setRESTService(fakeREST)
collection <- Collection$new(api, "myUUID")
- contentMatchExpected <- all(collection$getFileListing() ==
+ contentMatchExpected <- all(collection$getFileListing() ==
c("animal", "animal/fish", "ball"))
expect_that(contentMatchExpected, is_true())
c("animal", "animal/fish", "ball"))
expect_that(contentMatchExpected, is_true())
test_that("constructor creates file tree from character array properly", {
collection <- "myCollection"
test_that("constructor creates file tree from character array properly", {
collection <- "myCollection"
- characterArray <- c("animal",
+ characterArray <- c("animal",
expect_that(boatIsOfTypeArvadosFile, is_true())
expect_that(boatsParentIsRoot, is_true())
expect_that(allElementsBelongToSameCollection, is_true())
expect_that(boatIsOfTypeArvadosFile, is_true())
expect_that(boatsParentIsRoot, is_true())
expect_that(allElementsBelongToSameCollection, is_true())
test_that("getElement returns element from tree if element exists on specified path", {
collection <- "myCollection"
test_that("getElement returns element from tree if element exists on specified path", {
collection <- "myCollection"
- characterArray <- c("animal",
+ characterArray <- c("animal",
dog <- collectionTree$getElement("animal/dog")
expect_that(dog$getName(), equals("dog"))
dog <- collectionTree$getElement("animal/dog")
expect_that(dog$getName(), equals("dog"))
test_that("getElement returns NULL from tree if element doesn't exists on specified path", {
collection <- "myCollection"
test_that("getElement returns NULL from tree if element doesn't exists on specified path", {
collection <- "myCollection"
- characterArray <- c("animal",
+ characterArray <- c("animal",
fishIsNULL <- is.null(fish)
expect_that(fishIsNULL, is_true())
fishIsNULL <- is.null(fish)
expect_that(fishIsNULL, is_true())
test_that("getElement trims ./ from start of relativePath", {
collection <- "myCollection"
test_that("getElement trims ./ from start of relativePath", {
collection <- "myCollection"
- characterArray <- c("animal",
+ characterArray <- c("animal",
dogWithDotSlash <- collectionTree$getElement("./animal/dog")
expect_that(dogWithDotSlash$getName(), equals(dog$getName()))
dogWithDotSlash <- collectionTree$getElement("./animal/dog")
expect_that(dogWithDotSlash$getName(), equals(dog$getName()))
test_that("getElement trims / from end of relativePath", {
collection <- "myCollection"
test_that("getElement trims / from end of relativePath", {
collection <- "myCollection"
- characterArray <- c("animal",
+ characterArray <- c("animal",
animalWithSlash <- collectionTree$getElement("animal/")
expect_that(animalWithSlash$getName(), equals(animal$getName()))
animalWithSlash <- collectionTree$getElement("animal/")
expect_that(animalWithSlash$getName(), equals(animal$getName()))
expect_that(barExists, is_true())
expect_that(unlist(result$bar$foo), equals(10))
expect_that(barExists, is_true())
expect_that(unlist(result$bar$foo), equals(10))
test_that(paste("parseResponse generates and returns character vector",
"from server response if outputType is text"), {
test_that(paste("parseResponse generates and returns character vector",
"from server response if outputType is text"), {
parsedResponse <- parser$parseResponse(serverResponse, "text")
expect_that(parsedResponse, equals("random text"))
parsedResponse <- parser$parseResponse(serverResponse, "text")
expect_that(parsedResponse, equals("random text"))
paste0("<?xml version=\"1.0\" encoding=\"UTF-8\"?><D:multistatus xmlns:",
"D=\"DAV:\"><D:response><D:href>/c=aaaaa-bbbbb-ccccccccccccccc</D",
":href><D:propstat><D:prop><D:resourcetype><D:collection xmlns:D=",
paste0("<?xml version=\"1.0\" encoding=\"UTF-8\"?><D:multistatus xmlns:",
"D=\"DAV:\"><D:response><D:href>/c=aaaaa-bbbbb-ccccccccccccccc</D",
":href><D:propstat><D:prop><D:resourcetype><D:collection xmlns:D=",
resultMatchExpected <- all.equal(result, expectedResult)
expect_that(resultMatchExpected, is_true())
resultMatchExpected <- all.equal(result, expectedResult)
expect_that(resultMatchExpected, is_true())
test_that(paste("getFileSizesFromResponse returns file sizes",
"parsed from webDAV server response"), {
test_that(paste("getFileSizesFromResponse returns file sizes",
"parsed from webDAV server response"), {
resultMatchExpected <- result == expectedResult
expect_that(resultMatchExpected, is_true())
resultMatchExpected <- result == expectedResult
expect_that(resultMatchExpected, is_true())
expect_that(animal$getRelativePath(), equals("animal"))
expect_that(fish$getRelativePath(), equals("animal/fish"))
expect_that(animal$getRelativePath(), equals("animal"))
expect_that(fish$getRelativePath(), equals("animal/fish"))
test_that(paste("getFileListing by default returns sorted path of all files",
"relative to the current subcollection"), {
test_that(paste("getFileListing by default returns sorted path of all files",
"relative to the current subcollection"), {
all(expectedResult == result)
expect_that(resultsMatch, is_true())
all(expectedResult == result)
expect_that(resultsMatch, is_true())
test_that(paste("getFileListing returns sorted names of all direct children",
"if fullPath is set to FALSE"), {
test_that(paste("getFileListing returns sorted names of all direct children",
"if fullPath is set to FALSE"), {
all(expectedResult == result)
expect_that(resultsMatch, is_true())
all(expectedResult == result)
expect_that(resultsMatch, is_true())
test_that("add adds content to inside collection tree", {
test_that("add adds content to inside collection tree", {
expect_that(animalContainsFish, is_true())
expect_that(animalContainsDog, is_true())
expect_that(animalContainsFish, is_true())
expect_that(animalContainsDog, is_true())
test_that("add raises exception if content name is empty string", {
test_that("add raises exception if content name is empty string", {
throws_error("Content has invalid name.", fixed = TRUE))
})
throws_error("Content has invalid name.", fixed = TRUE))
})
-test_that(paste("add raises exception if ArvadosFile/Subcollection",
+test_that(paste("add raises exception if ArvadosFile/Subcollection",
"with same name already exists in the subcollection"), {
animal <- Subcollection$new("animal")
"with same name already exists in the subcollection"), {
animal <- Subcollection$new("animal")
expect_that(animal$add(thirdFish),
throws_error(paste("Subcollection already contains ArvadosFile or",
"Subcollection with same name."), fixed = TRUE))
expect_that(animal$add(thirdFish),
throws_error(paste("Subcollection already contains ArvadosFile or",
"Subcollection with same name."), fixed = TRUE))
-test_that(paste("add raises exception if passed argument is",
+test_that(paste("add raises exception if passed argument is",
"not ArvadosFile or Subcollection"), {
animal <- Subcollection$new("animal")
"not ArvadosFile or Subcollection"), {
animal <- Subcollection$new("animal")
expect_that(animal$add(number),
throws_error(paste("Expected AravodsFile or Subcollection object,",
"got (numeric)."), fixed = TRUE))
expect_that(animal$add(number),
throws_error(paste("Expected AravodsFile or Subcollection object,",
"got (numeric)."), fixed = TRUE))
-test_that(paste("add post content to a REST service",
+test_that(paste("add post content to a REST service",
"if subcollection belongs to a collection"), {
"if subcollection belongs to a collection"), {
collectionContent <- c("animal", "animal/fish")
fakeREST <- FakeRESTService$new(collectionContent)
collectionContent <- c("animal", "animal/fish")
fakeREST <- FakeRESTService$new(collectionContent)
animal$add(dog)
expect_that(fakeREST$createCallCount, equals(1))
animal$add(dog)
expect_that(fakeREST$createCallCount, equals(1))
test_that("remove removes content from subcollection", {
test_that("remove removes content from subcollection", {
returnValueAfterRemovalIsNull <- is.null(animal$get("fish"))
expect_that(returnValueAfterRemovalIsNull, is_true())
returnValueAfterRemovalIsNull <- is.null(animal$get("fish"))
expect_that(returnValueAfterRemovalIsNull, is_true())
-test_that(paste("remove raises exception",
+test_that(paste("remove raises exception",
"if content to remove doesn't exist in the subcollection"), {
animal <- Subcollection$new("animal")
"if content to remove doesn't exist in the subcollection"), {
animal <- Subcollection$new("animal")
expect_that(animal$remove("fish"),
throws_error(paste("Subcollection doesn't contains ArvadosFile",
"or Subcollection with specified name.")))
expect_that(animal$remove("fish"),
throws_error(paste("Subcollection doesn't contains ArvadosFile",
"or Subcollection with specified name.")))
test_that("remove raises exception if passed argument is not character vector", {
test_that("remove raises exception if passed argument is not character vector", {
expect_that(animal$remove(number),
throws_error(paste("Expected character,",
"got (numeric)."), fixed = TRUE))
expect_that(animal$remove(number),
throws_error(paste("Expected character,",
"got (numeric)."), fixed = TRUE))
-test_that(paste("remove removes content from REST service",
+test_that(paste("remove removes content from REST service",
"if subcollection belongs to a collection"), {
"if subcollection belongs to a collection"), {
collectionContent <- c("animal", "animal/fish", "animal/dog")
fakeREST <- FakeRESTService$new(collectionContent)
collectionContent <- c("animal", "animal/fish", "animal/dog")
fakeREST <- FakeRESTService$new(collectionContent)
animal$remove("fish")
expect_that(fakeREST$deleteCallCount, equals(1))
animal$remove("fish")
expect_that(fakeREST$deleteCallCount, equals(1))
-test_that(paste("get returns ArvadosFile or Subcollection",
+test_that(paste("get returns ArvadosFile or Subcollection",
"if file or folder with given name exists"), {
animal <- Subcollection$new("animal")
"if file or folder with given name exists"), {
animal <- Subcollection$new("animal")
expect_that(returnedDogIsArvadosFile, is_true())
expect_that(returnedDog$getName(), equals("dog"))
expect_that(returnedDogIsArvadosFile, is_true())
expect_that(returnedDog$getName(), equals("dog"))
-test_that(paste("get returns NULL if file or folder",
+test_that(paste("get returns NULL if file or folder",
"with given name doesn't exists"), {
animal <- Subcollection$new("animal")
"with given name doesn't exists"), {
animal <- Subcollection$new("animal")
returnedDogIsNull <- is.null(animal$get("dog"))
expect_that(returnedDogIsNull, is_true())
returnedDogIsNull <- is.null(animal$get("dog"))
expect_that(returnedDogIsNull, is_true())
test_that("getFirst returns first child in the subcollection", {
test_that("getFirst returns first child in the subcollection", {
animal$add(fish)
expect_that(animal$getFirst()$getName(), equals("fish"))
animal$add(fish)
expect_that(animal$getFirst()$getName(), equals("fish"))
test_that("getFirst returns NULL if subcollection contains no children", {
test_that("getFirst returns NULL if subcollection contains no children", {
returnedElementIsNull <- is.null(animal$getFirst())
expect_that(returnedElementIsNull, is_true())
returnedElementIsNull <- is.null(animal$getFirst())
expect_that(returnedElementIsNull, is_true())
test_that(paste("setCollection by default sets collection",
"filed of subcollection and all its children"), {
test_that(paste("setCollection by default sets collection",
"filed of subcollection and all its children"), {
expect_that(animal$getCollection(), equals("myCollection"))
expect_that(fish$getCollection(), equals("myCollection"))
expect_that(animal$getCollection(), equals("myCollection"))
expect_that(fish$getCollection(), equals("myCollection"))
test_that(paste("setCollection sets collection filed of subcollection only",
"if parameter setRecursively is set to FALSE"), {
test_that(paste("setCollection sets collection filed of subcollection only",
"if parameter setRecursively is set to FALSE"), {
expect_that(animal$getCollection(), equals("myCollection"))
expect_that(fishCollectionIsNull, is_true())
expect_that(animal$getCollection(), equals("myCollection"))
expect_that(fishCollectionIsNull, is_true())
test_that(paste("move raises exception if subcollection",
"doesn't belong to any collection"), {
test_that(paste("move raises exception if subcollection",
"doesn't belong to any collection"), {
expect_that(animal$move("new/location"),
throws_error("Subcollection doesn't belong to any collection"))
expect_that(animal$move("new/location"),
throws_error("Subcollection doesn't belong to any collection"))
test_that("move raises exception if new location contains content with the same name", {
test_that("move raises exception if new location contains content with the same name", {
expect_that(fish$move("fish"),
throws_error("Destination already contains content with same name."))
expect_that(fish$move("fish"),
throws_error("Destination already contains content with same name."))
test_that(paste("move raises exception if newLocationInCollection",
"parameter is invalid"), {
test_that(paste("move raises exception if newLocationInCollection",
"parameter is invalid"), {
expect_that(fish$move("objects/dog"),
throws_error("Unable to get destination subcollection"))
expect_that(fish$move("objects/dog"),
throws_error("Unable to get destination subcollection"))
test_that("move moves subcollection inside collection tree", {
test_that("move moves subcollection inside collection tree", {
expect_that(fishIsNullOnOldLocation, is_true())
expect_that(fishExistsOnNewLocation, is_true())
expect_that(fishIsNullOnOldLocation, is_true())
expect_that(fishExistsOnNewLocation, is_true())
test_that(paste("getSizeInBytes returns zero if subcollection",
"is not part of a collection"), {
test_that(paste("getSizeInBytes returns zero if subcollection",
"is not part of a collection"), {
animal <- Subcollection$new("animal")
expect_that(animal$getSizeInBytes(), equals(0))
animal <- Subcollection$new("animal")
expect_that(animal$getSizeInBytes(), equals(0))
test_that(paste("getSizeInBytes delegates size calculation",
"to REST service class"), {
test_that(paste("getSizeInBytes delegates size calculation",
"to REST service class"), {
result <- listAll(testFunction)
expect_that(length(result), equals(8))
result <- listAll(testFunction)
expect_that(length(result), equals(8))
test_that("trimFromStart trims string correctly if string starts with trimCharacters", {
test_that("trimFromStart trims string correctly if string starts with trimCharacters", {
result <- trimFromStart(sample, trimCharacters)
expect_that(result, equals("random"))
result <- trimFromStart(sample, trimCharacters)
expect_that(result, equals("random"))
test_that("trimFromStart returns original string if string doesn't starts with trimCharacters", {
test_that("trimFromStart returns original string if string doesn't starts with trimCharacters", {
result <- trimFromStart(sample, trimCharacters)
expect_that(result, equals("./something/random"))
result <- trimFromStart(sample, trimCharacters)
expect_that(result, equals("./something/random"))
test_that("trimFromEnd trims string correctly if string ends with trimCharacters", {
test_that("trimFromEnd trims string correctly if string ends with trimCharacters", {
result <- trimFromEnd(sample, trimCharacters)
expect_that(result, equals("./something"))
result <- trimFromEnd(sample, trimCharacters)
expect_that(result, equals("./something"))
test_that("trimFromEnd returns original string if string doesn't end with trimCharacters", {
test_that("trimFromEnd returns original string if string doesn't end with trimCharacters", {
result <- trimFromStart(sample, trimCharacters)
expect_that(result, equals("./something/random"))
result <- trimFromStart(sample, trimCharacters)
expect_that(result, equals("./something/random"))
test_that("RListToPythonList converts nested R list to char representation of Python list", {
test_that("RListToPythonList converts nested R list to char representation of Python list", {
- sample <- list("insert", list("random", list("text")), list("here"))
+ sample <- list("insert", list("random", list("text")), list("here"))
result <- RListToPythonList(sample)
resultWithSeparator <- RListToPythonList(sample, separator = ",+")
result <- RListToPythonList(sample)
resultWithSeparator <- RListToPythonList(sample, separator = ",+")
expect_that(result, equals("[\"insert\", [\"random\", \"text\"], \"here\"]"))
expect_that(resultWithSeparator,
equals("[\"insert\",+[\"random\",+\"text\"],+\"here\"]"))
expect_that(result, equals("[\"insert\", [\"random\", \"text\"], \"here\"]"))
expect_that(resultWithSeparator,
equals("[\"insert\",+[\"random\",+\"text\"],+\"here\"]"))
test_that("appendToStartIfNotExist appends characters to beginning of a string", {
test_that("appendToStartIfNotExist appends characters to beginning of a string", {
result <- appendToStartIfNotExist(sample, charactersToAppend)
expect_that(result, equals("Happy New Year"))
result <- appendToStartIfNotExist(sample, charactersToAppend)
expect_that(result, equals("Happy New Year"))
test_that(paste("appendToStartIfNotExist returns original string if string",
"doesn't start with specified characters"), {
test_that(paste("appendToStartIfNotExist returns original string if string",
"doesn't start with specified characters"), {
result <- appendToStartIfNotExist(sample, charactersToAppend)
expect_that(result, equals("Happy New Year"))
result <- appendToStartIfNotExist(sample, charactersToAppend)
expect_that(result, equals("Happy New Year"))
test_that(paste("splitToPathAndName splits relative path to file/folder",
"name and rest of the path"), {
test_that(paste("splitToPathAndName splits relative path to file/folder",
"name and rest of the path"), {
expect_that(result$name, equals("file.exe"))
expect_that(result$path, equals("path/to/my"))
expect_that(result$name, equals("file.exe"))
expect_that(result$path, equals("path/to/my"))