sdk/R/R/Arvados.R

   1 # Copyright (C) The Arvados Authors. All rights reserved.
   2 #
   3 # SPDX-License-Identifier: Apache-2.0
   4
   5 #' api_clients.get
   6 #'
   7 #' api_clients.get is a method defined in Arvados class.
   8 #'
   9 #' @usage arv$api_clients.get(uuid)
  10 #' @param uuid The UUID of the ApiClient in question.
  11 #' @return ApiClient object.
  12 #' @name api_clients.get
  13 NULL
  14
  15 #' api_clients.create
  16 #'
  17 #' api_clients.create is a method defined in Arvados class.
  18 #'
  19 #' @usage arv$api_clients.create(apiclient,
  20 #'      ensure_unique_name = "false", cluster_id = NULL)
  21 #' @param apiClient ApiClient object.
  22 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
  23 #' @param cluster_id Create object on a remote federated cluster instead of the current one.
  24 #' @return ApiClient object.
  25 #' @name api_clients.create
  26 NULL
  27
  28 #' api_clients.update
  29 #'
  30 #' api_clients.update is a method defined in Arvados class.
  31 #'
  32 #' @usage arv$api_clients.update(apiclient,
  33 #'      uuid)
  34 #' @param apiClient ApiClient object.
  35 #' @param uuid The UUID of the ApiClient in question.
  36 #' @return ApiClient object.
  37 #' @name api_clients.update
  38 NULL
  39
  40 #' api_clients.delete
  41 #'
  42 #' api_clients.delete is a method defined in Arvados class.
  43 #'
  44 #' @usage arv$api_clients.delete(uuid)
  45 #' @param uuid The UUID of the ApiClient in question.
  46 #' @return ApiClient object.
  47 #' @name api_clients.delete
  48 NULL
  49
  50 #' api_clients.list
  51 #'
  52 #' api_clients.list is a method defined in Arvados class.
  53 #'
  54 #' @usage arv$api_clients.list(filters = NULL,
  55 #'      where = NULL, order = NULL, select = NULL,
  56 #'      distinct = NULL, limit = "100", offset = "0",
  57 #'      count = "exact", cluster_id = NULL, bypass_federation = NULL)
  58 #' @param filters
  59 #' @param where
  60 #' @param order
  61 #' @param select
  62 #' @param distinct
  63 #' @param limit
  64 #' @param offset
  65 #' @param count
  66 #' @param cluster_id List objects on a remote federated cluster instead of the current one.
  67 #' @param bypass_federation bypass federation behavior, list items from local instance database only
  68 #' @return ApiClientList object.
  69 #' @name api_clients.list
  70 NULL
  71
  72 #' api_client_authorizations.get
  73 #'
  74 #' api_client_authorizations.get is a method defined in Arvados class.
  75 #'
  76 #' @usage arv$api_client_authorizations.get(uuid)
  77 #' @param uuid The UUID of the ApiClientAuthorization in question.
  78 #' @return ApiClientAuthorization object.
  79 #' @name api_client_authorizations.get
  80 NULL
  81
  82 #' api_client_authorizations.create
  83 #'
  84 #' api_client_authorizations.create is a method defined in Arvados class.
  85 #'
  86 #' @usage arv$api_client_authorizations.create(apiclientauthorization,
  87 #'      ensure_unique_name = "false", cluster_id = NULL)
  88 #' @param apiClientAuthorization ApiClientAuthorization object.
  89 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
  90 #' @param cluster_id Create object on a remote federated cluster instead of the current one.
  91 #' @return ApiClientAuthorization object.
  92 #' @name api_client_authorizations.create
  93 NULL
  94
  95 #' api_client_authorizations.update
  96 #'
  97 #' api_client_authorizations.update is a method defined in Arvados class.
  98 #'
  99 #' @usage arv$api_client_authorizations.update(apiclientauthorization,
 100 #'      uuid)
 101 #' @param apiClientAuthorization ApiClientAuthorization object.
 102 #' @param uuid The UUID of the ApiClientAuthorization in question.
 103 #' @return ApiClientAuthorization object.
 104 #' @name api_client_authorizations.update
 105 NULL
 106
 107 #' api_client_authorizations.delete
 108 #'
 109 #' api_client_authorizations.delete is a method defined in Arvados class.
 110 #'
 111 #' @usage arv$api_client_authorizations.delete(uuid)
 112 #' @param uuid The UUID of the ApiClientAuthorization in question.
 113 #' @return ApiClientAuthorization object.
 114 #' @name api_client_authorizations.delete
 115 NULL
 116
 117 #' api_client_authorizations.create_system_auth
 118 #'
 119 #' api_client_authorizations.create_system_auth is a method defined in Arvados class.
 120 #'
 121 #' @usage arv$api_client_authorizations.create_system_auth(api_client_id = NULL,
 122 #'      scopes = NULL)
 123 #' @param api_client_id
 124 #' @param scopes
 125 #' @return ApiClientAuthorization object.
 126 #' @name api_client_authorizations.create_system_auth
 127 NULL
 128
 129 #' api_client_authorizations.current
 130 #'
 131 #' api_client_authorizations.current is a method defined in Arvados class.
 132 #'
 133 #' @usage arv$api_client_authorizations.current(NULL)
 134 #' @return ApiClientAuthorization object.
 135 #' @name api_client_authorizations.current
 136 NULL
 137
 138 #' api_client_authorizations.list
 139 #'
 140 #' api_client_authorizations.list is a method defined in Arvados class.
 141 #'
 142 #' @usage arv$api_client_authorizations.list(filters = NULL,
 143 #'      where = NULL, order = NULL, select = NULL,
 144 #'      distinct = NULL, limit = "100", offset = "0",
 145 #'      count = "exact", cluster_id = NULL, bypass_federation = NULL)
 146 #' @param filters
 147 #' @param where
 148 #' @param order
 149 #' @param select
 150 #' @param distinct
 151 #' @param limit
 152 #' @param offset
 153 #' @param count
 154 #' @param cluster_id List objects on a remote federated cluster instead of the current one.
 155 #' @param bypass_federation bypass federation behavior, list items from local instance database only
 156 #' @return ApiClientAuthorizationList object.
 157 #' @name api_client_authorizations.list
 158 NULL
 159
 160 #' authorized_keys.get
 161 #'
 162 #' authorized_keys.get is a method defined in Arvados class.
 163 #'
 164 #' @usage arv$authorized_keys.get(uuid)
 165 #' @param uuid The UUID of the AuthorizedKey in question.
 166 #' @return AuthorizedKey object.
 167 #' @name authorized_keys.get
 168 NULL
 169
 170 #' authorized_keys.create
 171 #'
 172 #' authorized_keys.create is a method defined in Arvados class.
 173 #'
 174 #' @usage arv$authorized_keys.create(authorizedkey,
 175 #'      ensure_unique_name = "false", cluster_id = NULL)
 176 #' @param authorizedKey AuthorizedKey object.
 177 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 178 #' @param cluster_id Create object on a remote federated cluster instead of the current one.
 179 #' @return AuthorizedKey object.
 180 #' @name authorized_keys.create
 181 NULL
 182
 183 #' authorized_keys.update
 184 #'
 185 #' authorized_keys.update is a method defined in Arvados class.
 186 #'
 187 #' @usage arv$authorized_keys.update(authorizedkey,
 188 #'      uuid)
 189 #' @param authorizedKey AuthorizedKey object.
 190 #' @param uuid The UUID of the AuthorizedKey in question.
 191 #' @return AuthorizedKey object.
 192 #' @name authorized_keys.update
 193 NULL
 194
 195 #' authorized_keys.delete
 196 #'
 197 #' authorized_keys.delete is a method defined in Arvados class.
 198 #'
 199 #' @usage arv$authorized_keys.delete(uuid)
 200 #' @param uuid The UUID of the AuthorizedKey in question.
 201 #' @return AuthorizedKey object.
 202 #' @name authorized_keys.delete
 203 NULL
 204
 205 #' authorized_keys.list
 206 #'
 207 #' authorized_keys.list is a method defined in Arvados class.
 208 #'
 209 #' @usage arv$authorized_keys.list(filters = NULL,
 210 #'      where = NULL, order = NULL, select = NULL,
 211 #'      distinct = NULL, limit = "100", offset = "0",
 212 #'      count = "exact", cluster_id = NULL, bypass_federation = NULL)
 213 #' @param filters
 214 #' @param where
 215 #' @param order
 216 #' @param select
 217 #' @param distinct
 218 #' @param limit
 219 #' @param offset
 220 #' @param count
 221 #' @param cluster_id List objects on a remote federated cluster instead of the current one.
 222 #' @param bypass_federation bypass federation behavior, list items from local instance database only
 223 #' @return AuthorizedKeyList object.
 224 #' @name authorized_keys.list
 225 NULL
 226
 227 #' collections.get
 228 #'
 229 #' collections.get is a method defined in Arvados class.
 230 #'
 231 #' @usage arv$collections.get(uuid)
 232 #' @param uuid The UUID of the Collection in question.
 233 #' @return Collection object.
 234 #' @name collections.get
 235 NULL
 236
 237 #' collections.create
 238 #'
 239 #' collections.create is a method defined in Arvados class.
 240 #'
 241 #' @usage arv$collections.create(collection,
 242 #'      ensure_unique_name = "false", cluster_id = NULL)
 243 #' @param collection Collection object.
 244 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 245 #' @param cluster_id Create object on a remote federated cluster instead of the current one.
 246 #' @return Collection object.
 247 #' @name collections.create
 248 NULL
 249
 250 #' collections.update
 251 #'
 252 #' collections.update is a method defined in Arvados class.
 253 #'
 254 #' @usage arv$collections.update(collection,
 255 #'      uuid)
 256 #' @param collection Collection object.
 257 #' @param uuid The UUID of the Collection in question.
 258 #' @return Collection object.
 259 #' @name collections.update
 260 NULL
 261
 262 #' collections.delete
 263 #'
 264 #' collections.delete is a method defined in Arvados class.
 265 #'
 266 #' @usage arv$collections.delete(uuid)
 267 #' @param uuid The UUID of the Collection in question.
 268 #' @return Collection object.
 269 #' @name collections.delete
 270 NULL
 271
 272 #' collections.provenance
 273 #'
 274 #' collections.provenance is a method defined in Arvados class.
 275 #'
 276 #' @usage arv$collections.provenance(uuid)
 277 #' @param uuid
 278 #' @return Collection object.
 279 #' @name collections.provenance
 280 NULL
 281
 282 #' collections.used_by
 283 #'
 284 #' collections.used_by is a method defined in Arvados class.
 285 #'
 286 #' @usage arv$collections.used_by(uuid)
 287 #' @param uuid
 288 #' @return Collection object.
 289 #' @name collections.used_by
 290 NULL
 291
 292 #' collections.trash
 293 #'
 294 #' collections.trash is a method defined in Arvados class.
 295 #'
 296 #' @usage arv$collections.trash(uuid)
 297 #' @param uuid
 298 #' @return Collection object.
 299 #' @name collections.trash
 300 NULL
 301
 302 #' collections.untrash
 303 #'
 304 #' collections.untrash is a method defined in Arvados class.
 305 #'
 306 #' @usage arv$collections.untrash(uuid)
 307 #' @param uuid
 308 #' @return Collection object.
 309 #' @name collections.untrash
 310 NULL
 311
 312 #' collections.list
 313 #'
 314 #' collections.list is a method defined in Arvados class.
 315 #'
 316 #' @usage arv$collections.list(filters = NULL,
 317 #'      where = NULL, order = NULL, select = NULL,
 318 #'      distinct = NULL, limit = "100", offset = "0",
 319 #'      count = "exact", cluster_id = NULL, bypass_federation = NULL,
 320 #'      include_trash = NULL, include_old_versions = NULL)
 321 #' @param filters
 322 #' @param where
 323 #' @param order
 324 #' @param select
 325 #' @param distinct
 326 #' @param limit
 327 #' @param offset
 328 #' @param count
 329 #' @param cluster_id List objects on a remote federated cluster instead of the current one.
 330 #' @param bypass_federation bypass federation behavior, list items from local instance database only
 331 #' @param include_trash Include collections whose is_trashed attribute is true.
 332 #' @param include_old_versions Include past collection versions.
 333 #' @return CollectionList object.
 334 #' @name collections.list
 335 NULL
 336
 337 #' containers.get
 338 #'
 339 #' containers.get is a method defined in Arvados class.
 340 #'
 341 #' @usage arv$containers.get(uuid)
 342 #' @param uuid The UUID of the Container in question.
 343 #' @return Container object.
 344 #' @name containers.get
 345 NULL
 346
 347 #' containers.create
 348 #'
 349 #' containers.create is a method defined in Arvados class.
 350 #'
 351 #' @usage arv$containers.create(container,
 352 #'      ensure_unique_name = "false", cluster_id = NULL)
 353 #' @param container Container object.
 354 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 355 #' @param cluster_id Create object on a remote federated cluster instead of the current one.
 356 #' @return Container object.
 357 #' @name containers.create
 358 NULL
 359
 360 #' containers.update
 361 #'
 362 #' containers.update is a method defined in Arvados class.
 363 #'
 364 #' @usage arv$containers.update(container,
 365 #'      uuid)
 366 #' @param container Container object.
 367 #' @param uuid The UUID of the Container in question.
 368 #' @return Container object.
 369 #' @name containers.update
 370 NULL
 371
 372 #' containers.delete
 373 #'
 374 #' containers.delete is a method defined in Arvados class.
 375 #'
 376 #' @usage arv$containers.delete(uuid)
 377 #' @param uuid The UUID of the Container in question.
 378 #' @return Container object.
 379 #' @name containers.delete
 380 NULL
 381
 382 #' containers.auth
 383 #'
 384 #' containers.auth is a method defined in Arvados class.
 385 #'
 386 #' @usage arv$containers.auth(uuid)
 387 #' @param uuid
 388 #' @return Container object.
 389 #' @name containers.auth
 390 NULL
 391
 392 #' containers.lock
 393 #'
 394 #' containers.lock is a method defined in Arvados class.
 395 #'
 396 #' @usage arv$containers.lock(uuid)
 397 #' @param uuid
 398 #' @return Container object.
 399 #' @name containers.lock
 400 NULL
 401
 402 #' containers.unlock
 403 #'
 404 #' containers.unlock is a method defined in Arvados class.
 405 #'
 406 #' @usage arv$containers.unlock(uuid)
 407 #' @param uuid
 408 #' @return Container object.
 409 #' @name containers.unlock
 410 NULL
 411
 412 #' containers.secret_mounts
 413 #'
 414 #' containers.secret_mounts is a method defined in Arvados class.
 415 #'
 416 #' @usage arv$containers.secret_mounts(uuid)
 417 #' @param uuid
 418 #' @return Container object.
 419 #' @name containers.secret_mounts
 420 NULL
 421
 422 #' containers.current
 423 #'
 424 #' containers.current is a method defined in Arvados class.
 425 #'
 426 #' @usage arv$containers.current(NULL)
 427 #' @return Container object.
 428 #' @name containers.current
 429 NULL
 430
 431 #' containers.list
 432 #'
 433 #' containers.list is a method defined in Arvados class.
 434 #'
 435 #' @usage arv$containers.list(filters = NULL,
 436 #'      where = NULL, order = NULL, select = NULL,
 437 #'      distinct = NULL, limit = "100", offset = "0",
 438 #'      count = "exact", cluster_id = NULL, bypass_federation = NULL)
 439 #' @param filters
 440 #' @param where
 441 #' @param order
 442 #' @param select
 443 #' @param distinct
 444 #' @param limit
 445 #' @param offset
 446 #' @param count
 447 #' @param cluster_id List objects on a remote federated cluster instead of the current one.
 448 #' @param bypass_federation bypass federation behavior, list items from local instance database only
 449 #' @return ContainerList object.
 450 #' @name containers.list
 451 NULL
 452
 453 #' container_requests.get
 454 #'
 455 #' container_requests.get is a method defined in Arvados class.
 456 #'
 457 #' @usage arv$container_requests.get(uuid)
 458 #' @param uuid The UUID of the ContainerRequest in question.
 459 #' @return ContainerRequest object.
 460 #' @name container_requests.get
 461 NULL
 462
 463 #' container_requests.create
 464 #'
 465 #' container_requests.create is a method defined in Arvados class.
 466 #'
 467 #' @usage arv$container_requests.create(containerrequest,
 468 #'      ensure_unique_name = "false", cluster_id = NULL)
 469 #' @param containerRequest ContainerRequest object.
 470 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 471 #' @param cluster_id Create object on a remote federated cluster instead of the current one.
 472 #' @return ContainerRequest object.
 473 #' @name container_requests.create
 474 NULL
 475
 476 #' container_requests.update
 477 #'
 478 #' container_requests.update is a method defined in Arvados class.
 479 #'
 480 #' @usage arv$container_requests.update(containerrequest,
 481 #'      uuid)
 482 #' @param containerRequest ContainerRequest object.
 483 #' @param uuid The UUID of the ContainerRequest in question.
 484 #' @return ContainerRequest object.
 485 #' @name container_requests.update
 486 NULL
 487
 488 #' container_requests.delete
 489 #'
 490 #' container_requests.delete is a method defined in Arvados class.
 491 #'
 492 #' @usage arv$container_requests.delete(uuid)
 493 #' @param uuid The UUID of the ContainerRequest in question.
 494 #' @return ContainerRequest object.
 495 #' @name container_requests.delete
 496 NULL
 497
 498 #' container_requests.list
 499 #'
 500 #' container_requests.list is a method defined in Arvados class.
 501 #'
 502 #' @usage arv$container_requests.list(filters = NULL,
 503 #'      where = NULL, order = NULL, select = NULL,
 504 #'      distinct = NULL, limit = "100", offset = "0",
 505 #'      count = "exact", cluster_id = NULL, bypass_federation = NULL,
 506 #'      include_trash = NULL)
 507 #' @param filters
 508 #' @param where
 509 #' @param order
 510 #' @param select
 511 #' @param distinct
 512 #' @param limit
 513 #' @param offset
 514 #' @param count
 515 #' @param cluster_id List objects on a remote federated cluster instead of the current one.
 516 #' @param bypass_federation bypass federation behavior, list items from local instance database only
 517 #' @param include_trash Include container requests whose owner project is trashed.
 518 #' @return ContainerRequestList object.
 519 #' @name container_requests.list
 520 NULL
 521
 522 #' groups.get
 523 #'
 524 #' groups.get is a method defined in Arvados class.
 525 #'
 526 #' @usage arv$groups.get(uuid)
 527 #' @param uuid The UUID of the Group in question.
 528 #' @return Group object.
 529 #' @name groups.get
 530 NULL
 531
 532 #' groups.create
 533 #'
 534 #' groups.create is a method defined in Arvados class.
 535 #'
 536 #' @usage arv$groups.create(group, ensure_unique_name = "false",
 537 #'      cluster_id = NULL, async = "false")
 538 #' @param group Group object.
 539 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 540 #' @param cluster_id Create object on a remote federated cluster instead of the current one.
 541 #' @param async defer permissions update
 542 #' @return Group object.
 543 #' @name groups.create
 544 NULL
 545
 546 #' groups.update
 547 #'
 548 #' groups.update is a method defined in Arvados class.
 549 #'
 550 #' @usage arv$groups.update(group, uuid,
 551 #'      async = "false")
 552 #' @param group Group object.
 553 #' @param uuid The UUID of the Group in question.
 554 #' @param async defer permissions update
 555 #' @return Group object.
 556 #' @name groups.update
 557 NULL
 558
 559 #' groups.delete
 560 #'
 561 #' groups.delete is a method defined in Arvados class.
 562 #'
 563 #' @usage arv$groups.delete(uuid)
 564 #' @param uuid The UUID of the Group in question.
 565 #' @return Group object.
 566 #' @name groups.delete
 567 NULL
 568
 569 #' groups.contents
 570 #'
 571 #' groups.contents is a method defined in Arvados class.
 572 #'
 573 #' @usage arv$groups.contents(filters = NULL,
 574 #'      where = NULL, order = NULL, distinct = NULL,
 575 #'      limit = "100", offset = "0", count = "exact",
 576 #'      cluster_id = NULL, bypass_federation = NULL,
 577 #'      include_trash = NULL, uuid = NULL, recursive = NULL,
 578 #'      include = NULL)
 579 #' @param filters
 580 #' @param where
 581 #' @param order
 582 #' @param distinct
 583 #' @param limit
 584 #' @param offset
 585 #' @param count
 586 #' @param cluster_id List objects on a remote federated cluster instead of the current one.
 587 #' @param bypass_federation bypass federation behavior, list items from local instance database only
 588 #' @param include_trash Include items whose is_trashed attribute is true.
 589 #' @param uuid
 590 #' @param recursive Include contents from child groups recursively.
 591 #' @param include Include objects referred to by listed field in "included" (only owner_uuid)
 592 #' @return Group object.
 593 #' @name groups.contents
 594 NULL
 595
 596 #' groups.shared
 597 #'
 598 #' groups.shared is a method defined in Arvados class.
 599 #'
 600 #' @usage arv$groups.shared(filters = NULL,
 601 #'      where = NULL, order = NULL, select = NULL,
 602 #'      distinct = NULL, limit = "100", offset = "0",
 603 #'      count = "exact", cluster_id = NULL, bypass_federation = NULL,
 604 #'      include_trash = NULL, include = NULL)
 605 #' @param filters
 606 #' @param where
 607 #' @param order
 608 #' @param select
 609 #' @param distinct
 610 #' @param limit
 611 #' @param offset
 612 #' @param count
 613 #' @param cluster_id List objects on a remote federated cluster instead of the current one.
 614 #' @param bypass_federation bypass federation behavior, list items from local instance database only
 615 #' @param include_trash Include items whose is_trashed attribute is true.
 616 #' @param include
 617 #' @return Group object.
 618 #' @name groups.shared
 619 NULL
 620
 621 #' groups.trash
 622 #'
 623 #' groups.trash is a method defined in Arvados class.
 624 #'
 625 #' @usage arv$groups.trash(uuid)
 626 #' @param uuid
 627 #' @return Group object.
 628 #' @name groups.trash
 629 NULL
 630
 631 #' groups.untrash
 632 #'
 633 #' groups.untrash is a method defined in Arvados class.
 634 #'
 635 #' @usage arv$groups.untrash(uuid)
 636 #' @param uuid
 637 #' @return Group object.
 638 #' @name groups.untrash
 639 NULL
 640
 641 #' groups.list
 642 #'
 643 #' groups.list is a method defined in Arvados class.
 644 #'
 645 #' @usage arv$groups.list(filters = NULL,
 646 #'      where = NULL, order = NULL, select = NULL,
 647 #'      distinct = NULL, limit = "100", offset = "0",
 648 #'      count = "exact", cluster_id = NULL, bypass_federation = NULL,
 649 #'      include_trash = NULL)
 650 #' @param filters
 651 #' @param where
 652 #' @param order
 653 #' @param select
 654 #' @param distinct
 655 #' @param limit
 656 #' @param offset
 657 #' @param count
 658 #' @param cluster_id List objects on a remote federated cluster instead of the current one.
 659 #' @param bypass_federation bypass federation behavior, list items from local instance database only
 660 #' @param include_trash Include items whose is_trashed attribute is true.
 661 #' @return GroupList object.
 662 #' @name groups.list
 663 NULL
 664
 665 #' keep_services.get
 666 #'
 667 #' keep_services.get is a method defined in Arvados class.
 668 #'
 669 #' @usage arv$keep_services.get(uuid)
 670 #' @param uuid The UUID of the KeepService in question.
 671 #' @return KeepService object.
 672 #' @name keep_services.get
 673 NULL
 674
 675 #' keep_services.create
 676 #'
 677 #' keep_services.create is a method defined in Arvados class.
 678 #'
 679 #' @usage arv$keep_services.create(keepservice,
 680 #'      ensure_unique_name = "false", cluster_id = NULL)
 681 #' @param keepService KeepService object.
 682 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 683 #' @param cluster_id Create object on a remote federated cluster instead of the current one.
 684 #' @return KeepService object.
 685 #' @name keep_services.create
 686 NULL
 687
 688 #' keep_services.update
 689 #'
 690 #' keep_services.update is a method defined in Arvados class.
 691 #'
 692 #' @usage arv$keep_services.update(keepservice,
 693 #'      uuid)
 694 #' @param keepService KeepService object.
 695 #' @param uuid The UUID of the KeepService in question.
 696 #' @return KeepService object.
 697 #' @name keep_services.update
 698 NULL
 699
 700 #' keep_services.delete
 701 #'
 702 #' keep_services.delete is a method defined in Arvados class.
 703 #'
 704 #' @usage arv$keep_services.delete(uuid)
 705 #' @param uuid The UUID of the KeepService in question.
 706 #' @return KeepService object.
 707 #' @name keep_services.delete
 708 NULL
 709
 710 #' keep_services.accessible
 711 #'
 712 #' keep_services.accessible is a method defined in Arvados class.
 713 #'
 714 #' @usage arv$keep_services.accessible(NULL)
 715 #' @return KeepService object.
 716 #' @name keep_services.accessible
 717 NULL
 718
 719 #' keep_services.list
 720 #'
 721 #' keep_services.list is a method defined in Arvados class.
 722 #'
 723 #' @usage arv$keep_services.list(filters = NULL,
 724 #'      where = NULL, order = NULL, select = NULL,
 725 #'      distinct = NULL, limit = "100", offset = "0",
 726 #'      count = "exact", cluster_id = NULL, bypass_federation = NULL)
 727 #' @param filters
 728 #' @param where
 729 #' @param order
 730 #' @param select
 731 #' @param distinct
 732 #' @param limit
 733 #' @param offset
 734 #' @param count
 735 #' @param cluster_id List objects on a remote federated cluster instead of the current one.
 736 #' @param bypass_federation bypass federation behavior, list items from local instance database only
 737 #' @return KeepServiceList object.
 738 #' @name keep_services.list
 739 NULL
 740
 741 #' links.get
 742 #'
 743 #' links.get is a method defined in Arvados class.
 744 #'
 745 #' @usage arv$links.get(uuid)
 746 #' @param uuid The UUID of the Link in question.
 747 #' @return Link object.
 748 #' @name links.get
 749 NULL
 750
 751 #' links.create
 752 #'
 753 #' links.create is a method defined in Arvados class.
 754 #'
 755 #' @usage arv$links.create(link, ensure_unique_name = "false",
 756 #'      cluster_id = NULL)
 757 #' @param link Link object.
 758 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 759 #' @param cluster_id Create object on a remote federated cluster instead of the current one.
 760 #' @return Link object.
 761 #' @name links.create
 762 NULL
 763
 764 #' links.update
 765 #'
 766 #' links.update is a method defined in Arvados class.
 767 #'
 768 #' @usage arv$links.update(link, uuid)
 769 #' @param link Link object.
 770 #' @param uuid The UUID of the Link in question.
 771 #' @return Link object.
 772 #' @name links.update
 773 NULL
 774
 775 #' links.delete
 776 #'
 777 #' links.delete is a method defined in Arvados class.
 778 #'
 779 #' @usage arv$links.delete(uuid)
 780 #' @param uuid The UUID of the Link in question.
 781 #' @return Link object.
 782 #' @name links.delete
 783 NULL
 784
 785 #' links.list
 786 #'
 787 #' links.list is a method defined in Arvados class.
 788 #'
 789 #' @usage arv$links.list(filters = NULL,
 790 #'      where = NULL, order = NULL, select = NULL,
 791 #'      distinct = NULL, limit = "100", offset = "0",
 792 #'      count = "exact", cluster_id = NULL, bypass_federation = NULL)
 793 #' @param filters
 794 #' @param where
 795 #' @param order
 796 #' @param select
 797 #' @param distinct
 798 #' @param limit
 799 #' @param offset
 800 #' @param count
 801 #' @param cluster_id List objects on a remote federated cluster instead of the current one.
 802 #' @param bypass_federation bypass federation behavior, list items from local instance database only
 803 #' @return LinkList object.
 804 #' @name links.list
 805 NULL
 806
 807 #' links.get_permissions
 808 #'
 809 #' links.get_permissions is a method defined in Arvados class.
 810 #'
 811 #' @usage arv$links.get_permissions(uuid)
 812 #' @param uuid
 813 #' @return Link object.
 814 #' @name links.get_permissions
 815 NULL
 816
 817 #' logs.get
 818 #'
 819 #' logs.get is a method defined in Arvados class.
 820 #'
 821 #' @usage arv$logs.get(uuid)
 822 #' @param uuid The UUID of the Log in question.
 823 #' @return Log object.
 824 #' @name logs.get
 825 NULL
 826
 827 #' logs.create
 828 #'
 829 #' logs.create is a method defined in Arvados class.
 830 #'
 831 #' @usage arv$logs.create(log, ensure_unique_name = "false",
 832 #'      cluster_id = NULL)
 833 #' @param log Log object.
 834 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 835 #' @param cluster_id Create object on a remote federated cluster instead of the current one.
 836 #' @return Log object.
 837 #' @name logs.create
 838 NULL
 839
 840 #' logs.update
 841 #'
 842 #' logs.update is a method defined in Arvados class.
 843 #'
 844 #' @usage arv$logs.update(log, uuid)
 845 #' @param log Log object.
 846 #' @param uuid The UUID of the Log in question.
 847 #' @return Log object.
 848 #' @name logs.update
 849 NULL
 850
 851 #' logs.delete
 852 #'
 853 #' logs.delete is a method defined in Arvados class.
 854 #'
 855 #' @usage arv$logs.delete(uuid)
 856 #' @param uuid The UUID of the Log in question.
 857 #' @return Log object.
 858 #' @name logs.delete
 859 NULL
 860
 861 #' logs.list
 862 #'
 863 #' logs.list is a method defined in Arvados class.
 864 #'
 865 #' @usage arv$logs.list(filters = NULL, where = NULL,
 866 #'      order = NULL, select = NULL, distinct = NULL,
 867 #'      limit = "100", offset = "0", count = "exact",
 868 #'      cluster_id = NULL, bypass_federation = NULL)
 869 #' @param filters
 870 #' @param where
 871 #' @param order
 872 #' @param select
 873 #' @param distinct
 874 #' @param limit
 875 #' @param offset
 876 #' @param count
 877 #' @param cluster_id List objects on a remote federated cluster instead of the current one.
 878 #' @param bypass_federation bypass federation behavior, list items from local instance database only
 879 #' @return LogList object.
 880 #' @name logs.list
 881 NULL
 882
 883 #' users.get
 884 #'
 885 #' users.get is a method defined in Arvados class.
 886 #'
 887 #' @usage arv$users.get(uuid)
 888 #' @param uuid The UUID of the User in question.
 889 #' @return User object.
 890 #' @name users.get
 891 NULL
 892
 893 #' users.create
 894 #'
 895 #' users.create is a method defined in Arvados class.
 896 #'
 897 #' @usage arv$users.create(user, ensure_unique_name = "false",
 898 #'      cluster_id = NULL)
 899 #' @param user User object.
 900 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 901 #' @param cluster_id Create object on a remote federated cluster instead of the current one.
 902 #' @return User object.
 903 #' @name users.create
 904 NULL
 905
 906 #' users.update
 907 #'
 908 #' users.update is a method defined in Arvados class.
 909 #'
 910 #' @usage arv$users.update(user, uuid, bypass_federation = NULL)
 911 #' @param user User object.
 912 #' @param uuid The UUID of the User in question.
 913 #' @param bypass_federation
 914 #' @return User object.
 915 #' @name users.update
 916 NULL
 917
 918 #' users.delete
 919 #'
 920 #' users.delete is a method defined in Arvados class.
 921 #'
 922 #' @usage arv$users.delete(uuid)
 923 #' @param uuid The UUID of the User in question.
 924 #' @return User object.
 925 #' @name users.delete
 926 NULL
 927
 928 #' users.current
 929 #'
 930 #' users.current is a method defined in Arvados class.
 931 #'
 932 #' @usage arv$users.current(NULL)
 933 #' @return User object.
 934 #' @name users.current
 935 NULL
 936
 937 #' users.system
 938 #'
 939 #' users.system is a method defined in Arvados class.
 940 #'
 941 #' @usage arv$users.system(NULL)
 942 #' @return User object.
 943 #' @name users.system
 944 NULL
 945
 946 #' users.activate
 947 #'
 948 #' users.activate is a method defined in Arvados class.
 949 #'
 950 #' @usage arv$users.activate(uuid)
 951 #' @param uuid
 952 #' @return User object.
 953 #' @name users.activate
 954 NULL
 955
 956 #' users.setup
 957 #'
 958 #' users.setup is a method defined in Arvados class.
 959 #'
 960 #' @usage arv$users.setup(uuid = NULL, user = NULL,
 961 #'      repo_name = NULL, vm_uuid = NULL, send_notification_email = "false")
 962 #' @param uuid
 963 #' @param user
 964 #' @param repo_name
 965 #' @param vm_uuid
 966 #' @param send_notification_email
 967 #' @return User object.
 968 #' @name users.setup
 969 NULL
 970
 971 #' users.unsetup
 972 #'
 973 #' users.unsetup is a method defined in Arvados class.
 974 #'
 975 #' @usage arv$users.unsetup(uuid)
 976 #' @param uuid
 977 #' @return User object.
 978 #' @name users.unsetup
 979 NULL
 980
 981 #' users.update_uuid
 982 #'
 983 #' users.update_uuid is a method defined in Arvados class.
 984 #'
 985 #' @usage arv$users.update_uuid(uuid, new_uuid)
 986 #' @param uuid
 987 #' @param new_uuid
 988 #' @return User object.
 989 #' @name users.update_uuid
 990 NULL
 991
 992 #' users.merge
 993 #'
 994 #' users.merge is a method defined in Arvados class.
 995 #'
 996 #' @usage arv$users.merge(new_owner_uuid,
 997 #'      new_user_token = NULL, redirect_to_new_user = NULL,
 998 #'      old_user_uuid = NULL, new_user_uuid = NULL)
 999 #' @param new_owner_uuid
1000 #' @param new_user_token
1001 #' @param redirect_to_new_user
1002 #' @param old_user_uuid
1003 #' @param new_user_uuid
1004 #' @return User object.
1005 #' @name users.merge
1006 NULL
1007
1008 #' users.list
1009 #'
1010 #' users.list is a method defined in Arvados class.
1011 #'
1012 #' @usage arv$users.list(filters = NULL,
1013 #'      where = NULL, order = NULL, select = NULL,
1014 #'      distinct = NULL, limit = "100", offset = "0",
1015 #'      count = "exact", cluster_id = NULL, bypass_federation = NULL)
1016 #' @param filters
1017 #' @param where
1018 #' @param order
1019 #' @param select
1020 #' @param distinct
1021 #' @param limit
1022 #' @param offset
1023 #' @param count
1024 #' @param cluster_id List objects on a remote federated cluster instead of the current one.
1025 #' @param bypass_federation bypass federation behavior, list items from local instance database only
1026 #' @return UserList object.
1027 #' @name users.list
1028 NULL
1029
1030 #' repositories.get
1031 #'
1032 #' repositories.get is a method defined in Arvados class.
1033 #'
1034 #' @usage arv$repositories.get(uuid)
1035 #' @param uuid The UUID of the Repository in question.
1036 #' @return Repository object.
1037 #' @name repositories.get
1038 NULL
1039
1040 #' repositories.create
1041 #'
1042 #' repositories.create is a method defined in Arvados class.
1043 #'
1044 #' @usage arv$repositories.create(repository,
1045 #'      ensure_unique_name = "false", cluster_id = NULL)
1046 #' @param repository Repository object.
1047 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1048 #' @param cluster_id Create object on a remote federated cluster instead of the current one.
1049 #' @return Repository object.
1050 #' @name repositories.create
1051 NULL
1052
1053 #' repositories.update
1054 #'
1055 #' repositories.update is a method defined in Arvados class.
1056 #'
1057 #' @usage arv$repositories.update(repository,
1058 #'      uuid)
1059 #' @param repository Repository object.
1060 #' @param uuid The UUID of the Repository in question.
1061 #' @return Repository object.
1062 #' @name repositories.update
1063 NULL
1064
1065 #' repositories.delete
1066 #'
1067 #' repositories.delete is a method defined in Arvados class.
1068 #'
1069 #' @usage arv$repositories.delete(uuid)
1070 #' @param uuid The UUID of the Repository in question.
1071 #' @return Repository object.
1072 #' @name repositories.delete
1073 NULL
1074
1075 #' repositories.get_all_permissions
1076 #'
1077 #' repositories.get_all_permissions is a method defined in Arvados class.
1078 #'
1079 #' @usage arv$repositories.get_all_permissions(NULL)
1080 #' @return Repository object.
1081 #' @name repositories.get_all_permissions
1082 NULL
1083
1084 #' repositories.list
1085 #'
1086 #' repositories.list is a method defined in Arvados class.
1087 #'
1088 #' @usage arv$repositories.list(filters = NULL,
1089 #'      where = NULL, order = NULL, select = NULL,
1090 #'      distinct = NULL, limit = "100", offset = "0",
1091 #'      count = "exact", cluster_id = NULL, bypass_federation = NULL)
1092 #' @param filters
1093 #' @param where
1094 #' @param order
1095 #' @param select
1096 #' @param distinct
1097 #' @param limit
1098 #' @param offset
1099 #' @param count
1100 #' @param cluster_id List objects on a remote federated cluster instead of the current one.
1101 #' @param bypass_federation bypass federation behavior, list items from local instance database only
1102 #' @return RepositoryList object.
1103 #' @name repositories.list
1104 NULL
1105
1106 #' virtual_machines.get
1107 #'
1108 #' virtual_machines.get is a method defined in Arvados class.
1109 #'
1110 #' @usage arv$virtual_machines.get(uuid)
1111 #' @param uuid The UUID of the VirtualMachine in question.
1112 #' @return VirtualMachine object.
1113 #' @name virtual_machines.get
1114 NULL
1115
1116 #' virtual_machines.create
1117 #'
1118 #' virtual_machines.create is a method defined in Arvados class.
1119 #'
1120 #' @usage arv$virtual_machines.create(virtualmachine,
1121 #'      ensure_unique_name = "false", cluster_id = NULL)
1122 #' @param virtualMachine VirtualMachine object.
1123 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1124 #' @param cluster_id Create object on a remote federated cluster instead of the current one.
1125 #' @return VirtualMachine object.
1126 #' @name virtual_machines.create
1127 NULL
1128
1129 #' virtual_machines.update
1130 #'
1131 #' virtual_machines.update is a method defined in Arvados class.
1132 #'
1133 #' @usage arv$virtual_machines.update(virtualmachine,
1134 #'      uuid)
1135 #' @param virtualMachine VirtualMachine object.
1136 #' @param uuid The UUID of the VirtualMachine in question.
1137 #' @return VirtualMachine object.
1138 #' @name virtual_machines.update
1139 NULL
1140
1141 #' virtual_machines.delete
1142 #'
1143 #' virtual_machines.delete is a method defined in Arvados class.
1144 #'
1145 #' @usage arv$virtual_machines.delete(uuid)
1146 #' @param uuid The UUID of the VirtualMachine in question.
1147 #' @return VirtualMachine object.
1148 #' @name virtual_machines.delete
1149 NULL
1150
1151 #' virtual_machines.logins
1152 #'
1153 #' virtual_machines.logins is a method defined in Arvados class.
1154 #'
1155 #' @usage arv$virtual_machines.logins(uuid)
1156 #' @param uuid
1157 #' @return VirtualMachine object.
1158 #' @name virtual_machines.logins
1159 NULL
1160
1161 #' virtual_machines.get_all_logins
1162 #'
1163 #' virtual_machines.get_all_logins is a method defined in Arvados class.
1164 #'
1165 #' @usage arv$virtual_machines.get_all_logins(NULL)
1166 #' @return VirtualMachine object.
1167 #' @name virtual_machines.get_all_logins
1168 NULL
1169
1170 #' virtual_machines.list
1171 #'
1172 #' virtual_machines.list is a method defined in Arvados class.
1173 #'
1174 #' @usage arv$virtual_machines.list(filters = NULL,
1175 #'      where = NULL, order = NULL, select = NULL,
1176 #'      distinct = NULL, limit = "100", offset = "0",
1177 #'      count = "exact", cluster_id = NULL, bypass_federation = NULL)
1178 #' @param filters
1179 #' @param where
1180 #' @param order
1181 #' @param select
1182 #' @param distinct
1183 #' @param limit
1184 #' @param offset
1185 #' @param count
1186 #' @param cluster_id List objects on a remote federated cluster instead of the current one.
1187 #' @param bypass_federation bypass federation behavior, list items from local instance database only
1188 #' @return VirtualMachineList object.
1189 #' @name virtual_machines.list
1190 NULL
1191
1192 #' workflows.get
1193 #'
1194 #' workflows.get is a method defined in Arvados class.
1195 #'
1196 #' @usage arv$workflows.get(uuid)
1197 #' @param uuid The UUID of the Workflow in question.
1198 #' @return Workflow object.
1199 #' @name workflows.get
1200 NULL
1201
1202 #' workflows.create
1203 #'
1204 #' workflows.create is a method defined in Arvados class.
1205 #'
1206 #' @usage arv$workflows.create(workflow,
1207 #'      ensure_unique_name = "false", cluster_id = NULL)
1208 #' @param workflow Workflow object.
1209 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1210 #' @param cluster_id Create object on a remote federated cluster instead of the current one.
1211 #' @return Workflow object.
1212 #' @name workflows.create
1213 NULL
1214
1215 #' workflows.update
1216 #'
1217 #' workflows.update is a method defined in Arvados class.
1218 #'
1219 #' @usage arv$workflows.update(workflow,
1220 #'      uuid)
1221 #' @param workflow Workflow object.
1222 #' @param uuid The UUID of the Workflow in question.
1223 #' @return Workflow object.
1224 #' @name workflows.update
1225 NULL
1226
1227 #' workflows.delete
1228 #'
1229 #' workflows.delete is a method defined in Arvados class.
1230 #'
1231 #' @usage arv$workflows.delete(uuid)
1232 #' @param uuid The UUID of the Workflow in question.
1233 #' @return Workflow object.
1234 #' @name workflows.delete
1235 NULL
1236
1237 #' workflows.list
1238 #'
1239 #' workflows.list is a method defined in Arvados class.
1240 #'
1241 #' @usage arv$workflows.list(filters = NULL,
1242 #'      where = NULL, order = NULL, select = NULL,
1243 #'      distinct = NULL, limit = "100", offset = "0",
1244 #'      count = "exact", cluster_id = NULL, bypass_federation = NULL)
1245 #' @param filters
1246 #' @param where
1247 #' @param order
1248 #' @param select
1249 #' @param distinct
1250 #' @param limit
1251 #' @param offset
1252 #' @param count
1253 #' @param cluster_id List objects on a remote federated cluster instead of the current one.
1254 #' @param bypass_federation bypass federation behavior, list items from local instance database only
1255 #' @return WorkflowList object.
1256 #' @name workflows.list
1257 NULL
1258
1259 #' user_agreements.get
1260 #'
1261 #' user_agreements.get is a method defined in Arvados class.
1262 #'
1263 #' @usage arv$user_agreements.get(uuid)
1264 #' @param uuid The UUID of the UserAgreement in question.
1265 #' @return UserAgreement object.
1266 #' @name user_agreements.get
1267 NULL
1268
1269 #' user_agreements.create
1270 #'
1271 #' user_agreements.create is a method defined in Arvados class.
1272 #'
1273 #' @usage arv$user_agreements.create(useragreement,
1274 #'      ensure_unique_name = "false", cluster_id = NULL)
1275 #' @param userAgreement UserAgreement object.
1276 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1277 #' @param cluster_id Create object on a remote federated cluster instead of the current one.
1278 #' @return UserAgreement object.
1279 #' @name user_agreements.create
1280 NULL
1281
1282 #' user_agreements.update
1283 #'
1284 #' user_agreements.update is a method defined in Arvados class.
1285 #'
1286 #' @usage arv$user_agreements.update(useragreement,
1287 #'      uuid)
1288 #' @param userAgreement UserAgreement object.
1289 #' @param uuid The UUID of the UserAgreement in question.
1290 #' @return UserAgreement object.
1291 #' @name user_agreements.update
1292 NULL
1293
1294 #' user_agreements.delete
1295 #'
1296 #' user_agreements.delete is a method defined in Arvados class.
1297 #'
1298 #' @usage arv$user_agreements.delete(uuid)
1299 #' @param uuid The UUID of the UserAgreement in question.
1300 #' @return UserAgreement object.
1301 #' @name user_agreements.delete
1302 NULL
1303
1304 #' user_agreements.signatures
1305 #'
1306 #' user_agreements.signatures is a method defined in Arvados class.
1307 #'
1308 #' @usage arv$user_agreements.signatures(NULL)
1309 #' @return UserAgreement object.
1310 #' @name user_agreements.signatures
1311 NULL
1312
1313 #' user_agreements.sign
1314 #'
1315 #' user_agreements.sign is a method defined in Arvados class.
1316 #'
1317 #' @usage arv$user_agreements.sign(NULL)
1318 #' @return UserAgreement object.
1319 #' @name user_agreements.sign
1320 NULL
1321
1322 #' user_agreements.list
1323 #'
1324 #' user_agreements.list is a method defined in Arvados class.
1325 #'
1326 #' @usage arv$user_agreements.list(filters = NULL,
1327 #'      where = NULL, order = NULL, select = NULL,
1328 #'      distinct = NULL, limit = "100", offset = "0",
1329 #'      count = "exact", cluster_id = NULL, bypass_federation = NULL)
1330 #' @param filters
1331 #' @param where
1332 #' @param order
1333 #' @param select
1334 #' @param distinct
1335 #' @param limit
1336 #' @param offset
1337 #' @param count
1338 #' @param cluster_id List objects on a remote federated cluster instead of the current one.
1339 #' @param bypass_federation bypass federation behavior, list items from local instance database only
1340 #' @return UserAgreementList object.
1341 #' @name user_agreements.list
1342 NULL
1343
1344 #' user_agreements.new
1345 #'
1346 #' user_agreements.new is a method defined in Arvados class.
1347 #'
1348 #' @usage arv$user_agreements.new(NULL)
1349 #' @return UserAgreement object.
1350 #' @name user_agreements.new
1351 NULL
1352
1353 #' configs.get
1354 #'
1355 #' configs.get is a method defined in Arvados class.
1356 #'
1357 #' @usage arv$configs.get(NULL)
1358 #' @return  object.
1359 #' @name configs.get
1360 NULL
1361
1362 #' project.get
1363 #'
1364 #' projects.get is equivalent to groups.get method.
1365 #'
1366 #' @usage arv$projects.get(uuid)
1367 #' @param uuid The UUID of the Group in question.
1368 #' @return Group object.
1369 #' @name projects.get
1370 NULL
1371
1372 #' project.create
1373 #'
1374 #' projects.create wrapps groups.create method by setting group_class attribute to "project".
1375 #'
1376 #' @usage arv$projects.create(group, ensure_unique_name = "false")
1377 #' @param group Group object.
1378 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1379 #' @return Group object.
1380 #' @name projects.create
1381 NULL
1382
1383 #' project.update
1384 #'
1385 #' projects.update wrapps groups.update method by setting group_class attribute to "project".
1386 #'
1387 #' @usage arv$projects.update(group, uuid)
1388 #' @param group Group object.
1389 #' @param uuid The UUID of the Group in question.
1390 #' @return Group object.
1391 #' @name projects.update
1392 NULL
1393
1394 #' project.delete
1395 #'
1396 #' projects.delete is equivalent to groups.delete method.
1397 #'
1398 #' @usage arv$project.delete(uuid)
1399 #' @param uuid The UUID of the Group in question.
1400 #' @return Group object.
1401 #' @name projects.delete
1402 NULL
1403
1404 #' project.list
1405 #'
1406 #' projects.list wrapps groups.list method by setting group_class attribute to "project".
1407 #'
1408 #' @usage arv$projects.list(filters = NULL,
1409 #'      where = NULL, order = NULL, distinct = NULL,
1410 #'      limit = "100", offset = "0", count = "exact",
1411 #'      include_trash = NULL, uuid = NULL, recursive = NULL)
1412 #' @param filters
1413 #' @param where
1414 #' @param order
1415 #' @param distinct
1416 #' @param limit
1417 #' @param offset
1418 #' @param count
1419 #' @param include_trash Include items whose is_trashed attribute is true.
1420 #' @param uuid
1421 #' @param recursive Include contents from child groups recursively.
1422 #' @return Group object.
1423 #' @name projects.list
1424 NULL
1425
1426 #' Arvados
1427 #'
1428 #' Arvados class gives users ability to access Arvados REST API.
1429 #'
1430 #' @section Usage:
1431 #' \preformatted{arv = Arvados$new(authToken = NULL, hostName = NULL, numRetries = 0)}
1432 #'
1433 #' @section Arguments:
1434 #' \describe{
1435 #'      \item{authToken}{Authentification token. If not specified ARVADOS_API_TOKEN environment variable will be used.}
1436 #'      \item{hostName}{Host name. If not specified ARVADOS_API_HOST environment variable will be used.}
1437 #'      \item{numRetries}{Number which specifies how many times to retry failed service requests.}
1438 #' }
1439 #'
1440 #' @section Methods:
1441 #' \describe{
1442 #'      \item{}{\code{\link{api_client_authorizations.create}}}
1443 #'      \item{}{\code{\link{api_client_authorizations.create_system_auth}}}
1444 #'      \item{}{\code{\link{api_client_authorizations.current}}}
1445 #'      \item{}{\code{\link{api_client_authorizations.delete}}}
1446 #'      \item{}{\code{\link{api_client_authorizations.get}}}
1447 #'      \item{}{\code{\link{api_client_authorizations.list}}}
1448 #'      \item{}{\code{\link{api_client_authorizations.update}}}
1449 #'      \item{}{\code{\link{api_clients.create}}}
1450 #'      \item{}{\code{\link{api_clients.delete}}}
1451 #'      \item{}{\code{\link{api_clients.get}}}
1452 #'      \item{}{\code{\link{api_clients.list}}}
1453 #'      \item{}{\code{\link{api_clients.update}}}
1454 #'      \item{}{\code{\link{authorized_keys.create}}}
1455 #'      \item{}{\code{\link{authorized_keys.delete}}}
1456 #'      \item{}{\code{\link{authorized_keys.get}}}
1457 #'      \item{}{\code{\link{authorized_keys.list}}}
1458 #'      \item{}{\code{\link{authorized_keys.update}}}
1459 #'      \item{}{\code{\link{collections.create}}}
1460 #'      \item{}{\code{\link{collections.delete}}}
1461 #'      \item{}{\code{\link{collections.get}}}
1462 #'      \item{}{\code{\link{collections.list}}}
1463 #'      \item{}{\code{\link{collections.provenance}}}
1464 #'      \item{}{\code{\link{collections.trash}}}
1465 #'      \item{}{\code{\link{collections.untrash}}}
1466 #'      \item{}{\code{\link{collections.update}}}
1467 #'      \item{}{\code{\link{collections.used_by}}}
1468 #'      \item{}{\code{\link{configs.get}}}
1469 #'      \item{}{\code{\link{container_requests.create}}}
1470 #'      \item{}{\code{\link{container_requests.delete}}}
1471 #'      \item{}{\code{\link{container_requests.get}}}
1472 #'      \item{}{\code{\link{container_requests.list}}}
1473 #'      \item{}{\code{\link{container_requests.update}}}
1474 #'      \item{}{\code{\link{containers.auth}}}
1475 #'      \item{}{\code{\link{containers.create}}}
1476 #'      \item{}{\code{\link{containers.current}}}
1477 #'      \item{}{\code{\link{containers.delete}}}
1478 #'      \item{}{\code{\link{containers.get}}}
1479 #'      \item{}{\code{\link{containers.list}}}
1480 #'      \item{}{\code{\link{containers.lock}}}
1481 #'      \item{}{\code{\link{containers.secret_mounts}}}
1482 #'      \item{}{\code{\link{containers.unlock}}}
1483 #'      \item{}{\code{\link{containers.update}}}
1484 #'      \item{}{\code{\link{groups.contents}}}
1485 #'      \item{}{\code{\link{groups.create}}}
1486 #'      \item{}{\code{\link{groups.delete}}}
1487 #'      \item{}{\code{\link{groups.get}}}
1488 #'      \item{}{\code{\link{groups.list}}}
1489 #'      \item{}{\code{\link{groups.shared}}}
1490 #'      \item{}{\code{\link{groups.trash}}}
1491 #'      \item{}{\code{\link{groups.untrash}}}
1492 #'      \item{}{\code{\link{groups.update}}}
1493 #'      \item{}{\code{\link{keep_services.accessible}}}
1494 #'      \item{}{\code{\link{keep_services.create}}}
1495 #'      \item{}{\code{\link{keep_services.delete}}}
1496 #'      \item{}{\code{\link{keep_services.get}}}
1497 #'      \item{}{\code{\link{keep_services.list}}}
1498 #'      \item{}{\code{\link{keep_services.update}}}
1499 #'      \item{}{\code{\link{links.create}}}
1500 #'      \item{}{\code{\link{links.delete}}}
1501 #'      \item{}{\code{\link{links.get}}}
1502 #'      \item{}{\code{\link{links.get_permissions}}}
1503 #'      \item{}{\code{\link{links.list}}}
1504 #'      \item{}{\code{\link{links.update}}}
1505 #'      \item{}{\code{\link{logs.create}}}
1506 #'      \item{}{\code{\link{logs.delete}}}
1507 #'      \item{}{\code{\link{logs.get}}}
1508 #'      \item{}{\code{\link{logs.list}}}
1509 #'      \item{}{\code{\link{logs.update}}}
1510 #'      \item{}{\code{\link{projects.create}}}
1511 #'      \item{}{\code{\link{projects.delete}}}
1512 #'      \item{}{\code{\link{projects.get}}}
1513 #'      \item{}{\code{\link{projects.list}}}
1514 #'      \item{}{\code{\link{projects.update}}}
1515 #'      \item{}{\code{\link{repositories.create}}}
1516 #'      \item{}{\code{\link{repositories.delete}}}
1517 #'      \item{}{\code{\link{repositories.get}}}
1518 #'      \item{}{\code{\link{repositories.get_all_permissions}}}
1519 #'      \item{}{\code{\link{repositories.list}}}
1520 #'      \item{}{\code{\link{repositories.update}}}
1521 #'      \item{}{\code{\link{user_agreements.create}}}
1522 #'      \item{}{\code{\link{user_agreements.delete}}}
1523 #'      \item{}{\code{\link{user_agreements.get}}}
1524 #'      \item{}{\code{\link{user_agreements.list}}}
1525 #'      \item{}{\code{\link{user_agreements.new}}}
1526 #'      \item{}{\code{\link{user_agreements.sign}}}
1527 #'      \item{}{\code{\link{user_agreements.signatures}}}
1528 #'      \item{}{\code{\link{user_agreements.update}}}
1529 #'      \item{}{\code{\link{users.activate}}}
1530 #'      \item{}{\code{\link{users.create}}}
1531 #'      \item{}{\code{\link{users.current}}}
1532 #'      \item{}{\code{\link{users.delete}}}
1533 #'      \item{}{\code{\link{users.get}}}
1534 #'      \item{}{\code{\link{users.list}}}
1535 #'      \item{}{\code{\link{users.merge}}}
1536 #'      \item{}{\code{\link{users.setup}}}
1537 #'      \item{}{\code{\link{users.system}}}
1538 #'      \item{}{\code{\link{users.unsetup}}}
1539 #'      \item{}{\code{\link{users.update}}}
1540 #'      \item{}{\code{\link{users.update_uuid}}}
1541 #'      \item{}{\code{\link{virtual_machines.create}}}
1542 #'      \item{}{\code{\link{virtual_machines.delete}}}
1543 #'      \item{}{\code{\link{virtual_machines.get}}}
1544 #'      \item{}{\code{\link{virtual_machines.get_all_logins}}}
1545 #'      \item{}{\code{\link{virtual_machines.list}}}
1546 #'      \item{}{\code{\link{virtual_machines.logins}}}
1547 #'      \item{}{\code{\link{virtual_machines.update}}}
1548 #'      \item{}{\code{\link{workflows.create}}}
1549 #'      \item{}{\code{\link{workflows.delete}}}
1550 #'      \item{}{\code{\link{workflows.get}}}
1551 #'      \item{}{\code{\link{workflows.list}}}
1552 #'      \item{}{\code{\link{workflows.update}}}
1553 #' }
1554 #'
1555 #' @name Arvados
1556 #' @examples
1557 #' \dontrun{
1558 #' arv <- Arvados$new("your Arvados token", "example.arvadosapi.com")
1559 #'
1560 #' collection <- arv$collections.get("uuid")
1561 #'
1562 #' collectionList <- arv$collections.list(list(list("name", "like", "Test%")))
1563 #' collectionList <- listAll(arv$collections.list, list(list("name", "like", "Test%")))
1564 #'
1565 #' deletedCollection <- arv$collections.delete("uuid")
1566 #'
1567 #' updatedCollection <- arv$collections.update(list(name = "New name", description = "New description"),
1568 #'                                             "uuid")
1569 #'
1570 #' createdCollection <- arv$collections.create(list(name = "Example",
1571 #'                                                  description = "This is a test collection"))
1572 #' }
1573 NULL
1574
1575 #' @export
1576 Arvados <- R6::R6Class(
1577
1578         "Arvados",
1579
1580         public = list(
1581
1582                 initialize = function(authToken = NULL, hostName = NULL, numRetries = 0)
1583                 {
1584                         if(!is.null(hostName))
1585                                 Sys.setenv(ARVADOS_API_HOST = hostName)
1586
1587                         if(!is.null(authToken))
1588                                 Sys.setenv(ARVADOS_API_TOKEN = authToken)
1589
1590                         hostName <- Sys.getenv("ARVADOS_API_HOST")
1591                         token    <- Sys.getenv("ARVADOS_API_TOKEN")
1592
1593                         if(hostName == "" | token == "")
1594                                 stop(paste("Please provide host name and authentification token",
1595                                                    "or set ARVADOS_API_HOST and ARVADOS_API_TOKEN",
1596                                                    "environment variables."))
1597
1598                         private$token <- token
1599                         private$host  <- paste0("https://", hostName, "/arvados/v1/")
1600                         private$numRetries <- numRetries
1601                         private$REST <- RESTService$new(token, hostName,
1602                                                         HttpRequest$new(), HttpParser$new(),
1603                                                         numRetries)
1604
1605                 },
1606
1607                 projects.get = function(uuid)
1608                 {
1609                         self$groups.get(uuid)
1610                 },
1611
1612                 projects.create = function(group, ensure_unique_name = "false")
1613                 {
1614                         group <- c("group_class" = "project", group)
1615                         self$groups.create(group, ensure_unique_name)
1616                 },
1617
1618                 projects.update = function(group, uuid)
1619                 {
1620                         group <- c("group_class" = "project", group)
1621                         self$groups.update(group, uuid)
1622                 },
1623
1624                 projects.list = function(filters = NULL, where = NULL,
1625                         order = NULL, select = NULL, distinct = NULL,
1626                         limit = "100", offset = "0", count = "exact",
1627                         include_trash = NULL)
1628                 {
1629                         filters[[length(filters) + 1]] <- list("group_class", "=", "project")
1630                         self$groups.list(filters, where, order, select, distinct,
1631                                          limit, offset, count, include_trash)
1632                 },
1633
1634                 projects.delete = function(uuid)
1635                 {
1636                         self$groups.delete(uuid)
1637                 },
1638
1639                 api_clients.get = function(uuid)
1640                 {
1641                         endPoint <- stringr::str_interp("api_clients/${uuid}")
1642                         url <- paste0(private$host, endPoint)
1643                         headers <- list(Authorization = paste("Bearer", private$token),
1644                                         "Content-Type" = "application/json")
1645                         queryArgs <- NULL
1646
1647                         body <- NULL
1648
1649                         response <- private$REST$http$exec("GET", url, headers, body,
1650                                                            queryArgs, private$numRetries)
1651                         resource <- private$REST$httpParser$parseJSONResponse(response)
1652
1653                         if(!is.null(resource$errors))
1654                                 stop(resource$errors)
1655
1656                         resource
1657                 },
1658
1659                 api_clients.create = function(apiclient,
1660                         ensure_unique_name = "false", cluster_id = NULL)
1661                 {
1662                         endPoint <- stringr::str_interp("api_clients")
1663                         url <- paste0(private$host, endPoint)
1664                         headers <- list(Authorization = paste("Bearer", private$token),
1665                                         "Content-Type" = "application/json")
1666                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
1667                                                           cluster_id = cluster_id)
1668
1669                         if(length(apiclient) > 0)
1670                                 body <- jsonlite::toJSON(list(apiclient = apiclient),
1671                                                          auto_unbox = TRUE)
1672                         else
1673                                 body <- NULL
1674
1675                         response <- private$REST$http$exec("POST", url, headers, body,
1676                                                            queryArgs, private$numRetries)
1677                         resource <- private$REST$httpParser$parseJSONResponse(response)
1678
1679                         if(!is.null(resource$errors))
1680                                 stop(resource$errors)
1681
1682                         resource
1683                 },
1684
1685                 api_clients.update = function(apiclient, uuid)
1686                 {
1687                         endPoint <- stringr::str_interp("api_clients/${uuid}")
1688                         url <- paste0(private$host, endPoint)
1689                         headers <- list(Authorization = paste("Bearer", private$token),
1690                                         "Content-Type" = "application/json")
1691                         queryArgs <- NULL
1692
1693                         if(length(apiclient) > 0)
1694                                 body <- jsonlite::toJSON(list(apiclient = apiclient),
1695                                                          auto_unbox = TRUE)
1696                         else
1697                                 body <- NULL
1698
1699                         response <- private$REST$http$exec("PUT", url, headers, body,
1700                                                            queryArgs, private$numRetries)
1701                         resource <- private$REST$httpParser$parseJSONResponse(response)
1702
1703                         if(!is.null(resource$errors))
1704                                 stop(resource$errors)
1705
1706                         resource
1707                 },
1708
1709                 api_clients.delete = function(uuid)
1710                 {
1711                         endPoint <- stringr::str_interp("api_clients/${uuid}")
1712                         url <- paste0(private$host, endPoint)
1713                         headers <- list(Authorization = paste("Bearer", private$token),
1714                                         "Content-Type" = "application/json")
1715                         queryArgs <- NULL
1716
1717                         body <- NULL
1718
1719                         response <- private$REST$http$exec("DELETE", url, headers, body,
1720                                                            queryArgs, private$numRetries)
1721                         resource <- private$REST$httpParser$parseJSONResponse(response)
1722
1723                         if(!is.null(resource$errors))
1724                                 stop(resource$errors)
1725
1726                         resource
1727                 },
1728
1729                 api_clients.list = function(filters = NULL,
1730                         where = NULL, order = NULL, select = NULL,
1731                         distinct = NULL, limit = "100", offset = "0",
1732                         count = "exact", cluster_id = NULL, bypass_federation = NULL)
1733                 {
1734                         endPoint <- stringr::str_interp("api_clients")
1735                         url <- paste0(private$host, endPoint)
1736                         headers <- list(Authorization = paste("Bearer", private$token),
1737                                         "Content-Type" = "application/json")
1738                         queryArgs <- list(filters = filters, where = where,
1739                                                           order = order, select = select, distinct = distinct,
1740                                                           limit = limit, offset = offset, count = count,
1741                                                           cluster_id = cluster_id, bypass_federation = bypass_federation)
1742
1743                         body <- NULL
1744
1745                         response <- private$REST$http$exec("GET", url, headers, body,
1746                                                            queryArgs, private$numRetries)
1747                         resource <- private$REST$httpParser$parseJSONResponse(response)
1748
1749                         if(!is.null(resource$errors))
1750                                 stop(resource$errors)
1751
1752                         resource
1753                 },
1754
1755                 api_client_authorizations.get = function(uuid)
1756                 {
1757                         endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
1758                         url <- paste0(private$host, endPoint)
1759                         headers <- list(Authorization = paste("Bearer", private$token),
1760                                         "Content-Type" = "application/json")
1761                         queryArgs <- NULL
1762
1763                         body <- NULL
1764
1765                         response <- private$REST$http$exec("GET", url, headers, body,
1766                                                            queryArgs, private$numRetries)
1767                         resource <- private$REST$httpParser$parseJSONResponse(response)
1768
1769                         if(!is.null(resource$errors))
1770                                 stop(resource$errors)
1771
1772                         resource
1773                 },
1774
1775                 api_client_authorizations.create = function(apiclientauthorization,
1776                         ensure_unique_name = "false", cluster_id = NULL)
1777                 {
1778                         endPoint <- stringr::str_interp("api_client_authorizations")
1779                         url <- paste0(private$host, endPoint)
1780                         headers <- list(Authorization = paste("Bearer", private$token),
1781                                         "Content-Type" = "application/json")
1782                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
1783                                                           cluster_id = cluster_id)
1784
1785                         if(length(apiclientauthorization) > 0)
1786                                 body <- jsonlite::toJSON(list(apiclientauthorization = apiclientauthorization),
1787                                                          auto_unbox = TRUE)
1788                         else
1789                                 body <- NULL
1790
1791                         response <- private$REST$http$exec("POST", url, headers, body,
1792                                                            queryArgs, private$numRetries)
1793                         resource <- private$REST$httpParser$parseJSONResponse(response)
1794
1795                         if(!is.null(resource$errors))
1796                                 stop(resource$errors)
1797
1798                         resource
1799                 },
1800
1801                 api_client_authorizations.update = function(apiclientauthorization, uuid)
1802                 {
1803                         endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
1804                         url <- paste0(private$host, endPoint)
1805                         headers <- list(Authorization = paste("Bearer", private$token),
1806                                         "Content-Type" = "application/json")
1807                         queryArgs <- NULL
1808
1809                         if(length(apiclientauthorization) > 0)
1810                                 body <- jsonlite::toJSON(list(apiclientauthorization = apiclientauthorization),
1811                                                          auto_unbox = TRUE)
1812                         else
1813                                 body <- NULL
1814
1815                         response <- private$REST$http$exec("PUT", url, headers, body,
1816                                                            queryArgs, private$numRetries)
1817                         resource <- private$REST$httpParser$parseJSONResponse(response)
1818
1819                         if(!is.null(resource$errors))
1820                                 stop(resource$errors)
1821
1822                         resource
1823                 },
1824
1825                 api_client_authorizations.delete = function(uuid)
1826                 {
1827                         endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
1828                         url <- paste0(private$host, endPoint)
1829                         headers <- list(Authorization = paste("Bearer", private$token),
1830                                         "Content-Type" = "application/json")
1831                         queryArgs <- NULL
1832
1833                         body <- NULL
1834
1835                         response <- private$REST$http$exec("DELETE", url, headers, body,
1836                                                            queryArgs, private$numRetries)
1837                         resource <- private$REST$httpParser$parseJSONResponse(response)
1838
1839                         if(!is.null(resource$errors))
1840                                 stop(resource$errors)
1841
1842                         resource
1843                 },
1844
1845                 api_client_authorizations.create_system_auth = function(api_client_id = NULL, scopes = NULL)
1846                 {
1847                         endPoint <- stringr::str_interp("api_client_authorizations/create_system_auth")
1848                         url <- paste0(private$host, endPoint)
1849                         headers <- list(Authorization = paste("Bearer", private$token),
1850                                         "Content-Type" = "application/json")
1851                         queryArgs <- list(api_client_id = api_client_id,
1852                                                           scopes = scopes)
1853
1854                         body <- NULL
1855
1856                         response <- private$REST$http$exec("POST", url, headers, body,
1857                                                            queryArgs, private$numRetries)
1858                         resource <- private$REST$httpParser$parseJSONResponse(response)
1859
1860                         if(!is.null(resource$errors))
1861                                 stop(resource$errors)
1862
1863                         resource
1864                 },
1865
1866                 api_client_authorizations.current = function()
1867                 {
1868                         endPoint <- stringr::str_interp("api_client_authorizations/current")
1869                         url <- paste0(private$host, endPoint)
1870                         headers <- list(Authorization = paste("Bearer", private$token),
1871                                         "Content-Type" = "application/json")
1872                         queryArgs <- NULL
1873
1874                         body <- NULL
1875
1876                         response <- private$REST$http$exec("GET", url, headers, body,
1877                                                            queryArgs, private$numRetries)
1878                         resource <- private$REST$httpParser$parseJSONResponse(response)
1879
1880                         if(!is.null(resource$errors))
1881                                 stop(resource$errors)
1882
1883                         resource
1884                 },
1885
1886                 api_client_authorizations.list = function(filters = NULL,
1887                         where = NULL, order = NULL, select = NULL,
1888                         distinct = NULL, limit = "100", offset = "0",
1889                         count = "exact", cluster_id = NULL, bypass_federation = NULL)
1890                 {
1891                         endPoint <- stringr::str_interp("api_client_authorizations")
1892                         url <- paste0(private$host, endPoint)
1893                         headers <- list(Authorization = paste("Bearer", private$token),
1894                                         "Content-Type" = "application/json")
1895                         queryArgs <- list(filters = filters, where = where,
1896                                                           order = order, select = select, distinct = distinct,
1897                                                           limit = limit, offset = offset, count = count,
1898                                                           cluster_id = cluster_id, bypass_federation = bypass_federation)
1899
1900                         body <- NULL
1901
1902                         response <- private$REST$http$exec("GET", url, headers, body,
1903                                                            queryArgs, private$numRetries)
1904                         resource <- private$REST$httpParser$parseJSONResponse(response)
1905
1906                         if(!is.null(resource$errors))
1907                                 stop(resource$errors)
1908
1909                         resource
1910                 },
1911
1912                 authorized_keys.get = function(uuid)
1913                 {
1914                         endPoint <- stringr::str_interp("authorized_keys/${uuid}")
1915                         url <- paste0(private$host, endPoint)
1916                         headers <- list(Authorization = paste("Bearer", private$token),
1917                                         "Content-Type" = "application/json")
1918                         queryArgs <- NULL
1919
1920                         body <- NULL
1921
1922                         response <- private$REST$http$exec("GET", url, headers, body,
1923                                                            queryArgs, private$numRetries)
1924                         resource <- private$REST$httpParser$parseJSONResponse(response)
1925
1926                         if(!is.null(resource$errors))
1927                                 stop(resource$errors)
1928
1929                         resource
1930                 },
1931
1932                 authorized_keys.create = function(authorizedkey,
1933                         ensure_unique_name = "false", cluster_id = NULL)
1934                 {
1935                         endPoint <- stringr::str_interp("authorized_keys")
1936                         url <- paste0(private$host, endPoint)
1937                         headers <- list(Authorization = paste("Bearer", private$token),
1938                                         "Content-Type" = "application/json")
1939                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
1940                                                           cluster_id = cluster_id)
1941
1942                         if(length(authorizedkey) > 0)
1943                                 body <- jsonlite::toJSON(list(authorizedkey = authorizedkey),
1944                                                          auto_unbox = TRUE)
1945                         else
1946                                 body <- NULL
1947
1948                         response <- private$REST$http$exec("POST", url, headers, body,
1949                                                            queryArgs, private$numRetries)
1950                         resource <- private$REST$httpParser$parseJSONResponse(response)
1951
1952                         if(!is.null(resource$errors))
1953                                 stop(resource$errors)
1954
1955                         resource
1956                 },
1957
1958                 authorized_keys.update = function(authorizedkey, uuid)
1959                 {
1960                         endPoint <- stringr::str_interp("authorized_keys/${uuid}")
1961                         url <- paste0(private$host, endPoint)
1962                         headers <- list(Authorization = paste("Bearer", private$token),
1963                                         "Content-Type" = "application/json")
1964                         queryArgs <- NULL
1965
1966                         if(length(authorizedkey) > 0)
1967                                 body <- jsonlite::toJSON(list(authorizedkey = authorizedkey),
1968                                                          auto_unbox = TRUE)
1969                         else
1970                                 body <- NULL
1971
1972                         response <- private$REST$http$exec("PUT", url, headers, body,
1973                                                            queryArgs, private$numRetries)
1974                         resource <- private$REST$httpParser$parseJSONResponse(response)
1975
1976                         if(!is.null(resource$errors))
1977                                 stop(resource$errors)
1978
1979                         resource
1980                 },
1981
1982                 authorized_keys.delete = function(uuid)
1983                 {
1984                         endPoint <- stringr::str_interp("authorized_keys/${uuid}")
1985                         url <- paste0(private$host, endPoint)
1986                         headers <- list(Authorization = paste("Bearer", private$token),
1987                                         "Content-Type" = "application/json")
1988                         queryArgs <- NULL
1989
1990                         body <- NULL
1991
1992                         response <- private$REST$http$exec("DELETE", url, headers, body,
1993                                                            queryArgs, private$numRetries)
1994                         resource <- private$REST$httpParser$parseJSONResponse(response)
1995
1996                         if(!is.null(resource$errors))
1997                                 stop(resource$errors)
1998
1999                         resource
2000                 },
2001
2002                 authorized_keys.list = function(filters = NULL,
2003                         where = NULL, order = NULL, select = NULL,
2004                         distinct = NULL, limit = "100", offset = "0",
2005                         count = "exact", cluster_id = NULL, bypass_federation = NULL)
2006                 {
2007                         endPoint <- stringr::str_interp("authorized_keys")
2008                         url <- paste0(private$host, endPoint)
2009                         headers <- list(Authorization = paste("Bearer", private$token),
2010                                         "Content-Type" = "application/json")
2011                         queryArgs <- list(filters = filters, where = where,
2012                                                           order = order, select = select, distinct = distinct,
2013                                                           limit = limit, offset = offset, count = count,
2014                                                           cluster_id = cluster_id, bypass_federation = bypass_federation)
2015
2016                         body <- NULL
2017
2018                         response <- private$REST$http$exec("GET", url, headers, body,
2019                                                            queryArgs, private$numRetries)
2020                         resource <- private$REST$httpParser$parseJSONResponse(response)
2021
2022                         if(!is.null(resource$errors))
2023                                 stop(resource$errors)
2024
2025                         resource
2026                 },
2027
2028                 collections.get = function(uuid)
2029                 {
2030                         endPoint <- stringr::str_interp("collections/${uuid}")
2031                         url <- paste0(private$host, endPoint)
2032                         headers <- list(Authorization = paste("Bearer", private$token),
2033                                         "Content-Type" = "application/json")
2034                         queryArgs <- NULL
2035
2036                         body <- NULL
2037
2038                         response <- private$REST$http$exec("GET", url, headers, body,
2039                                                            queryArgs, private$numRetries)
2040                         resource <- private$REST$httpParser$parseJSONResponse(response)
2041
2042                         if(!is.null(resource$errors))
2043                                 stop(resource$errors)
2044
2045                         resource
2046                 },
2047
2048                 collections.create = function(collection,
2049                         ensure_unique_name = "false", cluster_id = NULL)
2050                 {
2051                         endPoint <- stringr::str_interp("collections")
2052                         url <- paste0(private$host, endPoint)
2053                         headers <- list(Authorization = paste("Bearer", private$token),
2054                                         "Content-Type" = "application/json")
2055                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
2056                                                           cluster_id = cluster_id)
2057
2058                         if(length(collection) > 0)
2059                                 body <- jsonlite::toJSON(list(collection = collection),
2060                                                          auto_unbox = TRUE)
2061                         else
2062                                 body <- NULL
2063
2064                         response <- private$REST$http$exec("POST", url, headers, body,
2065                                                            queryArgs, private$numRetries)
2066                         resource <- private$REST$httpParser$parseJSONResponse(response)
2067
2068                         if(!is.null(resource$errors))
2069                                 stop(resource$errors)
2070
2071                         resource
2072                 },
2073
2074                 collections.update = function(collection, uuid)
2075                 {
2076                         endPoint <- stringr::str_interp("collections/${uuid}")
2077                         url <- paste0(private$host, endPoint)
2078                         headers <- list(Authorization = paste("Bearer", private$token),
2079                                         "Content-Type" = "application/json")
2080                         queryArgs <- NULL
2081
2082                         if(length(collection) > 0)
2083                                 body <- jsonlite::toJSON(list(collection = collection),
2084                                                          auto_unbox = TRUE)
2085                         else
2086                                 body <- NULL
2087
2088                         response <- private$REST$http$exec("PUT", url, headers, body,
2089                                                            queryArgs, private$numRetries)
2090                         resource <- private$REST$httpParser$parseJSONResponse(response)
2091
2092                         if(!is.null(resource$errors))
2093                                 stop(resource$errors)
2094
2095                         resource
2096                 },
2097
2098                 collections.delete = function(uuid)
2099                 {
2100                         endPoint <- stringr::str_interp("collections/${uuid}")
2101                         url <- paste0(private$host, endPoint)
2102                         headers <- list(Authorization = paste("Bearer", private$token),
2103                                         "Content-Type" = "application/json")
2104                         queryArgs <- NULL
2105
2106                         body <- NULL
2107
2108                         response <- private$REST$http$exec("DELETE", url, headers, body,
2109                                                            queryArgs, private$numRetries)
2110                         resource <- private$REST$httpParser$parseJSONResponse(response)
2111
2112                         if(!is.null(resource$errors))
2113                                 stop(resource$errors)
2114
2115                         resource
2116                 },
2117
2118                 collections.provenance = function(uuid)
2119                 {
2120                         endPoint <- stringr::str_interp("collections/${uuid}/provenance")
2121                         url <- paste0(private$host, endPoint)
2122                         headers <- list(Authorization = paste("Bearer", private$token),
2123                                         "Content-Type" = "application/json")
2124                         queryArgs <- NULL
2125
2126                         body <- NULL
2127
2128                         response <- private$REST$http$exec("GET", url, headers, body,
2129                                                            queryArgs, private$numRetries)
2130                         resource <- private$REST$httpParser$parseJSONResponse(response)
2131
2132                         if(!is.null(resource$errors))
2133                                 stop(resource$errors)
2134
2135                         resource
2136                 },
2137
2138                 collections.used_by = function(uuid)
2139                 {
2140                         endPoint <- stringr::str_interp("collections/${uuid}/used_by")
2141                         url <- paste0(private$host, endPoint)
2142                         headers <- list(Authorization = paste("Bearer", private$token),
2143                                         "Content-Type" = "application/json")
2144                         queryArgs <- NULL
2145
2146                         body <- NULL
2147
2148                         response <- private$REST$http$exec("GET", url, headers, body,
2149                                                            queryArgs, private$numRetries)
2150                         resource <- private$REST$httpParser$parseJSONResponse(response)
2151
2152                         if(!is.null(resource$errors))
2153                                 stop(resource$errors)
2154
2155                         resource
2156                 },
2157
2158                 collections.trash = function(uuid)
2159                 {
2160                         endPoint <- stringr::str_interp("collections/${uuid}/trash")
2161                         url <- paste0(private$host, endPoint)
2162                         headers <- list(Authorization = paste("Bearer", private$token),
2163                                         "Content-Type" = "application/json")
2164                         queryArgs <- NULL
2165
2166                         body <- NULL
2167
2168                         response <- private$REST$http$exec("POST", url, headers, body,
2169                                                            queryArgs, private$numRetries)
2170                         resource <- private$REST$httpParser$parseJSONResponse(response)
2171
2172                         if(!is.null(resource$errors))
2173                                 stop(resource$errors)
2174
2175                         resource
2176                 },
2177
2178                 collections.untrash = function(uuid)
2179                 {
2180                         endPoint <- stringr::str_interp("collections/${uuid}/untrash")
2181                         url <- paste0(private$host, endPoint)
2182                         headers <- list(Authorization = paste("Bearer", private$token),
2183                                         "Content-Type" = "application/json")
2184                         queryArgs <- NULL
2185
2186                         body <- NULL
2187
2188                         response <- private$REST$http$exec("POST", url, headers, body,
2189                                                            queryArgs, private$numRetries)
2190                         resource <- private$REST$httpParser$parseJSONResponse(response)
2191
2192                         if(!is.null(resource$errors))
2193                                 stop(resource$errors)
2194
2195                         resource
2196                 },
2197
2198                 collections.list = function(filters = NULL,
2199                         where = NULL, order = NULL, select = NULL,
2200                         distinct = NULL, limit = "100", offset = "0",
2201                         count = "exact", cluster_id = NULL, bypass_federation = NULL,
2202                         include_trash = NULL, include_old_versions = NULL)
2203                 {
2204                         endPoint <- stringr::str_interp("collections")
2205                         url <- paste0(private$host, endPoint)
2206                         headers <- list(Authorization = paste("Bearer", private$token),
2207                                         "Content-Type" = "application/json")
2208                         queryArgs <- list(filters = filters, where = where,
2209                                                           order = order, select = select, distinct = distinct,
2210                                                           limit = limit, offset = offset, count = count,
2211                                                           cluster_id = cluster_id, bypass_federation = bypass_federation,
2212                                                           include_trash = include_trash, include_old_versions = include_old_versions)
2213
2214                         body <- NULL
2215
2216                         response <- private$REST$http$exec("GET", url, headers, body,
2217                                                            queryArgs, private$numRetries)
2218                         resource <- private$REST$httpParser$parseJSONResponse(response)
2219
2220                         if(!is.null(resource$errors))
2221                                 stop(resource$errors)
2222
2223                         resource
2224                 },
2225
2226                 containers.get = function(uuid)
2227                 {
2228                         endPoint <- stringr::str_interp("containers/${uuid}")
2229                         url <- paste0(private$host, endPoint)
2230                         headers <- list(Authorization = paste("Bearer", private$token),
2231                                         "Content-Type" = "application/json")
2232                         queryArgs <- NULL
2233
2234                         body <- NULL
2235
2236                         response <- private$REST$http$exec("GET", url, headers, body,
2237                                                            queryArgs, private$numRetries)
2238                         resource <- private$REST$httpParser$parseJSONResponse(response)
2239
2240                         if(!is.null(resource$errors))
2241                                 stop(resource$errors)
2242
2243                         resource
2244                 },
2245
2246                 containers.create = function(container, ensure_unique_name = "false",
2247                         cluster_id = NULL)
2248                 {
2249                         endPoint <- stringr::str_interp("containers")
2250                         url <- paste0(private$host, endPoint)
2251                         headers <- list(Authorization = paste("Bearer", private$token),
2252                                         "Content-Type" = "application/json")
2253                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
2254                                                           cluster_id = cluster_id)
2255
2256                         if(length(container) > 0)
2257                                 body <- jsonlite::toJSON(list(container = container),
2258                                                          auto_unbox = TRUE)
2259                         else
2260                                 body <- NULL
2261
2262                         response <- private$REST$http$exec("POST", url, headers, body,
2263                                                            queryArgs, private$numRetries)
2264                         resource <- private$REST$httpParser$parseJSONResponse(response)
2265
2266                         if(!is.null(resource$errors))
2267                                 stop(resource$errors)
2268
2269                         resource
2270                 },
2271
2272                 containers.update = function(container, uuid)
2273                 {
2274                         endPoint <- stringr::str_interp("containers/${uuid}")
2275                         url <- paste0(private$host, endPoint)
2276                         headers <- list(Authorization = paste("Bearer", private$token),
2277                                         "Content-Type" = "application/json")
2278                         queryArgs <- NULL
2279
2280                         if(length(container) > 0)
2281                                 body <- jsonlite::toJSON(list(container = container),
2282                                                          auto_unbox = TRUE)
2283                         else
2284                                 body <- NULL
2285
2286                         response <- private$REST$http$exec("PUT", url, headers, body,
2287                                                            queryArgs, private$numRetries)
2288                         resource <- private$REST$httpParser$parseJSONResponse(response)
2289
2290                         if(!is.null(resource$errors))
2291                                 stop(resource$errors)
2292
2293                         resource
2294                 },
2295
2296                 containers.delete = function(uuid)
2297                 {
2298                         endPoint <- stringr::str_interp("containers/${uuid}")
2299                         url <- paste0(private$host, endPoint)
2300                         headers <- list(Authorization = paste("Bearer", private$token),
2301                                         "Content-Type" = "application/json")
2302                         queryArgs <- NULL
2303
2304                         body <- NULL
2305
2306                         response <- private$REST$http$exec("DELETE", url, headers, body,
2307                                                            queryArgs, private$numRetries)
2308                         resource <- private$REST$httpParser$parseJSONResponse(response)
2309
2310                         if(!is.null(resource$errors))
2311                                 stop(resource$errors)
2312
2313                         resource
2314                 },
2315
2316                 containers.auth = function(uuid)
2317                 {
2318                         endPoint <- stringr::str_interp("containers/${uuid}/auth")
2319                         url <- paste0(private$host, endPoint)
2320                         headers <- list(Authorization = paste("Bearer", private$token),
2321                                         "Content-Type" = "application/json")
2322                         queryArgs <- NULL
2323
2324                         body <- NULL
2325
2326                         response <- private$REST$http$exec("GET", url, headers, body,
2327                                                            queryArgs, private$numRetries)
2328                         resource <- private$REST$httpParser$parseJSONResponse(response)
2329
2330                         if(!is.null(resource$errors))
2331                                 stop(resource$errors)
2332
2333                         resource
2334                 },
2335
2336                 containers.lock = function(uuid)
2337                 {
2338                         endPoint <- stringr::str_interp("containers/${uuid}/lock")
2339                         url <- paste0(private$host, endPoint)
2340                         headers <- list(Authorization = paste("Bearer", private$token),
2341                                         "Content-Type" = "application/json")
2342                         queryArgs <- NULL
2343
2344                         body <- NULL
2345
2346                         response <- private$REST$http$exec("POST", url, headers, body,
2347                                                            queryArgs, private$numRetries)
2348                         resource <- private$REST$httpParser$parseJSONResponse(response)
2349
2350                         if(!is.null(resource$errors))
2351                                 stop(resource$errors)
2352
2353                         resource
2354                 },
2355
2356                 containers.unlock = function(uuid)
2357                 {
2358                         endPoint <- stringr::str_interp("containers/${uuid}/unlock")
2359                         url <- paste0(private$host, endPoint)
2360                         headers <- list(Authorization = paste("Bearer", private$token),
2361                                         "Content-Type" = "application/json")
2362                         queryArgs <- NULL
2363
2364                         body <- NULL
2365
2366                         response <- private$REST$http$exec("POST", url, headers, body,
2367                                                            queryArgs, private$numRetries)
2368                         resource <- private$REST$httpParser$parseJSONResponse(response)
2369
2370                         if(!is.null(resource$errors))
2371                                 stop(resource$errors)
2372
2373                         resource
2374                 },
2375
2376                 containers.secret_mounts = function(uuid)
2377                 {
2378                         endPoint <- stringr::str_interp("containers/${uuid}/secret_mounts")
2379                         url <- paste0(private$host, endPoint)
2380                         headers <- list(Authorization = paste("Bearer", private$token),
2381                                         "Content-Type" = "application/json")
2382                         queryArgs <- NULL
2383
2384                         body <- NULL
2385
2386                         response <- private$REST$http$exec("GET", url, headers, body,
2387                                                            queryArgs, private$numRetries)
2388                         resource <- private$REST$httpParser$parseJSONResponse(response)
2389
2390                         if(!is.null(resource$errors))
2391                                 stop(resource$errors)
2392
2393                         resource
2394                 },
2395
2396                 containers.current = function()
2397                 {
2398                         endPoint <- stringr::str_interp("containers/current")
2399                         url <- paste0(private$host, endPoint)
2400                         headers <- list(Authorization = paste("Bearer", private$token),
2401                                         "Content-Type" = "application/json")
2402                         queryArgs <- NULL
2403
2404                         body <- NULL
2405
2406                         response <- private$REST$http$exec("GET", url, headers, body,
2407                                                            queryArgs, private$numRetries)
2408                         resource <- private$REST$httpParser$parseJSONResponse(response)
2409
2410                         if(!is.null(resource$errors))
2411                                 stop(resource$errors)
2412
2413                         resource
2414                 },
2415
2416                 containers.list = function(filters = NULL,
2417                         where = NULL, order = NULL, select = NULL,
2418                         distinct = NULL, limit = "100", offset = "0",
2419                         count = "exact", cluster_id = NULL, bypass_federation = NULL)
2420                 {
2421                         endPoint <- stringr::str_interp("containers")
2422                         url <- paste0(private$host, endPoint)
2423                         headers <- list(Authorization = paste("Bearer", private$token),
2424                                         "Content-Type" = "application/json")
2425                         queryArgs <- list(filters = filters, where = where,
2426                                                           order = order, select = select, distinct = distinct,
2427                                                           limit = limit, offset = offset, count = count,
2428                                                           cluster_id = cluster_id, bypass_federation = bypass_federation)
2429
2430                         body <- NULL
2431
2432                         response <- private$REST$http$exec("GET", url, headers, body,
2433                                                            queryArgs, private$numRetries)
2434                         resource <- private$REST$httpParser$parseJSONResponse(response)
2435
2436                         if(!is.null(resource$errors))
2437                                 stop(resource$errors)
2438
2439                         resource
2440                 },
2441
2442                 container_requests.get = function(uuid)
2443                 {
2444                         endPoint <- stringr::str_interp("container_requests/${uuid}")
2445                         url <- paste0(private$host, endPoint)
2446                         headers <- list(Authorization = paste("Bearer", private$token),
2447                                         "Content-Type" = "application/json")
2448                         queryArgs <- NULL
2449
2450                         body <- NULL
2451
2452                         response <- private$REST$http$exec("GET", url, headers, body,
2453                                                            queryArgs, private$numRetries)
2454                         resource <- private$REST$httpParser$parseJSONResponse(response)
2455
2456                         if(!is.null(resource$errors))
2457                                 stop(resource$errors)
2458
2459                         resource
2460                 },
2461
2462                 container_requests.create = function(containerrequest,
2463                         ensure_unique_name = "false", cluster_id = NULL)
2464                 {
2465                         endPoint <- stringr::str_interp("container_requests")
2466                         url <- paste0(private$host, endPoint)
2467                         headers <- list(Authorization = paste("Bearer", private$token),
2468                                         "Content-Type" = "application/json")
2469                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
2470                                                           cluster_id = cluster_id)
2471
2472                         if(length(containerrequest) > 0)
2473                                 body <- jsonlite::toJSON(list(containerrequest = containerrequest),
2474                                                          auto_unbox = TRUE)
2475                         else
2476                                 body <- NULL
2477
2478                         response <- private$REST$http$exec("POST", url, headers, body,
2479                                                            queryArgs, private$numRetries)
2480                         resource <- private$REST$httpParser$parseJSONResponse(response)
2481
2482                         if(!is.null(resource$errors))
2483                                 stop(resource$errors)
2484
2485                         resource
2486                 },
2487
2488                 container_requests.update = function(containerrequest, uuid)
2489                 {
2490                         endPoint <- stringr::str_interp("container_requests/${uuid}")
2491                         url <- paste0(private$host, endPoint)
2492                         headers <- list(Authorization = paste("Bearer", private$token),
2493                                         "Content-Type" = "application/json")
2494                         queryArgs <- NULL
2495
2496                         if(length(containerrequest) > 0)
2497                                 body <- jsonlite::toJSON(list(containerrequest = containerrequest),
2498                                                          auto_unbox = TRUE)
2499                         else
2500                                 body <- NULL
2501
2502                         response <- private$REST$http$exec("PUT", url, headers, body,
2503                                                            queryArgs, private$numRetries)
2504                         resource <- private$REST$httpParser$parseJSONResponse(response)
2505
2506                         if(!is.null(resource$errors))
2507                                 stop(resource$errors)
2508
2509                         resource
2510                 },
2511
2512                 container_requests.delete = function(uuid)
2513                 {
2514                         endPoint <- stringr::str_interp("container_requests/${uuid}")
2515                         url <- paste0(private$host, endPoint)
2516                         headers <- list(Authorization = paste("Bearer", private$token),
2517                                         "Content-Type" = "application/json")
2518                         queryArgs <- NULL
2519
2520                         body <- NULL
2521
2522                         response <- private$REST$http$exec("DELETE", url, headers, body,
2523                                                            queryArgs, private$numRetries)
2524                         resource <- private$REST$httpParser$parseJSONResponse(response)
2525
2526                         if(!is.null(resource$errors))
2527                                 stop(resource$errors)
2528
2529                         resource
2530                 },
2531
2532                 container_requests.list = function(filters = NULL,
2533                         where = NULL, order = NULL, select = NULL,
2534                         distinct = NULL, limit = "100", offset = "0",
2535                         count = "exact", cluster_id = NULL, bypass_federation = NULL,
2536                         include_trash = NULL)
2537                 {
2538                         endPoint <- stringr::str_interp("container_requests")
2539                         url <- paste0(private$host, endPoint)
2540                         headers <- list(Authorization = paste("Bearer", private$token),
2541                                         "Content-Type" = "application/json")
2542                         queryArgs <- list(filters = filters, where = where,
2543                                                           order = order, select = select, distinct = distinct,
2544                                                           limit = limit, offset = offset, count = count,
2545                                                           cluster_id = cluster_id, bypass_federation = bypass_federation,
2546                                                           include_trash = include_trash)
2547
2548                         body <- NULL
2549
2550                         response <- private$REST$http$exec("GET", url, headers, body,
2551                                                            queryArgs, private$numRetries)
2552                         resource <- private$REST$httpParser$parseJSONResponse(response)
2553
2554                         if(!is.null(resource$errors))
2555                                 stop(resource$errors)
2556
2557                         resource
2558                 },
2559
2560                 groups.get = function(uuid)
2561                 {
2562                         endPoint <- stringr::str_interp("groups/${uuid}")
2563                         url <- paste0(private$host, endPoint)
2564                         headers <- list(Authorization = paste("Bearer", private$token),
2565                                         "Content-Type" = "application/json")
2566                         queryArgs <- NULL
2567
2568                         body <- NULL
2569
2570                         response <- private$REST$http$exec("GET", url, headers, body,
2571                                                            queryArgs, private$numRetries)
2572                         resource <- private$REST$httpParser$parseJSONResponse(response)
2573
2574                         if(!is.null(resource$errors))
2575                                 stop(resource$errors)
2576
2577                         resource
2578                 },
2579
2580                 groups.create = function(group, ensure_unique_name = "false",
2581                         cluster_id = NULL, async = "false")
2582                 {
2583                         endPoint <- stringr::str_interp("groups")
2584                         url <- paste0(private$host, endPoint)
2585                         headers <- list(Authorization = paste("Bearer", private$token),
2586                                         "Content-Type" = "application/json")
2587                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
2588                                                           cluster_id = cluster_id, async = async)
2589
2590                         if(length(group) > 0)
2591                                 body <- jsonlite::toJSON(list(group = group),
2592                                                          auto_unbox = TRUE)
2593                         else
2594                                 body <- NULL
2595
2596                         response <- private$REST$http$exec("POST", url, headers, body,
2597                                                            queryArgs, private$numRetries)
2598                         resource <- private$REST$httpParser$parseJSONResponse(response)
2599
2600                         if(!is.null(resource$errors))
2601                                 stop(resource$errors)
2602
2603                         resource
2604                 },
2605
2606                 groups.update = function(group, uuid, async = "false")
2607                 {
2608                         endPoint <- stringr::str_interp("groups/${uuid}")
2609                         url <- paste0(private$host, endPoint)
2610                         headers <- list(Authorization = paste("Bearer", private$token),
2611                                         "Content-Type" = "application/json")
2612                         queryArgs <- list(async = async)
2613
2614                         if(length(group) > 0)
2615                                 body <- jsonlite::toJSON(list(group = group),
2616                                                          auto_unbox = TRUE)
2617                         else
2618                                 body <- NULL
2619
2620                         response <- private$REST$http$exec("PUT", url, headers, body,
2621                                                            queryArgs, private$numRetries)
2622                         resource <- private$REST$httpParser$parseJSONResponse(response)
2623
2624                         if(!is.null(resource$errors))
2625                                 stop(resource$errors)
2626
2627                         resource
2628                 },
2629
2630                 groups.delete = function(uuid)
2631                 {
2632                         endPoint <- stringr::str_interp("groups/${uuid}")
2633                         url <- paste0(private$host, endPoint)
2634                         headers <- list(Authorization = paste("Bearer", private$token),
2635                                         "Content-Type" = "application/json")
2636                         queryArgs <- NULL
2637
2638                         body <- NULL
2639
2640                         response <- private$REST$http$exec("DELETE", url, headers, body,
2641                                                            queryArgs, private$numRetries)
2642                         resource <- private$REST$httpParser$parseJSONResponse(response)
2643
2644                         if(!is.null(resource$errors))
2645                                 stop(resource$errors)
2646
2647                         resource
2648                 },
2649
2650                 groups.contents = function(filters = NULL,
2651                         where = NULL, order = NULL, distinct = NULL,
2652                         limit = "100", offset = "0", count = "exact",
2653                         cluster_id = NULL, bypass_federation = NULL,
2654                         include_trash = NULL, uuid = NULL, recursive = NULL,
2655                         include = NULL)
2656                 {
2657                         endPoint <- stringr::str_interp("groups/contents")
2658                         url <- paste0(private$host, endPoint)
2659                         headers <- list(Authorization = paste("Bearer", private$token),
2660                                         "Content-Type" = "application/json")
2661                         queryArgs <- list(filters = filters, where = where,
2662                                                           order = order, distinct = distinct, limit = limit,
2663                                                           offset = offset, count = count, cluster_id = cluster_id,
2664                                                           bypass_federation = bypass_federation, include_trash = include_trash,
2665                                                           uuid = uuid, recursive = recursive, include = include)
2666
2667                         body <- NULL
2668
2669                         response <- private$REST$http$exec("GET", url, headers, body,
2670                                                            queryArgs, private$numRetries)
2671                         resource <- private$REST$httpParser$parseJSONResponse(response)
2672
2673                         if(!is.null(resource$errors))
2674                                 stop(resource$errors)
2675
2676                         resource
2677                 },
2678
2679                 groups.shared = function(filters = NULL,
2680                         where = NULL, order = NULL, select = NULL,
2681                         distinct = NULL, limit = "100", offset = "0",
2682                         count = "exact", cluster_id = NULL, bypass_federation = NULL,
2683                         include_trash = NULL, include = NULL)
2684                 {
2685                         endPoint <- stringr::str_interp("groups/shared")
2686                         url <- paste0(private$host, endPoint)
2687                         headers <- list(Authorization = paste("Bearer", private$token),
2688                                         "Content-Type" = "application/json")
2689                         queryArgs <- list(filters = filters, where = where,
2690                                                           order = order, select = select, distinct = distinct,
2691                                                           limit = limit, offset = offset, count = count,
2692                                                           cluster_id = cluster_id, bypass_federation = bypass_federation,
2693                                                           include_trash = include_trash, include = include)
2694
2695                         body <- NULL
2696
2697                         response <- private$REST$http$exec("GET", url, headers, body,
2698                                                            queryArgs, private$numRetries)
2699                         resource <- private$REST$httpParser$parseJSONResponse(response)
2700
2701                         if(!is.null(resource$errors))
2702                                 stop(resource$errors)
2703
2704                         resource
2705                 },
2706
2707                 groups.trash = function(uuid)
2708                 {
2709                         endPoint <- stringr::str_interp("groups/${uuid}/trash")
2710                         url <- paste0(private$host, endPoint)
2711                         headers <- list(Authorization = paste("Bearer", private$token),
2712                                         "Content-Type" = "application/json")
2713                         queryArgs <- NULL
2714
2715                         body <- NULL
2716
2717                         response <- private$REST$http$exec("POST", url, headers, body,
2718                                                            queryArgs, private$numRetries)
2719                         resource <- private$REST$httpParser$parseJSONResponse(response)
2720
2721                         if(!is.null(resource$errors))
2722                                 stop(resource$errors)
2723
2724                         resource
2725                 },
2726
2727                 groups.untrash = function(uuid)
2728                 {
2729                         endPoint <- stringr::str_interp("groups/${uuid}/untrash")
2730                         url <- paste0(private$host, endPoint)
2731                         headers <- list(Authorization = paste("Bearer", private$token),
2732                                         "Content-Type" = "application/json")
2733                         queryArgs <- NULL
2734
2735                         body <- NULL
2736
2737                         response <- private$REST$http$exec("POST", url, headers, body,
2738                                                            queryArgs, private$numRetries)
2739                         resource <- private$REST$httpParser$parseJSONResponse(response)
2740
2741                         if(!is.null(resource$errors))
2742                                 stop(resource$errors)
2743
2744                         resource
2745                 },
2746
2747                 groups.list = function(filters = NULL, where = NULL,
2748                         order = NULL, select = NULL, distinct = NULL,
2749                         limit = "100", offset = "0", count = "exact",
2750                         cluster_id = NULL, bypass_federation = NULL,
2751                         include_trash = NULL)
2752                 {
2753                         endPoint <- stringr::str_interp("groups")
2754                         url <- paste0(private$host, endPoint)
2755                         headers <- list(Authorization = paste("Bearer", private$token),
2756                                         "Content-Type" = "application/json")
2757                         queryArgs <- list(filters = filters, where = where,
2758                                                           order = order, select = select, distinct = distinct,
2759                                                           limit = limit, offset = offset, count = count,
2760                                                           cluster_id = cluster_id, bypass_federation = bypass_federation,
2761                                                           include_trash = include_trash)
2762
2763                         body <- NULL
2764
2765                         response <- private$REST$http$exec("GET", url, headers, body,
2766                                                            queryArgs, private$numRetries)
2767                         resource <- private$REST$httpParser$parseJSONResponse(response)
2768
2769                         if(!is.null(resource$errors))
2770                                 stop(resource$errors)
2771
2772                         resource
2773                 },
2774
2775                 keep_services.get = function(uuid)
2776                 {
2777                         endPoint <- stringr::str_interp("keep_services/${uuid}")
2778                         url <- paste0(private$host, endPoint)
2779                         headers <- list(Authorization = paste("Bearer", private$token),
2780                                         "Content-Type" = "application/json")
2781                         queryArgs <- NULL
2782
2783                         body <- NULL
2784
2785                         response <- private$REST$http$exec("GET", url, headers, body,
2786                                                            queryArgs, private$numRetries)
2787                         resource <- private$REST$httpParser$parseJSONResponse(response)
2788
2789                         if(!is.null(resource$errors))
2790                                 stop(resource$errors)
2791
2792                         resource
2793                 },
2794
2795                 keep_services.create = function(keepservice,
2796                         ensure_unique_name = "false", cluster_id = NULL)
2797                 {
2798                         endPoint <- stringr::str_interp("keep_services")
2799                         url <- paste0(private$host, endPoint)
2800                         headers <- list(Authorization = paste("Bearer", private$token),
2801                                         "Content-Type" = "application/json")
2802                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
2803                                                           cluster_id = cluster_id)
2804
2805                         if(length(keepservice) > 0)
2806                                 body <- jsonlite::toJSON(list(keepservice = keepservice),
2807                                                          auto_unbox = TRUE)
2808                         else
2809                                 body <- NULL
2810
2811                         response <- private$REST$http$exec("POST", url, headers, body,
2812                                                            queryArgs, private$numRetries)
2813                         resource <- private$REST$httpParser$parseJSONResponse(response)
2814
2815                         if(!is.null(resource$errors))
2816                                 stop(resource$errors)
2817
2818                         resource
2819                 },
2820
2821                 keep_services.update = function(keepservice, uuid)
2822                 {
2823                         endPoint <- stringr::str_interp("keep_services/${uuid}")
2824                         url <- paste0(private$host, endPoint)
2825                         headers <- list(Authorization = paste("Bearer", private$token),
2826                                         "Content-Type" = "application/json")
2827                         queryArgs <- NULL
2828
2829                         if(length(keepservice) > 0)
2830                                 body <- jsonlite::toJSON(list(keepservice = keepservice),
2831                                                          auto_unbox = TRUE)
2832                         else
2833                                 body <- NULL
2834
2835                         response <- private$REST$http$exec("PUT", url, headers, body,
2836                                                            queryArgs, private$numRetries)
2837                         resource <- private$REST$httpParser$parseJSONResponse(response)
2838
2839                         if(!is.null(resource$errors))
2840                                 stop(resource$errors)
2841
2842                         resource
2843                 },
2844
2845                 keep_services.delete = function(uuid)
2846                 {
2847                         endPoint <- stringr::str_interp("keep_services/${uuid}")
2848                         url <- paste0(private$host, endPoint)
2849                         headers <- list(Authorization = paste("Bearer", private$token),
2850                                         "Content-Type" = "application/json")
2851                         queryArgs <- NULL
2852
2853                         body <- NULL
2854
2855                         response <- private$REST$http$exec("DELETE", url, headers, body,
2856                                                            queryArgs, private$numRetries)
2857                         resource <- private$REST$httpParser$parseJSONResponse(response)
2858
2859                         if(!is.null(resource$errors))
2860                                 stop(resource$errors)
2861
2862                         resource
2863                 },
2864
2865                 keep_services.accessible = function()
2866                 {
2867                         endPoint <- stringr::str_interp("keep_services/accessible")
2868                         url <- paste0(private$host, endPoint)
2869                         headers <- list(Authorization = paste("Bearer", private$token),
2870                                         "Content-Type" = "application/json")
2871                         queryArgs <- NULL
2872
2873                         body <- NULL
2874
2875                         response <- private$REST$http$exec("GET", url, headers, body,
2876                                                            queryArgs, private$numRetries)
2877                         resource <- private$REST$httpParser$parseJSONResponse(response)
2878
2879                         if(!is.null(resource$errors))
2880                                 stop(resource$errors)
2881
2882                         resource
2883                 },
2884
2885                 keep_services.list = function(filters = NULL,
2886                         where = NULL, order = NULL, select = NULL,
2887                         distinct = NULL, limit = "100", offset = "0",
2888                         count = "exact", cluster_id = NULL, bypass_federation = NULL)
2889                 {
2890                         endPoint <- stringr::str_interp("keep_services")
2891                         url <- paste0(private$host, endPoint)
2892                         headers <- list(Authorization = paste("Bearer", private$token),
2893                                         "Content-Type" = "application/json")
2894                         queryArgs <- list(filters = filters, where = where,
2895                                                           order = order, select = select, distinct = distinct,
2896                                                           limit = limit, offset = offset, count = count,
2897                                                           cluster_id = cluster_id, bypass_federation = bypass_federation)
2898
2899                         body <- NULL
2900
2901                         response <- private$REST$http$exec("GET", url, headers, body,
2902                                                            queryArgs, private$numRetries)
2903                         resource <- private$REST$httpParser$parseJSONResponse(response)
2904
2905                         if(!is.null(resource$errors))
2906                                 stop(resource$errors)
2907
2908                         resource
2909                 },
2910
2911                 links.get = function(uuid)
2912                 {
2913                         endPoint <- stringr::str_interp("links/${uuid}")
2914                         url <- paste0(private$host, endPoint)
2915                         headers <- list(Authorization = paste("Bearer", private$token),
2916                                         "Content-Type" = "application/json")
2917                         queryArgs <- NULL
2918
2919                         body <- NULL
2920
2921                         response <- private$REST$http$exec("GET", url, headers, body,
2922                                                            queryArgs, private$numRetries)
2923                         resource <- private$REST$httpParser$parseJSONResponse(response)
2924
2925                         if(!is.null(resource$errors))
2926                                 stop(resource$errors)
2927
2928                         resource
2929                 },
2930
2931                 links.create = function(link, ensure_unique_name = "false",
2932                         cluster_id = NULL)
2933                 {
2934                         endPoint <- stringr::str_interp("links")
2935                         url <- paste0(private$host, endPoint)
2936                         headers <- list(Authorization = paste("Bearer", private$token),
2937                                         "Content-Type" = "application/json")
2938                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
2939                                                           cluster_id = cluster_id)
2940
2941                         if(length(link) > 0)
2942                                 body <- jsonlite::toJSON(list(link = link),
2943                                                          auto_unbox = TRUE)
2944                         else
2945                                 body <- NULL
2946
2947                         response <- private$REST$http$exec("POST", url, headers, body,
2948                                                            queryArgs, private$numRetries)
2949                         resource <- private$REST$httpParser$parseJSONResponse(response)
2950
2951                         if(!is.null(resource$errors))
2952                                 stop(resource$errors)
2953
2954                         resource
2955                 },
2956
2957                 links.update = function(link, uuid)
2958                 {
2959                         endPoint <- stringr::str_interp("links/${uuid}")
2960                         url <- paste0(private$host, endPoint)
2961                         headers <- list(Authorization = paste("Bearer", private$token),
2962                                         "Content-Type" = "application/json")
2963                         queryArgs <- NULL
2964
2965                         if(length(link) > 0)
2966                                 body <- jsonlite::toJSON(list(link = link),
2967                                                          auto_unbox = TRUE)
2968                         else
2969                                 body <- NULL
2970
2971                         response <- private$REST$http$exec("PUT", url, headers, body,
2972                                                            queryArgs, private$numRetries)
2973                         resource <- private$REST$httpParser$parseJSONResponse(response)
2974
2975                         if(!is.null(resource$errors))
2976                                 stop(resource$errors)
2977
2978                         resource
2979                 },
2980
2981                 links.delete = function(uuid)
2982                 {
2983                         endPoint <- stringr::str_interp("links/${uuid}")
2984                         url <- paste0(private$host, endPoint)
2985                         headers <- list(Authorization = paste("Bearer", private$token),
2986                                         "Content-Type" = "application/json")
2987                         queryArgs <- NULL
2988
2989                         body <- NULL
2990
2991                         response <- private$REST$http$exec("DELETE", url, headers, body,
2992                                                            queryArgs, private$numRetries)
2993                         resource <- private$REST$httpParser$parseJSONResponse(response)
2994
2995                         if(!is.null(resource$errors))
2996                                 stop(resource$errors)
2997
2998                         resource
2999                 },
3000
3001                 links.list = function(filters = NULL, where = NULL,
3002                         order = NULL, select = NULL, distinct = NULL,
3003                         limit = "100", offset = "0", count = "exact",
3004                         cluster_id = NULL, bypass_federation = NULL)
3005                 {
3006                         endPoint <- stringr::str_interp("links")
3007                         url <- paste0(private$host, endPoint)
3008                         headers <- list(Authorization = paste("Bearer", private$token),
3009                                         "Content-Type" = "application/json")
3010                         queryArgs <- list(filters = filters, where = where,
3011                                                           order = order, select = select, distinct = distinct,
3012                                                           limit = limit, offset = offset, count = count,
3013                                                           cluster_id = cluster_id, bypass_federation = bypass_federation)
3014
3015                         body <- NULL
3016
3017                         response <- private$REST$http$exec("GET", url, headers, body,
3018                                                            queryArgs, private$numRetries)
3019                         resource <- private$REST$httpParser$parseJSONResponse(response)
3020
3021                         if(!is.null(resource$errors))
3022                                 stop(resource$errors)
3023
3024                         resource
3025                 },
3026
3027                 links.get_permissions = function(uuid)
3028                 {
3029                         endPoint <- stringr::str_interp("permissions/${uuid}")
3030                         url <- paste0(private$host, endPoint)
3031                         headers <- list(Authorization = paste("Bearer", private$token),
3032                                         "Content-Type" = "application/json")
3033                         queryArgs <- NULL
3034
3035                         body <- NULL
3036
3037                         response <- private$REST$http$exec("GET", url, headers, body,
3038                                                            queryArgs, private$numRetries)
3039                         resource <- private$REST$httpParser$parseJSONResponse(response)
3040
3041                         if(!is.null(resource$errors))
3042                                 stop(resource$errors)
3043
3044                         resource
3045                 },
3046
3047                 logs.get = function(uuid)
3048                 {
3049                         endPoint <- stringr::str_interp("logs/${uuid}")
3050                         url <- paste0(private$host, endPoint)
3051                         headers <- list(Authorization = paste("Bearer", private$token),
3052                                         "Content-Type" = "application/json")
3053                         queryArgs <- NULL
3054
3055                         body <- NULL
3056
3057                         response <- private$REST$http$exec("GET", url, headers, body,
3058                                                            queryArgs, private$numRetries)
3059                         resource <- private$REST$httpParser$parseJSONResponse(response)
3060
3061                         if(!is.null(resource$errors))
3062                                 stop(resource$errors)
3063
3064                         resource
3065                 },
3066
3067                 logs.create = function(log, ensure_unique_name = "false",
3068                         cluster_id = NULL)
3069                 {
3070                         endPoint <- stringr::str_interp("logs")
3071                         url <- paste0(private$host, endPoint)
3072                         headers <- list(Authorization = paste("Bearer", private$token),
3073                                         "Content-Type" = "application/json")
3074                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
3075                                                           cluster_id = cluster_id)
3076
3077                         if(length(log) > 0)
3078                                 body <- jsonlite::toJSON(list(log = log),
3079                                                          auto_unbox = TRUE)
3080                         else
3081                                 body <- NULL
3082
3083                         response <- private$REST$http$exec("POST", url, headers, body,
3084                                                            queryArgs, private$numRetries)
3085                         resource <- private$REST$httpParser$parseJSONResponse(response)
3086
3087                         if(!is.null(resource$errors))
3088                                 stop(resource$errors)
3089
3090                         resource
3091                 },
3092
3093                 logs.update = function(log, uuid)
3094                 {
3095                         endPoint <- stringr::str_interp("logs/${uuid}")
3096                         url <- paste0(private$host, endPoint)
3097                         headers <- list(Authorization = paste("Bearer", private$token),
3098                                         "Content-Type" = "application/json")
3099                         queryArgs <- NULL
3100
3101                         if(length(log) > 0)
3102                                 body <- jsonlite::toJSON(list(log = log),
3103                                                          auto_unbox = TRUE)
3104                         else
3105                                 body <- NULL
3106
3107                         response <- private$REST$http$exec("PUT", url, headers, body,
3108                                                            queryArgs, private$numRetries)
3109                         resource <- private$REST$httpParser$parseJSONResponse(response)
3110
3111                         if(!is.null(resource$errors))
3112                                 stop(resource$errors)
3113
3114                         resource
3115                 },
3116
3117                 logs.delete = function(uuid)
3118                 {
3119                         endPoint <- stringr::str_interp("logs/${uuid}")
3120                         url <- paste0(private$host, endPoint)
3121                         headers <- list(Authorization = paste("Bearer", private$token),
3122                                         "Content-Type" = "application/json")
3123                         queryArgs <- NULL
3124
3125                         body <- NULL
3126
3127                         response <- private$REST$http$exec("DELETE", url, headers, body,
3128                                                            queryArgs, private$numRetries)
3129                         resource <- private$REST$httpParser$parseJSONResponse(response)
3130
3131                         if(!is.null(resource$errors))
3132                                 stop(resource$errors)
3133
3134                         resource
3135                 },
3136
3137                 logs.list = function(filters = NULL, where = NULL,
3138                         order = NULL, select = NULL, distinct = NULL,
3139                         limit = "100", offset = "0", count = "exact",
3140                         cluster_id = NULL, bypass_federation = NULL)
3141                 {
3142                         endPoint <- stringr::str_interp("logs")
3143                         url <- paste0(private$host, endPoint)
3144                         headers <- list(Authorization = paste("Bearer", private$token),
3145                                         "Content-Type" = "application/json")
3146                         queryArgs <- list(filters = filters, where = where,
3147                                                           order = order, select = select, distinct = distinct,
3148                                                           limit = limit, offset = offset, count = count,
3149                                                           cluster_id = cluster_id, bypass_federation = bypass_federation)
3150
3151                         body <- NULL
3152
3153                         response <- private$REST$http$exec("GET", url, headers, body,
3154                                                            queryArgs, private$numRetries)
3155                         resource <- private$REST$httpParser$parseJSONResponse(response)
3156
3157                         if(!is.null(resource$errors))
3158                                 stop(resource$errors)
3159
3160                         resource
3161                 },
3162
3163                 users.get = function(uuid)
3164                 {
3165                         endPoint <- stringr::str_interp("users/${uuid}")
3166                         url <- paste0(private$host, endPoint)
3167                         headers <- list(Authorization = paste("Bearer", private$token),
3168                                         "Content-Type" = "application/json")
3169                         queryArgs <- NULL
3170
3171                         body <- NULL
3172
3173                         response <- private$REST$http$exec("GET", url, headers, body,
3174                                                            queryArgs, private$numRetries)
3175                         resource <- private$REST$httpParser$parseJSONResponse(response)
3176
3177                         if(!is.null(resource$errors))
3178                                 stop(resource$errors)
3179
3180                         resource
3181                 },
3182
3183                 users.create = function(user, ensure_unique_name = "false",
3184                         cluster_id = NULL)
3185                 {
3186                         endPoint <- stringr::str_interp("users")
3187                         url <- paste0(private$host, endPoint)
3188                         headers <- list(Authorization = paste("Bearer", private$token),
3189                                         "Content-Type" = "application/json")
3190                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
3191                                                           cluster_id = cluster_id)
3192
3193                         if(length(user) > 0)
3194                                 body <- jsonlite::toJSON(list(user = user),
3195                                                          auto_unbox = TRUE)
3196                         else
3197                                 body <- NULL
3198
3199                         response <- private$REST$http$exec("POST", url, headers, body,
3200                                                            queryArgs, private$numRetries)
3201                         resource <- private$REST$httpParser$parseJSONResponse(response)
3202
3203                         if(!is.null(resource$errors))
3204                                 stop(resource$errors)
3205
3206                         resource
3207                 },
3208
3209                 users.update = function(user, uuid, bypass_federation = NULL)
3210                 {
3211                         endPoint <- stringr::str_interp("users/${uuid}")
3212                         url <- paste0(private$host, endPoint)
3213                         headers <- list(Authorization = paste("Bearer", private$token),
3214                                         "Content-Type" = "application/json")
3215                         queryArgs <- list(bypass_federation = bypass_federation)
3216
3217                         if(length(user) > 0)
3218                                 body <- jsonlite::toJSON(list(user = user),
3219                                                          auto_unbox = TRUE)
3220                         else
3221                                 body <- NULL
3222
3223                         response <- private$REST$http$exec("PUT", url, headers, body,
3224                                                            queryArgs, private$numRetries)
3225                         resource <- private$REST$httpParser$parseJSONResponse(response)
3226
3227                         if(!is.null(resource$errors))
3228                                 stop(resource$errors)
3229
3230                         resource
3231                 },
3232
3233                 users.delete = function(uuid)
3234                 {
3235                         endPoint <- stringr::str_interp("users/${uuid}")
3236                         url <- paste0(private$host, endPoint)
3237                         headers <- list(Authorization = paste("Bearer", private$token),
3238                                         "Content-Type" = "application/json")
3239                         queryArgs <- NULL
3240
3241                         body <- NULL
3242
3243                         response <- private$REST$http$exec("DELETE", url, headers, body,
3244                                                            queryArgs, private$numRetries)
3245                         resource <- private$REST$httpParser$parseJSONResponse(response)
3246
3247                         if(!is.null(resource$errors))
3248                                 stop(resource$errors)
3249
3250                         resource
3251                 },
3252
3253                 users.current = function()
3254                 {
3255                         endPoint <- stringr::str_interp("users/current")
3256                         url <- paste0(private$host, endPoint)
3257                         headers <- list(Authorization = paste("Bearer", private$token),
3258                                         "Content-Type" = "application/json")
3259                         queryArgs <- NULL
3260
3261                         body <- NULL
3262
3263                         response <- private$REST$http$exec("GET", url, headers, body,
3264                                                            queryArgs, private$numRetries)
3265                         resource <- private$REST$httpParser$parseJSONResponse(response)
3266
3267                         if(!is.null(resource$errors))
3268                                 stop(resource$errors)
3269
3270                         resource
3271                 },
3272
3273                 users.system = function()
3274                 {
3275                         endPoint <- stringr::str_interp("users/system")
3276                         url <- paste0(private$host, endPoint)
3277                         headers <- list(Authorization = paste("Bearer", private$token),
3278                                         "Content-Type" = "application/json")
3279                         queryArgs <- NULL
3280
3281                         body <- NULL
3282
3283                         response <- private$REST$http$exec("GET", url, headers, body,
3284                                                            queryArgs, private$numRetries)
3285                         resource <- private$REST$httpParser$parseJSONResponse(response)
3286
3287                         if(!is.null(resource$errors))
3288                                 stop(resource$errors)
3289
3290                         resource
3291                 },
3292
3293                 users.activate = function(uuid)
3294                 {
3295                         endPoint <- stringr::str_interp("users/${uuid}/activate")
3296                         url <- paste0(private$host, endPoint)
3297                         headers <- list(Authorization = paste("Bearer", private$token),
3298                                         "Content-Type" = "application/json")
3299                         queryArgs <- NULL
3300
3301                         body <- NULL
3302
3303                         response <- private$REST$http$exec("POST", url, headers, body,
3304                                                            queryArgs, private$numRetries)
3305                         resource <- private$REST$httpParser$parseJSONResponse(response)
3306
3307                         if(!is.null(resource$errors))
3308                                 stop(resource$errors)
3309
3310                         resource
3311                 },
3312
3313                 users.setup = function(uuid = NULL, user = NULL,
3314                         repo_name = NULL, vm_uuid = NULL, send_notification_email = "false")
3315                 {
3316                         endPoint <- stringr::str_interp("users/setup")
3317                         url <- paste0(private$host, endPoint)
3318                         headers <- list(Authorization = paste("Bearer", private$token),
3319                                         "Content-Type" = "application/json")
3320                         queryArgs <- list(uuid = uuid, user = user,
3321                                                           repo_name = repo_name, vm_uuid = vm_uuid,
3322                                                           send_notification_email = send_notification_email)
3323
3324                         body <- NULL
3325
3326                         response <- private$REST$http$exec("POST", url, headers, body,
3327                                                            queryArgs, private$numRetries)
3328                         resource <- private$REST$httpParser$parseJSONResponse(response)
3329
3330                         if(!is.null(resource$errors))
3331                                 stop(resource$errors)
3332
3333                         resource
3334                 },
3335
3336                 users.unsetup = function(uuid)
3337                 {
3338                         endPoint <- stringr::str_interp("users/${uuid}/unsetup")
3339                         url <- paste0(private$host, endPoint)
3340                         headers <- list(Authorization = paste("Bearer", private$token),
3341                                         "Content-Type" = "application/json")
3342                         queryArgs <- NULL
3343
3344                         body <- NULL
3345
3346                         response <- private$REST$http$exec("POST", url, headers, body,
3347                                                            queryArgs, private$numRetries)
3348                         resource <- private$REST$httpParser$parseJSONResponse(response)
3349
3350                         if(!is.null(resource$errors))
3351                                 stop(resource$errors)
3352
3353                         resource
3354                 },
3355
3356                 users.update_uuid = function(uuid, new_uuid)
3357                 {
3358                         endPoint <- stringr::str_interp("users/${uuid}/update_uuid")
3359                         url <- paste0(private$host, endPoint)
3360                         headers <- list(Authorization = paste("Bearer", private$token),
3361                                         "Content-Type" = "application/json")
3362                         queryArgs <- list(new_uuid = new_uuid)
3363
3364                         body <- NULL
3365
3366                         response <- private$REST$http$exec("POST", url, headers, body,
3367                                                            queryArgs, private$numRetries)
3368                         resource <- private$REST$httpParser$parseJSONResponse(response)
3369
3370                         if(!is.null(resource$errors))
3371                                 stop(resource$errors)
3372
3373                         resource
3374                 },
3375
3376                 users.merge = function(new_owner_uuid, new_user_token = NULL,
3377                         redirect_to_new_user = NULL, old_user_uuid = NULL,
3378                         new_user_uuid = NULL)
3379                 {
3380                         endPoint <- stringr::str_interp("users/merge")
3381                         url <- paste0(private$host, endPoint)
3382                         headers <- list(Authorization = paste("Bearer", private$token),
3383                                         "Content-Type" = "application/json")
3384                         queryArgs <- list(new_owner_uuid = new_owner_uuid,
3385                                                           new_user_token = new_user_token, redirect_to_new_user = redirect_to_new_user,
3386                                                           old_user_uuid = old_user_uuid, new_user_uuid = new_user_uuid)
3387
3388                         body <- NULL
3389
3390                         response <- private$REST$http$exec("POST", url, headers, body,
3391                                                            queryArgs, private$numRetries)
3392                         resource <- private$REST$httpParser$parseJSONResponse(response)
3393
3394                         if(!is.null(resource$errors))
3395                                 stop(resource$errors)
3396
3397                         resource
3398                 },
3399
3400                 users.list = function(filters = NULL, where = NULL,
3401                         order = NULL, select = NULL, distinct = NULL,
3402                         limit = "100", offset = "0", count = "exact",
3403                         cluster_id = NULL, bypass_federation = NULL)
3404                 {
3405                         endPoint <- stringr::str_interp("users")
3406                         url <- paste0(private$host, endPoint)
3407                         headers <- list(Authorization = paste("Bearer", private$token),
3408                                         "Content-Type" = "application/json")
3409                         queryArgs <- list(filters = filters, where = where,
3410                                                           order = order, select = select, distinct = distinct,
3411                                                           limit = limit, offset = offset, count = count,
3412                                                           cluster_id = cluster_id, bypass_federation = bypass_federation)
3413
3414                         body <- NULL
3415
3416                         response <- private$REST$http$exec("GET", url, headers, body,
3417                                                            queryArgs, private$numRetries)
3418                         resource <- private$REST$httpParser$parseJSONResponse(response)
3419
3420                         if(!is.null(resource$errors))
3421                                 stop(resource$errors)
3422
3423                         resource
3424                 },
3425
3426                 repositories.get = function(uuid)
3427                 {
3428                         endPoint <- stringr::str_interp("repositories/${uuid}")
3429                         url <- paste0(private$host, endPoint)
3430                         headers <- list(Authorization = paste("Bearer", private$token),
3431                                         "Content-Type" = "application/json")
3432                         queryArgs <- NULL
3433
3434                         body <- NULL
3435
3436                         response <- private$REST$http$exec("GET", url, headers, body,
3437                                                            queryArgs, private$numRetries)
3438                         resource <- private$REST$httpParser$parseJSONResponse(response)
3439
3440                         if(!is.null(resource$errors))
3441                                 stop(resource$errors)
3442
3443                         resource
3444                 },
3445
3446                 repositories.create = function(repository,
3447                         ensure_unique_name = "false", cluster_id = NULL)
3448                 {
3449                         endPoint <- stringr::str_interp("repositories")
3450                         url <- paste0(private$host, endPoint)
3451                         headers <- list(Authorization = paste("Bearer", private$token),
3452                                         "Content-Type" = "application/json")
3453                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
3454                                                           cluster_id = cluster_id)
3455
3456                         if(length(repository) > 0)
3457                                 body <- jsonlite::toJSON(list(repository = repository),
3458                                                          auto_unbox = TRUE)
3459                         else
3460                                 body <- NULL
3461
3462                         response <- private$REST$http$exec("POST", url, headers, body,
3463                                                            queryArgs, private$numRetries)
3464                         resource <- private$REST$httpParser$parseJSONResponse(response)
3465
3466                         if(!is.null(resource$errors))
3467                                 stop(resource$errors)
3468
3469                         resource
3470                 },
3471
3472                 repositories.update = function(repository, uuid)
3473                 {
3474                         endPoint <- stringr::str_interp("repositories/${uuid}")
3475                         url <- paste0(private$host, endPoint)
3476                         headers <- list(Authorization = paste("Bearer", private$token),
3477                                         "Content-Type" = "application/json")
3478                         queryArgs <- NULL
3479
3480                         if(length(repository) > 0)
3481                                 body <- jsonlite::toJSON(list(repository = repository),
3482                                                          auto_unbox = TRUE)
3483                         else
3484                                 body <- NULL
3485
3486                         response <- private$REST$http$exec("PUT", url, headers, body,
3487                                                            queryArgs, private$numRetries)
3488                         resource <- private$REST$httpParser$parseJSONResponse(response)
3489
3490                         if(!is.null(resource$errors))
3491                                 stop(resource$errors)
3492
3493                         resource
3494                 },
3495
3496                 repositories.delete = function(uuid)
3497                 {
3498                         endPoint <- stringr::str_interp("repositories/${uuid}")
3499                         url <- paste0(private$host, endPoint)
3500                         headers <- list(Authorization = paste("Bearer", private$token),
3501                                         "Content-Type" = "application/json")
3502                         queryArgs <- NULL
3503
3504                         body <- NULL
3505
3506                         response <- private$REST$http$exec("DELETE", url, headers, body,
3507                                                            queryArgs, private$numRetries)
3508                         resource <- private$REST$httpParser$parseJSONResponse(response)
3509
3510                         if(!is.null(resource$errors))
3511                                 stop(resource$errors)
3512
3513                         resource
3514                 },
3515
3516                 repositories.get_all_permissions = function()
3517                 {
3518                         endPoint <- stringr::str_interp("repositories/get_all_permissions")
3519                         url <- paste0(private$host, endPoint)
3520                         headers <- list(Authorization = paste("Bearer", private$token),
3521                                         "Content-Type" = "application/json")
3522                         queryArgs <- NULL
3523
3524                         body <- NULL
3525
3526                         response <- private$REST$http$exec("GET", url, headers, body,
3527                                                            queryArgs, private$numRetries)
3528                         resource <- private$REST$httpParser$parseJSONResponse(response)
3529
3530                         if(!is.null(resource$errors))
3531                                 stop(resource$errors)
3532
3533                         resource
3534                 },
3535
3536                 repositories.list = function(filters = NULL,
3537                         where = NULL, order = NULL, select = NULL,
3538                         distinct = NULL, limit = "100", offset = "0",
3539                         count = "exact", cluster_id = NULL, bypass_federation = NULL)
3540                 {
3541                         endPoint <- stringr::str_interp("repositories")
3542                         url <- paste0(private$host, endPoint)
3543                         headers <- list(Authorization = paste("Bearer", private$token),
3544                                         "Content-Type" = "application/json")
3545                         queryArgs <- list(filters = filters, where = where,
3546                                                           order = order, select = select, distinct = distinct,
3547                                                           limit = limit, offset = offset, count = count,
3548                                                           cluster_id = cluster_id, bypass_federation = bypass_federation)
3549
3550                         body <- NULL
3551
3552                         response <- private$REST$http$exec("GET", url, headers, body,
3553                                                            queryArgs, private$numRetries)
3554                         resource <- private$REST$httpParser$parseJSONResponse(response)
3555
3556                         if(!is.null(resource$errors))
3557                                 stop(resource$errors)
3558
3559                         resource
3560                 },
3561
3562                 virtual_machines.get = function(uuid)
3563                 {
3564                         endPoint <- stringr::str_interp("virtual_machines/${uuid}")
3565                         url <- paste0(private$host, endPoint)
3566                         headers <- list(Authorization = paste("Bearer", private$token),
3567                                         "Content-Type" = "application/json")
3568                         queryArgs <- NULL
3569
3570                         body <- NULL
3571
3572                         response <- private$REST$http$exec("GET", url, headers, body,
3573                                                            queryArgs, private$numRetries)
3574                         resource <- private$REST$httpParser$parseJSONResponse(response)
3575
3576                         if(!is.null(resource$errors))
3577                                 stop(resource$errors)
3578
3579                         resource
3580                 },
3581
3582                 virtual_machines.create = function(virtualmachine,
3583                         ensure_unique_name = "false", cluster_id = NULL)
3584                 {
3585                         endPoint <- stringr::str_interp("virtual_machines")
3586                         url <- paste0(private$host, endPoint)
3587                         headers <- list(Authorization = paste("Bearer", private$token),
3588                                         "Content-Type" = "application/json")
3589                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
3590                                                           cluster_id = cluster_id)
3591
3592                         if(length(virtualmachine) > 0)
3593                                 body <- jsonlite::toJSON(list(virtualmachine = virtualmachine),
3594                                                          auto_unbox = TRUE)
3595                         else
3596                                 body <- NULL
3597
3598                         response <- private$REST$http$exec("POST", url, headers, body,
3599                                                            queryArgs, private$numRetries)
3600                         resource <- private$REST$httpParser$parseJSONResponse(response)
3601
3602                         if(!is.null(resource$errors))
3603                                 stop(resource$errors)
3604
3605                         resource
3606                 },
3607
3608                 virtual_machines.update = function(virtualmachine, uuid)
3609                 {
3610                         endPoint <- stringr::str_interp("virtual_machines/${uuid}")
3611                         url <- paste0(private$host, endPoint)
3612                         headers <- list(Authorization = paste("Bearer", private$token),
3613                                         "Content-Type" = "application/json")
3614                         queryArgs <- NULL
3615
3616                         if(length(virtualmachine) > 0)
3617                                 body <- jsonlite::toJSON(list(virtualmachine = virtualmachine),
3618                                                          auto_unbox = TRUE)
3619                         else
3620                                 body <- NULL
3621
3622                         response <- private$REST$http$exec("PUT", url, headers, body,
3623                                                            queryArgs, private$numRetries)
3624                         resource <- private$REST$httpParser$parseJSONResponse(response)
3625
3626                         if(!is.null(resource$errors))
3627                                 stop(resource$errors)
3628
3629                         resource
3630                 },
3631
3632                 virtual_machines.delete = function(uuid)
3633                 {
3634                         endPoint <- stringr::str_interp("virtual_machines/${uuid}")
3635                         url <- paste0(private$host, endPoint)
3636                         headers <- list(Authorization = paste("Bearer", private$token),
3637                                         "Content-Type" = "application/json")
3638                         queryArgs <- NULL
3639
3640                         body <- NULL
3641
3642                         response <- private$REST$http$exec("DELETE", url, headers, body,
3643                                                            queryArgs, private$numRetries)
3644                         resource <- private$REST$httpParser$parseJSONResponse(response)
3645
3646                         if(!is.null(resource$errors))
3647                                 stop(resource$errors)
3648
3649                         resource
3650                 },
3651
3652                 virtual_machines.logins = function(uuid)
3653                 {
3654                         endPoint <- stringr::str_interp("virtual_machines/${uuid}/logins")
3655                         url <- paste0(private$host, endPoint)
3656                         headers <- list(Authorization = paste("Bearer", private$token),
3657                                         "Content-Type" = "application/json")
3658                         queryArgs <- NULL
3659
3660                         body <- NULL
3661
3662                         response <- private$REST$http$exec("GET", url, headers, body,
3663                                                            queryArgs, private$numRetries)
3664                         resource <- private$REST$httpParser$parseJSONResponse(response)
3665
3666                         if(!is.null(resource$errors))
3667                                 stop(resource$errors)
3668
3669                         resource
3670                 },
3671
3672                 virtual_machines.get_all_logins = function()
3673                 {
3674                         endPoint <- stringr::str_interp("virtual_machines/get_all_logins")
3675                         url <- paste0(private$host, endPoint)
3676                         headers <- list(Authorization = paste("Bearer", private$token),
3677                                         "Content-Type" = "application/json")
3678                         queryArgs <- NULL
3679
3680                         body <- NULL
3681
3682                         response <- private$REST$http$exec("GET", url, headers, body,
3683                                                            queryArgs, private$numRetries)
3684                         resource <- private$REST$httpParser$parseJSONResponse(response)
3685
3686                         if(!is.null(resource$errors))
3687                                 stop(resource$errors)
3688
3689                         resource
3690                 },
3691
3692                 virtual_machines.list = function(filters = NULL,
3693                         where = NULL, order = NULL, select = NULL,
3694                         distinct = NULL, limit = "100", offset = "0",
3695                         count = "exact", cluster_id = NULL, bypass_federation = NULL)
3696                 {
3697                         endPoint <- stringr::str_interp("virtual_machines")
3698                         url <- paste0(private$host, endPoint)
3699                         headers <- list(Authorization = paste("Bearer", private$token),
3700                                         "Content-Type" = "application/json")
3701                         queryArgs <- list(filters = filters, where = where,
3702                                                           order = order, select = select, distinct = distinct,
3703                                                           limit = limit, offset = offset, count = count,
3704                                                           cluster_id = cluster_id, bypass_federation = bypass_federation)
3705
3706                         body <- NULL
3707
3708                         response <- private$REST$http$exec("GET", url, headers, body,
3709                                                            queryArgs, private$numRetries)
3710                         resource <- private$REST$httpParser$parseJSONResponse(response)
3711
3712                         if(!is.null(resource$errors))
3713                                 stop(resource$errors)
3714
3715                         resource
3716                 },
3717
3718                 workflows.get = function(uuid)
3719                 {
3720                         endPoint <- stringr::str_interp("workflows/${uuid}")
3721                         url <- paste0(private$host, endPoint)
3722                         headers <- list(Authorization = paste("Bearer", private$token),
3723                                         "Content-Type" = "application/json")
3724                         queryArgs <- NULL
3725
3726                         body <- NULL
3727
3728                         response <- private$REST$http$exec("GET", url, headers, body,
3729                                                            queryArgs, private$numRetries)
3730                         resource <- private$REST$httpParser$parseJSONResponse(response)
3731
3732                         if(!is.null(resource$errors))
3733                                 stop(resource$errors)
3734
3735                         resource
3736                 },
3737
3738                 workflows.create = function(workflow, ensure_unique_name = "false",
3739                         cluster_id = NULL)
3740                 {
3741                         endPoint <- stringr::str_interp("workflows")
3742                         url <- paste0(private$host, endPoint)
3743                         headers <- list(Authorization = paste("Bearer", private$token),
3744                                         "Content-Type" = "application/json")
3745                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
3746                                                           cluster_id = cluster_id)
3747
3748                         if(length(workflow) > 0)
3749                                 body <- jsonlite::toJSON(list(workflow = workflow),
3750                                                          auto_unbox = TRUE)
3751                         else
3752                                 body <- NULL
3753
3754                         response <- private$REST$http$exec("POST", url, headers, body,
3755                                                            queryArgs, private$numRetries)
3756                         resource <- private$REST$httpParser$parseJSONResponse(response)
3757
3758                         if(!is.null(resource$errors))
3759                                 stop(resource$errors)
3760
3761                         resource
3762                 },
3763
3764                 workflows.update = function(workflow, uuid)
3765                 {
3766                         endPoint <- stringr::str_interp("workflows/${uuid}")
3767                         url <- paste0(private$host, endPoint)
3768                         headers <- list(Authorization = paste("Bearer", private$token),
3769                                         "Content-Type" = "application/json")
3770                         queryArgs <- NULL
3771
3772                         if(length(workflow) > 0)
3773                                 body <- jsonlite::toJSON(list(workflow = workflow),
3774                                                          auto_unbox = TRUE)
3775                         else
3776                                 body <- NULL
3777
3778                         response <- private$REST$http$exec("PUT", url, headers, body,
3779                                                            queryArgs, private$numRetries)
3780                         resource <- private$REST$httpParser$parseJSONResponse(response)
3781
3782                         if(!is.null(resource$errors))
3783                                 stop(resource$errors)
3784
3785                         resource
3786                 },
3787
3788                 workflows.delete = function(uuid)
3789                 {
3790                         endPoint <- stringr::str_interp("workflows/${uuid}")
3791                         url <- paste0(private$host, endPoint)
3792                         headers <- list(Authorization = paste("Bearer", private$token),
3793                                         "Content-Type" = "application/json")
3794                         queryArgs <- NULL
3795
3796                         body <- NULL
3797
3798                         response <- private$REST$http$exec("DELETE", url, headers, body,
3799                                                            queryArgs, private$numRetries)
3800                         resource <- private$REST$httpParser$parseJSONResponse(response)
3801
3802                         if(!is.null(resource$errors))
3803                                 stop(resource$errors)
3804
3805                         resource
3806                 },
3807
3808                 workflows.list = function(filters = NULL,
3809                         where = NULL, order = NULL, select = NULL,
3810                         distinct = NULL, limit = "100", offset = "0",
3811                         count = "exact", cluster_id = NULL, bypass_federation = NULL)
3812                 {
3813                         endPoint <- stringr::str_interp("workflows")
3814                         url <- paste0(private$host, endPoint)
3815                         headers <- list(Authorization = paste("Bearer", private$token),
3816                                         "Content-Type" = "application/json")
3817                         queryArgs <- list(filters = filters, where = where,
3818                                                           order = order, select = select, distinct = distinct,
3819                                                           limit = limit, offset = offset, count = count,
3820                                                           cluster_id = cluster_id, bypass_federation = bypass_federation)
3821
3822                         body <- NULL
3823
3824                         response <- private$REST$http$exec("GET", url, headers, body,
3825                                                            queryArgs, private$numRetries)
3826                         resource <- private$REST$httpParser$parseJSONResponse(response)
3827
3828                         if(!is.null(resource$errors))
3829                                 stop(resource$errors)
3830
3831                         resource
3832                 },
3833
3834                 user_agreements.get = function(uuid)
3835                 {
3836                         endPoint <- stringr::str_interp("user_agreements/${uuid}")
3837                         url <- paste0(private$host, endPoint)
3838                         headers <- list(Authorization = paste("Bearer", private$token),
3839                                         "Content-Type" = "application/json")
3840                         queryArgs <- NULL
3841
3842                         body <- NULL
3843
3844                         response <- private$REST$http$exec("GET", url, headers, body,
3845                                                            queryArgs, private$numRetries)
3846                         resource <- private$REST$httpParser$parseJSONResponse(response)
3847
3848                         if(!is.null(resource$errors))
3849                                 stop(resource$errors)
3850
3851                         resource
3852                 },
3853
3854                 user_agreements.create = function(useragreement,
3855                         ensure_unique_name = "false", cluster_id = NULL)
3856                 {
3857                         endPoint <- stringr::str_interp("user_agreements")
3858                         url <- paste0(private$host, endPoint)
3859                         headers <- list(Authorization = paste("Bearer", private$token),
3860                                         "Content-Type" = "application/json")
3861                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
3862                                                           cluster_id = cluster_id)
3863
3864                         if(length(useragreement) > 0)
3865                                 body <- jsonlite::toJSON(list(useragreement = useragreement),
3866                                                          auto_unbox = TRUE)
3867                         else
3868                                 body <- NULL
3869
3870                         response <- private$REST$http$exec("POST", url, headers, body,
3871                                                            queryArgs, private$numRetries)
3872                         resource <- private$REST$httpParser$parseJSONResponse(response)
3873
3874                         if(!is.null(resource$errors))
3875                                 stop(resource$errors)
3876
3877                         resource
3878                 },
3879
3880                 user_agreements.update = function(useragreement, uuid)
3881                 {
3882                         endPoint <- stringr::str_interp("user_agreements/${uuid}")
3883                         url <- paste0(private$host, endPoint)
3884                         headers <- list(Authorization = paste("Bearer", private$token),
3885                                         "Content-Type" = "application/json")
3886                         queryArgs <- NULL
3887
3888                         if(length(useragreement) > 0)
3889                                 body <- jsonlite::toJSON(list(useragreement = useragreement),
3890                                                          auto_unbox = TRUE)
3891                         else
3892                                 body <- NULL
3893
3894                         response <- private$REST$http$exec("PUT", url, headers, body,
3895                                                            queryArgs, private$numRetries)
3896                         resource <- private$REST$httpParser$parseJSONResponse(response)
3897
3898                         if(!is.null(resource$errors))
3899                                 stop(resource$errors)
3900
3901                         resource
3902                 },
3903
3904                 user_agreements.delete = function(uuid)
3905                 {
3906                         endPoint <- stringr::str_interp("user_agreements/${uuid}")
3907                         url <- paste0(private$host, endPoint)
3908                         headers <- list(Authorization = paste("Bearer", private$token),
3909                                         "Content-Type" = "application/json")
3910                         queryArgs <- NULL
3911
3912                         body <- NULL
3913
3914                         response <- private$REST$http$exec("DELETE", url, headers, body,
3915                                                            queryArgs, private$numRetries)
3916                         resource <- private$REST$httpParser$parseJSONResponse(response)
3917
3918                         if(!is.null(resource$errors))
3919                                 stop(resource$errors)
3920
3921                         resource
3922                 },
3923
3924                 user_agreements.signatures = function()
3925                 {
3926                         endPoint <- stringr::str_interp("user_agreements/signatures")
3927                         url <- paste0(private$host, endPoint)
3928                         headers <- list(Authorization = paste("Bearer", private$token),
3929                                         "Content-Type" = "application/json")
3930                         queryArgs <- NULL
3931
3932                         body <- NULL
3933
3934                         response <- private$REST$http$exec("GET", url, headers, body,
3935                                                            queryArgs, private$numRetries)
3936                         resource <- private$REST$httpParser$parseJSONResponse(response)
3937
3938                         if(!is.null(resource$errors))
3939                                 stop(resource$errors)
3940
3941                         resource
3942                 },
3943
3944                 user_agreements.sign = function()
3945                 {
3946                         endPoint <- stringr::str_interp("user_agreements/sign")
3947                         url <- paste0(private$host, endPoint)
3948                         headers <- list(Authorization = paste("Bearer", private$token),
3949                                         "Content-Type" = "application/json")
3950                         queryArgs <- NULL
3951
3952                         body <- NULL
3953
3954                         response <- private$REST$http$exec("POST", url, headers, body,
3955                                                            queryArgs, private$numRetries)
3956                         resource <- private$REST$httpParser$parseJSONResponse(response)
3957
3958                         if(!is.null(resource$errors))
3959                                 stop(resource$errors)
3960
3961                         resource
3962                 },
3963
3964                 user_agreements.list = function(filters = NULL,
3965                         where = NULL, order = NULL, select = NULL,
3966                         distinct = NULL, limit = "100", offset = "0",
3967                         count = "exact", cluster_id = NULL, bypass_federation = NULL)
3968                 {
3969                         endPoint <- stringr::str_interp("user_agreements")
3970                         url <- paste0(private$host, endPoint)
3971                         headers <- list(Authorization = paste("Bearer", private$token),
3972                                         "Content-Type" = "application/json")
3973                         queryArgs <- list(filters = filters, where = where,
3974                                                           order = order, select = select, distinct = distinct,
3975                                                           limit = limit, offset = offset, count = count,
3976                                                           cluster_id = cluster_id, bypass_federation = bypass_federation)
3977
3978                         body <- NULL
3979
3980                         response <- private$REST$http$exec("GET", url, headers, body,
3981                                                            queryArgs, private$numRetries)
3982                         resource <- private$REST$httpParser$parseJSONResponse(response)
3983
3984                         if(!is.null(resource$errors))
3985                                 stop(resource$errors)
3986
3987                         resource
3988                 },
3989
3990                 user_agreements.new = function()
3991                 {
3992                         endPoint <- stringr::str_interp("user_agreements/new")
3993                         url <- paste0(private$host, endPoint)
3994                         headers <- list(Authorization = paste("Bearer", private$token),
3995                                         "Content-Type" = "application/json")
3996                         queryArgs <- NULL
3997
3998                         body <- NULL
3999
4000                         response <- private$REST$http$exec("GET", url, headers, body,
4001                                                            queryArgs, private$numRetries)
4002                         resource <- private$REST$httpParser$parseJSONResponse(response)
4003
4004                         if(!is.null(resource$errors))
4005                                 stop(resource$errors)
4006
4007                         resource
4008                 },
4009
4010                 configs.get = function()
4011                 {
4012                         endPoint <- stringr::str_interp("config")
4013                         url <- paste0(private$host, endPoint)
4014                         headers <- list(Authorization = paste("Bearer", private$token),
4015                                         "Content-Type" = "application/json")
4016                         queryArgs <- NULL
4017
4018                         body <- NULL
4019
4020                         response <- private$REST$http$exec("GET", url, headers, body,
4021                                                            queryArgs, private$numRetries)
4022                         resource <- private$REST$httpParser$parseJSONResponse(response)
4023
4024                         if(!is.null(resource$errors))
4025                                 stop(resource$errors)
4026
4027                         resource
4028                 },
4029
4030                 getHostName = function() private$host,
4031                 getToken = function() private$token,
4032                 setRESTService = function(newREST) private$REST <- newREST,
4033                 getRESTService = function() private$REST
4034         ),
4035
4036         private = list(
4037
4038                 token = NULL,
4039                 host = NULL,
4040                 REST = NULL,
4041                 numRetries = NULL
4042         ),
4043
4044         cloneable = FALSE
4045 )