sdk/R/R/Arvados.R

   1 # Copyright (C) The Arvados Authors. All rights reserved.
   2 #
   3 # SPDX-License-Identifier: Apache-2.0
   4
   5 #' users.get
   6 #'
   7 #' users.get is a method defined in Arvados class.
   8 #'
   9 #' @usage arv$users.get(uuid)
  10 #' @param uuid The UUID of the User in question.
  11 #' @return User object.
  12 #' @name users.get
  13 NULL
  14
  15 #' users.create
  16 #'
  17 #' users.create is a method defined in Arvados class.
  18 #'
  19 #' @usage arv$users.create(user, ensure_unique_name = "false")
  20 #' @param user User object.
  21 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
  22 #' @return User object.
  23 #' @name users.create
  24 NULL
  25
  26 #' users.update
  27 #'
  28 #' users.update is a method defined in Arvados class.
  29 #'
  30 #' @usage arv$users.update(user, uuid)
  31 #' @param user User object.
  32 #' @param uuid The UUID of the User in question.
  33 #' @return User object.
  34 #' @name users.update
  35 NULL
  36
  37 #' users.delete
  38 #'
  39 #' users.delete is a method defined in Arvados class.
  40 #'
  41 #' @usage arv$users.delete(uuid)
  42 #' @param uuid The UUID of the User in question.
  43 #' @return User object.
  44 #' @name users.delete
  45 NULL
  46
  47 #' users.current
  48 #'
  49 #' users.current is a method defined in Arvados class.
  50 #'
  51 #' @usage arv$users.current(NULL)
  52 #' @return User object.
  53 #' @name users.current
  54 NULL
  55
  56 #' users.system
  57 #'
  58 #' users.system is a method defined in Arvados class.
  59 #'
  60 #' @usage arv$users.system(NULL)
  61 #' @return User object.
  62 #' @name users.system
  63 NULL
  64
  65 #' users.activate
  66 #'
  67 #' users.activate is a method defined in Arvados class.
  68 #'
  69 #' @usage arv$users.activate(uuid)
  70 #' @param uuid
  71 #' @return User object.
  72 #' @name users.activate
  73 NULL
  74
  75 #' users.setup
  76 #'
  77 #' users.setup is a method defined in Arvados class.
  78 #'
  79 #' @usage arv$users.setup(user = NULL, openid_prefix = NULL,
  80 #'      repo_name = NULL, vm_uuid = NULL, send_notification_email = "false")
  81 #' @param user
  82 #' @param openid_prefix
  83 #' @param repo_name
  84 #' @param vm_uuid
  85 #' @param send_notification_email
  86 #' @return User object.
  87 #' @name users.setup
  88 NULL
  89
  90 #' users.unsetup
  91 #'
  92 #' users.unsetup is a method defined in Arvados class.
  93 #'
  94 #' @usage arv$users.unsetup(uuid)
  95 #' @param uuid
  96 #' @return User object.
  97 #' @name users.unsetup
  98 NULL
  99
 100 #' users.update_uuid
 101 #'
 102 #' users.update_uuid is a method defined in Arvados class.
 103 #'
 104 #' @usage arv$users.update_uuid(uuid, new_uuid)
 105 #' @param uuid
 106 #' @param new_uuid
 107 #' @return User object.
 108 #' @name users.update_uuid
 109 NULL
 110
 111 #' users.list
 112 #'
 113 #' users.list is a method defined in Arvados class.
 114 #'
 115 #' @usage arv$users.list(filters = NULL,
 116 #'      where = NULL, order = NULL, select = NULL,
 117 #'      distinct = NULL, limit = "100", offset = "0",
 118 #'      count = "exact")
 119 #' @param filters
 120 #' @param where
 121 #' @param order
 122 #' @param select
 123 #' @param distinct
 124 #' @param limit
 125 #' @param offset
 126 #' @param count
 127 #' @return UserList object.
 128 #' @name users.list
 129 NULL
 130
 131 #' api_client_authorizations.get
 132 #'
 133 #' api_client_authorizations.get is a method defined in Arvados class.
 134 #'
 135 #' @usage arv$api_client_authorizations.get(uuid)
 136 #' @param uuid The UUID of the ApiClientAuthorization in question.
 137 #' @return ApiClientAuthorization object.
 138 #' @name api_client_authorizations.get
 139 NULL
 140
 141 #' api_client_authorizations.create
 142 #'
 143 #' api_client_authorizations.create is a method defined in Arvados class.
 144 #'
 145 #' @usage arv$api_client_authorizations.create(apiclientauthorization,
 146 #'      ensure_unique_name = "false")
 147 #' @param apiClientAuthorization ApiClientAuthorization object.
 148 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 149 #' @return ApiClientAuthorization object.
 150 #' @name api_client_authorizations.create
 151 NULL
 152
 153 #' api_client_authorizations.update
 154 #'
 155 #' api_client_authorizations.update is a method defined in Arvados class.
 156 #'
 157 #' @usage arv$api_client_authorizations.update(apiclientauthorization,
 158 #'      uuid)
 159 #' @param apiClientAuthorization ApiClientAuthorization object.
 160 #' @param uuid The UUID of the ApiClientAuthorization in question.
 161 #' @return ApiClientAuthorization object.
 162 #' @name api_client_authorizations.update
 163 NULL
 164
 165 #' api_client_authorizations.delete
 166 #'
 167 #' api_client_authorizations.delete is a method defined in Arvados class.
 168 #'
 169 #' @usage arv$api_client_authorizations.delete(uuid)
 170 #' @param uuid The UUID of the ApiClientAuthorization in question.
 171 #' @return ApiClientAuthorization object.
 172 #' @name api_client_authorizations.delete
 173 NULL
 174
 175 #' api_client_authorizations.create_system_auth
 176 #'
 177 #' api_client_authorizations.create_system_auth is a method defined in Arvados class.
 178 #'
 179 #' @usage arv$api_client_authorizations.create_system_auth(api_client_id = NULL,
 180 #'      scopes = NULL)
 181 #' @param api_client_id
 182 #' @param scopes
 183 #' @return ApiClientAuthorization object.
 184 #' @name api_client_authorizations.create_system_auth
 185 NULL
 186
 187 #' api_client_authorizations.current
 188 #'
 189 #' api_client_authorizations.current is a method defined in Arvados class.
 190 #'
 191 #' @usage arv$api_client_authorizations.current(NULL)
 192 #' @return ApiClientAuthorization object.
 193 #' @name api_client_authorizations.current
 194 NULL
 195
 196 #' api_client_authorizations.list
 197 #'
 198 #' api_client_authorizations.list is a method defined in Arvados class.
 199 #'
 200 #' @usage arv$api_client_authorizations.list(filters = NULL,
 201 #'      where = NULL, order = NULL, select = NULL,
 202 #'      distinct = NULL, limit = "100", offset = "0",
 203 #'      count = "exact")
 204 #' @param filters
 205 #' @param where
 206 #' @param order
 207 #' @param select
 208 #' @param distinct
 209 #' @param limit
 210 #' @param offset
 211 #' @param count
 212 #' @return ApiClientAuthorizationList object.
 213 #' @name api_client_authorizations.list
 214 NULL
 215
 216 #' containers.get
 217 #'
 218 #' containers.get is a method defined in Arvados class.
 219 #'
 220 #' @usage arv$containers.get(uuid)
 221 #' @param uuid The UUID of the Container in question.
 222 #' @return Container object.
 223 #' @name containers.get
 224 NULL
 225
 226 #' containers.create
 227 #'
 228 #' containers.create is a method defined in Arvados class.
 229 #'
 230 #' @usage arv$containers.create(container,
 231 #'      ensure_unique_name = "false")
 232 #' @param container Container object.
 233 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 234 #' @return Container object.
 235 #' @name containers.create
 236 NULL
 237
 238 #' containers.update
 239 #'
 240 #' containers.update is a method defined in Arvados class.
 241 #'
 242 #' @usage arv$containers.update(container,
 243 #'      uuid)
 244 #' @param container Container object.
 245 #' @param uuid The UUID of the Container in question.
 246 #' @return Container object.
 247 #' @name containers.update
 248 NULL
 249
 250 #' containers.delete
 251 #'
 252 #' containers.delete is a method defined in Arvados class.
 253 #'
 254 #' @usage arv$containers.delete(uuid)
 255 #' @param uuid The UUID of the Container in question.
 256 #' @return Container object.
 257 #' @name containers.delete
 258 NULL
 259
 260 #' containers.auth
 261 #'
 262 #' containers.auth is a method defined in Arvados class.
 263 #'
 264 #' @usage arv$containers.auth(uuid)
 265 #' @param uuid
 266 #' @return Container object.
 267 #' @name containers.auth
 268 NULL
 269
 270 #' containers.lock
 271 #'
 272 #' containers.lock is a method defined in Arvados class.
 273 #'
 274 #' @usage arv$containers.lock(uuid)
 275 #' @param uuid
 276 #' @return Container object.
 277 #' @name containers.lock
 278 NULL
 279
 280 #' containers.unlock
 281 #'
 282 #' containers.unlock is a method defined in Arvados class.
 283 #'
 284 #' @usage arv$containers.unlock(uuid)
 285 #' @param uuid
 286 #' @return Container object.
 287 #' @name containers.unlock
 288 NULL
 289
 290 #' containers.secret_mounts
 291 #'
 292 #' containers.secret_mounts is a method defined in Arvados class.
 293 #'
 294 #' @usage arv$containers.secret_mounts(uuid)
 295 #' @param uuid
 296 #' @return Container object.
 297 #' @name containers.secret_mounts
 298 NULL
 299
 300 #' containers.current
 301 #'
 302 #' containers.current is a method defined in Arvados class.
 303 #'
 304 #' @usage arv$containers.current(NULL)
 305 #' @return Container object.
 306 #' @name containers.current
 307 NULL
 308
 309 #' containers.list
 310 #'
 311 #' containers.list is a method defined in Arvados class.
 312 #'
 313 #' @usage arv$containers.list(filters = NULL,
 314 #'      where = NULL, order = NULL, select = NULL,
 315 #'      distinct = NULL, limit = "100", offset = "0",
 316 #'      count = "exact")
 317 #' @param filters
 318 #' @param where
 319 #' @param order
 320 #' @param select
 321 #' @param distinct
 322 #' @param limit
 323 #' @param offset
 324 #' @param count
 325 #' @return ContainerList object.
 326 #' @name containers.list
 327 NULL
 328
 329 #' api_clients.get
 330 #'
 331 #' api_clients.get is a method defined in Arvados class.
 332 #'
 333 #' @usage arv$api_clients.get(uuid)
 334 #' @param uuid The UUID of the ApiClient in question.
 335 #' @return ApiClient object.
 336 #' @name api_clients.get
 337 NULL
 338
 339 #' api_clients.create
 340 #'
 341 #' api_clients.create is a method defined in Arvados class.
 342 #'
 343 #' @usage arv$api_clients.create(apiclient,
 344 #'      ensure_unique_name = "false")
 345 #' @param apiClient ApiClient object.
 346 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 347 #' @return ApiClient object.
 348 #' @name api_clients.create
 349 NULL
 350
 351 #' api_clients.update
 352 #'
 353 #' api_clients.update is a method defined in Arvados class.
 354 #'
 355 #' @usage arv$api_clients.update(apiclient,
 356 #'      uuid)
 357 #' @param apiClient ApiClient object.
 358 #' @param uuid The UUID of the ApiClient in question.
 359 #' @return ApiClient object.
 360 #' @name api_clients.update
 361 NULL
 362
 363 #' api_clients.delete
 364 #'
 365 #' api_clients.delete is a method defined in Arvados class.
 366 #'
 367 #' @usage arv$api_clients.delete(uuid)
 368 #' @param uuid The UUID of the ApiClient in question.
 369 #' @return ApiClient object.
 370 #' @name api_clients.delete
 371 NULL
 372
 373 #' api_clients.list
 374 #'
 375 #' api_clients.list is a method defined in Arvados class.
 376 #'
 377 #' @usage arv$api_clients.list(filters = NULL,
 378 #'      where = NULL, order = NULL, select = NULL,
 379 #'      distinct = NULL, limit = "100", offset = "0",
 380 #'      count = "exact")
 381 #' @param filters
 382 #' @param where
 383 #' @param order
 384 #' @param select
 385 #' @param distinct
 386 #' @param limit
 387 #' @param offset
 388 #' @param count
 389 #' @return ApiClientList object.
 390 #' @name api_clients.list
 391 NULL
 392
 393 #' authorized_keys.get
 394 #'
 395 #' authorized_keys.get is a method defined in Arvados class.
 396 #'
 397 #' @usage arv$authorized_keys.get(uuid)
 398 #' @param uuid The UUID of the AuthorizedKey in question.
 399 #' @return AuthorizedKey object.
 400 #' @name authorized_keys.get
 401 NULL
 402
 403 #' authorized_keys.create
 404 #'
 405 #' authorized_keys.create is a method defined in Arvados class.
 406 #'
 407 #' @usage arv$authorized_keys.create(authorizedkey,
 408 #'      ensure_unique_name = "false")
 409 #' @param authorizedKey AuthorizedKey object.
 410 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 411 #' @return AuthorizedKey object.
 412 #' @name authorized_keys.create
 413 NULL
 414
 415 #' authorized_keys.update
 416 #'
 417 #' authorized_keys.update is a method defined in Arvados class.
 418 #'
 419 #' @usage arv$authorized_keys.update(authorizedkey,
 420 #'      uuid)
 421 #' @param authorizedKey AuthorizedKey object.
 422 #' @param uuid The UUID of the AuthorizedKey in question.
 423 #' @return AuthorizedKey object.
 424 #' @name authorized_keys.update
 425 NULL
 426
 427 #' authorized_keys.delete
 428 #'
 429 #' authorized_keys.delete is a method defined in Arvados class.
 430 #'
 431 #' @usage arv$authorized_keys.delete(uuid)
 432 #' @param uuid The UUID of the AuthorizedKey in question.
 433 #' @return AuthorizedKey object.
 434 #' @name authorized_keys.delete
 435 NULL
 436
 437 #' authorized_keys.list
 438 #'
 439 #' authorized_keys.list is a method defined in Arvados class.
 440 #'
 441 #' @usage arv$authorized_keys.list(filters = NULL,
 442 #'      where = NULL, order = NULL, select = NULL,
 443 #'      distinct = NULL, limit = "100", offset = "0",
 444 #'      count = "exact")
 445 #' @param filters
 446 #' @param where
 447 #' @param order
 448 #' @param select
 449 #' @param distinct
 450 #' @param limit
 451 #' @param offset
 452 #' @param count
 453 #' @return AuthorizedKeyList object.
 454 #' @name authorized_keys.list
 455 NULL
 456
 457 #' container_requests.get
 458 #'
 459 #' container_requests.get is a method defined in Arvados class.
 460 #'
 461 #' @usage arv$container_requests.get(uuid)
 462 #' @param uuid The UUID of the ContainerRequest in question.
 463 #' @return ContainerRequest object.
 464 #' @name container_requests.get
 465 NULL
 466
 467 #' container_requests.create
 468 #'
 469 #' container_requests.create is a method defined in Arvados class.
 470 #'
 471 #' @usage arv$container_requests.create(containerrequest,
 472 #'      ensure_unique_name = "false")
 473 #' @param containerRequest ContainerRequest object.
 474 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 475 #' @return ContainerRequest object.
 476 #' @name container_requests.create
 477 NULL
 478
 479 #' container_requests.update
 480 #'
 481 #' container_requests.update is a method defined in Arvados class.
 482 #'
 483 #' @usage arv$container_requests.update(containerrequest,
 484 #'      uuid)
 485 #' @param containerRequest ContainerRequest object.
 486 #' @param uuid The UUID of the ContainerRequest in question.
 487 #' @return ContainerRequest object.
 488 #' @name container_requests.update
 489 NULL
 490
 491 #' container_requests.delete
 492 #'
 493 #' container_requests.delete is a method defined in Arvados class.
 494 #'
 495 #' @usage arv$container_requests.delete(uuid)
 496 #' @param uuid The UUID of the ContainerRequest in question.
 497 #' @return ContainerRequest object.
 498 #' @name container_requests.delete
 499 NULL
 500
 501 #' container_requests.list
 502 #'
 503 #' container_requests.list is a method defined in Arvados class.
 504 #'
 505 #' @usage arv$container_requests.list(filters = NULL,
 506 #'      where = NULL, order = NULL, select = NULL,
 507 #'      distinct = NULL, limit = "100", offset = "0",
 508 #'      count = "exact")
 509 #' @param filters
 510 #' @param where
 511 #' @param order
 512 #' @param select
 513 #' @param distinct
 514 #' @param limit
 515 #' @param offset
 516 #' @param count
 517 #' @return ContainerRequestList object.
 518 #' @name container_requests.list
 519 NULL
 520
 521 #' collections.get
 522 #'
 523 #' collections.get is a method defined in Arvados class.
 524 #'
 525 #' @usage arv$collections.get(uuid)
 526 #' @param uuid The UUID of the Collection in question.
 527 #' @return Collection object.
 528 #' @name collections.get
 529 NULL
 530
 531 #' collections.create
 532 #'
 533 #' collections.create is a method defined in Arvados class.
 534 #'
 535 #' @usage arv$collections.create(collection,
 536 #'      ensure_unique_name = "false")
 537 #' @param collection Collection object.
 538 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 539 #' @return Collection object.
 540 #' @name collections.create
 541 NULL
 542
 543 #' collections.update
 544 #'
 545 #' collections.update is a method defined in Arvados class.
 546 #'
 547 #' @usage arv$collections.update(collection,
 548 #'      uuid)
 549 #' @param collection Collection object.
 550 #' @param uuid The UUID of the Collection in question.
 551 #' @return Collection object.
 552 #' @name collections.update
 553 NULL
 554
 555 #' collections.delete
 556 #'
 557 #' collections.delete is a method defined in Arvados class.
 558 #'
 559 #' @usage arv$collections.delete(uuid)
 560 #' @param uuid The UUID of the Collection in question.
 561 #' @return Collection object.
 562 #' @name collections.delete
 563 NULL
 564
 565 #' collections.provenance
 566 #'
 567 #' collections.provenance is a method defined in Arvados class.
 568 #'
 569 #' @usage arv$collections.provenance(uuid)
 570 #' @param uuid
 571 #' @return Collection object.
 572 #' @name collections.provenance
 573 NULL
 574
 575 #' collections.used_by
 576 #'
 577 #' collections.used_by is a method defined in Arvados class.
 578 #'
 579 #' @usage arv$collections.used_by(uuid)
 580 #' @param uuid
 581 #' @return Collection object.
 582 #' @name collections.used_by
 583 NULL
 584
 585 #' collections.trash
 586 #'
 587 #' collections.trash is a method defined in Arvados class.
 588 #'
 589 #' @usage arv$collections.trash(uuid)
 590 #' @param uuid
 591 #' @return Collection object.
 592 #' @name collections.trash
 593 NULL
 594
 595 #' collections.untrash
 596 #'
 597 #' collections.untrash is a method defined in Arvados class.
 598 #'
 599 #' @usage arv$collections.untrash(uuid)
 600 #' @param uuid
 601 #' @return Collection object.
 602 #' @name collections.untrash
 603 NULL
 604
 605 #' collections.list
 606 #'
 607 #' collections.list is a method defined in Arvados class.
 608 #'
 609 #' @usage arv$collections.list(filters = NULL,
 610 #'      where = NULL, order = NULL, select = NULL,
 611 #'      distinct = NULL, limit = "100", offset = "0",
 612 #'      count = "exact", include_trash = NULL)
 613 #' @param filters
 614 #' @param where
 615 #' @param order
 616 #' @param select
 617 #' @param distinct
 618 #' @param limit
 619 #' @param offset
 620 #' @param count
 621 #' @param include_trash Include collections whose is_trashed attribute is true.
 622 #' @return CollectionList object.
 623 #' @name collections.list
 624 NULL
 625
 626 #' humans.get
 627 #'
 628 #' humans.get is a method defined in Arvados class.
 629 #'
 630 #' @usage arv$humans.get(uuid)
 631 #' @param uuid The UUID of the Human in question.
 632 #' @return Human object.
 633 #' @name humans.get
 634 NULL
 635
 636 #' humans.create
 637 #'
 638 #' humans.create is a method defined in Arvados class.
 639 #'
 640 #' @usage arv$humans.create(human, ensure_unique_name = "false")
 641 #' @param human Human object.
 642 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 643 #' @return Human object.
 644 #' @name humans.create
 645 NULL
 646
 647 #' humans.update
 648 #'
 649 #' humans.update is a method defined in Arvados class.
 650 #'
 651 #' @usage arv$humans.update(human, uuid)
 652 #' @param human Human object.
 653 #' @param uuid The UUID of the Human in question.
 654 #' @return Human object.
 655 #' @name humans.update
 656 NULL
 657
 658 #' humans.delete
 659 #'
 660 #' humans.delete is a method defined in Arvados class.
 661 #'
 662 #' @usage arv$humans.delete(uuid)
 663 #' @param uuid The UUID of the Human in question.
 664 #' @return Human object.
 665 #' @name humans.delete
 666 NULL
 667
 668 #' humans.list
 669 #'
 670 #' humans.list is a method defined in Arvados class.
 671 #'
 672 #' @usage arv$humans.list(filters = NULL,
 673 #'      where = NULL, order = NULL, select = NULL,
 674 #'      distinct = NULL, limit = "100", offset = "0",
 675 #'      count = "exact")
 676 #' @param filters
 677 #' @param where
 678 #' @param order
 679 #' @param select
 680 #' @param distinct
 681 #' @param limit
 682 #' @param offset
 683 #' @param count
 684 #' @return HumanList object.
 685 #' @name humans.list
 686 NULL
 687
 688 #' job_tasks.get
 689 #'
 690 #' job_tasks.get is a method defined in Arvados class.
 691 #'
 692 #' @usage arv$job_tasks.get(uuid)
 693 #' @param uuid The UUID of the JobTask in question.
 694 #' @return JobTask object.
 695 #' @name job_tasks.get
 696 NULL
 697
 698 #' job_tasks.create
 699 #'
 700 #' job_tasks.create is a method defined in Arvados class.
 701 #'
 702 #' @usage arv$job_tasks.create(jobtask, ensure_unique_name = "false")
 703 #' @param jobTask JobTask object.
 704 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 705 #' @return JobTask object.
 706 #' @name job_tasks.create
 707 NULL
 708
 709 #' job_tasks.update
 710 #'
 711 #' job_tasks.update is a method defined in Arvados class.
 712 #'
 713 #' @usage arv$job_tasks.update(jobtask, uuid)
 714 #' @param jobTask JobTask object.
 715 #' @param uuid The UUID of the JobTask in question.
 716 #' @return JobTask object.
 717 #' @name job_tasks.update
 718 NULL
 719
 720 #' job_tasks.delete
 721 #'
 722 #' job_tasks.delete is a method defined in Arvados class.
 723 #'
 724 #' @usage arv$job_tasks.delete(uuid)
 725 #' @param uuid The UUID of the JobTask in question.
 726 #' @return JobTask object.
 727 #' @name job_tasks.delete
 728 NULL
 729
 730 #' job_tasks.list
 731 #'
 732 #' job_tasks.list is a method defined in Arvados class.
 733 #'
 734 #' @usage arv$job_tasks.list(filters = NULL,
 735 #'      where = NULL, order = NULL, select = NULL,
 736 #'      distinct = NULL, limit = "100", offset = "0",
 737 #'      count = "exact")
 738 #' @param filters
 739 #' @param where
 740 #' @param order
 741 #' @param select
 742 #' @param distinct
 743 #' @param limit
 744 #' @param offset
 745 #' @param count
 746 #' @return JobTaskList object.
 747 #' @name job_tasks.list
 748 NULL
 749
 750 #' links.get
 751 #'
 752 #' links.get is a method defined in Arvados class.
 753 #'
 754 #' @usage arv$links.get(uuid)
 755 #' @param uuid The UUID of the Link in question.
 756 #' @return Link object.
 757 #' @name links.get
 758 NULL
 759
 760 #' links.create
 761 #'
 762 #' links.create is a method defined in Arvados class.
 763 #'
 764 #' @usage arv$links.create(link, ensure_unique_name = "false")
 765 #' @param link Link object.
 766 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 767 #' @return Link object.
 768 #' @name links.create
 769 NULL
 770
 771 #' links.update
 772 #'
 773 #' links.update is a method defined in Arvados class.
 774 #'
 775 #' @usage arv$links.update(link, uuid)
 776 #' @param link Link object.
 777 #' @param uuid The UUID of the Link in question.
 778 #' @return Link object.
 779 #' @name links.update
 780 NULL
 781
 782 #' links.delete
 783 #'
 784 #' links.delete is a method defined in Arvados class.
 785 #'
 786 #' @usage arv$links.delete(uuid)
 787 #' @param uuid The UUID of the Link in question.
 788 #' @return Link object.
 789 #' @name links.delete
 790 NULL
 791
 792 #' links.list
 793 #'
 794 #' links.list is a method defined in Arvados class.
 795 #'
 796 #' @usage arv$links.list(filters = NULL,
 797 #'      where = NULL, order = NULL, select = NULL,
 798 #'      distinct = NULL, limit = "100", offset = "0",
 799 #'      count = "exact")
 800 #' @param filters
 801 #' @param where
 802 #' @param order
 803 #' @param select
 804 #' @param distinct
 805 #' @param limit
 806 #' @param offset
 807 #' @param count
 808 #' @return LinkList object.
 809 #' @name links.list
 810 NULL
 811
 812 #' links.get_permissions
 813 #'
 814 #' links.get_permissions is a method defined in Arvados class.
 815 #'
 816 #' @usage arv$links.get_permissions(uuid)
 817 #' @param uuid
 818 #' @return Link object.
 819 #' @name links.get_permissions
 820 NULL
 821
 822 #' jobs.get
 823 #'
 824 #' jobs.get is a method defined in Arvados class.
 825 #'
 826 #' @usage arv$jobs.get(uuid)
 827 #' @param uuid The UUID of the Job in question.
 828 #' @return Job object.
 829 #' @name jobs.get
 830 NULL
 831
 832 #' jobs.create
 833 #'
 834 #' jobs.create is a method defined in Arvados class.
 835 #'
 836 #' @usage arv$jobs.create(job, ensure_unique_name = "false",
 837 #'      find_or_create = "false", filters = NULL,
 838 #'      minimum_script_version = NULL, exclude_script_versions = NULL)
 839 #' @param job Job object.
 840 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 841 #' @param find_or_create
 842 #' @param filters
 843 #' @param minimum_script_version
 844 #' @param exclude_script_versions
 845 #' @return Job object.
 846 #' @name jobs.create
 847 NULL
 848
 849 #' jobs.update
 850 #'
 851 #' jobs.update is a method defined in Arvados class.
 852 #'
 853 #' @usage arv$jobs.update(job, uuid)
 854 #' @param job Job object.
 855 #' @param uuid The UUID of the Job in question.
 856 #' @return Job object.
 857 #' @name jobs.update
 858 NULL
 859
 860 #' jobs.delete
 861 #'
 862 #' jobs.delete is a method defined in Arvados class.
 863 #'
 864 #' @usage arv$jobs.delete(uuid)
 865 #' @param uuid The UUID of the Job in question.
 866 #' @return Job object.
 867 #' @name jobs.delete
 868 NULL
 869
 870 #' jobs.queue
 871 #'
 872 #' jobs.queue is a method defined in Arvados class.
 873 #'
 874 #' @usage arv$jobs.queue(filters = NULL,
 875 #'      where = NULL, order = NULL, select = NULL,
 876 #'      distinct = NULL, limit = "100", offset = "0",
 877 #'      count = "exact")
 878 #' @param filters
 879 #' @param where
 880 #' @param order
 881 #' @param select
 882 #' @param distinct
 883 #' @param limit
 884 #' @param offset
 885 #' @param count
 886 #' @return Job object.
 887 #' @name jobs.queue
 888 NULL
 889
 890 #' jobs.queue_size
 891 #'
 892 #' jobs.queue_size is a method defined in Arvados class.
 893 #'
 894 #' @usage arv$jobs.queue_size(NULL)
 895 #' @return Job object.
 896 #' @name jobs.queue_size
 897 NULL
 898
 899 #' jobs.cancel
 900 #'
 901 #' jobs.cancel is a method defined in Arvados class.
 902 #'
 903 #' @usage arv$jobs.cancel(uuid)
 904 #' @param uuid
 905 #' @return Job object.
 906 #' @name jobs.cancel
 907 NULL
 908
 909 #' jobs.lock
 910 #'
 911 #' jobs.lock is a method defined in Arvados class.
 912 #'
 913 #' @usage arv$jobs.lock(uuid)
 914 #' @param uuid
 915 #' @return Job object.
 916 #' @name jobs.lock
 917 NULL
 918
 919 #' jobs.list
 920 #'
 921 #' jobs.list is a method defined in Arvados class.
 922 #'
 923 #' @usage arv$jobs.list(filters = NULL, where = NULL,
 924 #'      order = NULL, select = NULL, distinct = NULL,
 925 #'      limit = "100", offset = "0", count = "exact")
 926 #' @param filters
 927 #' @param where
 928 #' @param order
 929 #' @param select
 930 #' @param distinct
 931 #' @param limit
 932 #' @param offset
 933 #' @param count
 934 #' @return JobList object.
 935 #' @name jobs.list
 936 NULL
 937
 938 #' keep_disks.get
 939 #'
 940 #' keep_disks.get is a method defined in Arvados class.
 941 #'
 942 #' @usage arv$keep_disks.get(uuid)
 943 #' @param uuid The UUID of the KeepDisk in question.
 944 #' @return KeepDisk object.
 945 #' @name keep_disks.get
 946 NULL
 947
 948 #' keep_disks.create
 949 #'
 950 #' keep_disks.create is a method defined in Arvados class.
 951 #'
 952 #' @usage arv$keep_disks.create(keepdisk,
 953 #'      ensure_unique_name = "false")
 954 #' @param keepDisk KeepDisk object.
 955 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 956 #' @return KeepDisk object.
 957 #' @name keep_disks.create
 958 NULL
 959
 960 #' keep_disks.update
 961 #'
 962 #' keep_disks.update is a method defined in Arvados class.
 963 #'
 964 #' @usage arv$keep_disks.update(keepdisk,
 965 #'      uuid)
 966 #' @param keepDisk KeepDisk object.
 967 #' @param uuid The UUID of the KeepDisk in question.
 968 #' @return KeepDisk object.
 969 #' @name keep_disks.update
 970 NULL
 971
 972 #' keep_disks.delete
 973 #'
 974 #' keep_disks.delete is a method defined in Arvados class.
 975 #'
 976 #' @usage arv$keep_disks.delete(uuid)
 977 #' @param uuid The UUID of the KeepDisk in question.
 978 #' @return KeepDisk object.
 979 #' @name keep_disks.delete
 980 NULL
 981
 982 #' keep_disks.ping
 983 #'
 984 #' keep_disks.ping is a method defined in Arvados class.
 985 #'
 986 #' @usage arv$keep_disks.ping(uuid = NULL,
 987 #'      ping_secret, node_uuid = NULL, filesystem_uuid = NULL,
 988 #'      service_host = NULL, service_port, service_ssl_flag)
 989 #' @param uuid
 990 #' @param ping_secret
 991 #' @param node_uuid
 992 #' @param filesystem_uuid
 993 #' @param service_host
 994 #' @param service_port
 995 #' @param service_ssl_flag
 996 #' @return KeepDisk object.
 997 #' @name keep_disks.ping
 998 NULL
 999
1000 #' keep_disks.list
1001 #'
1002 #' keep_disks.list is a method defined in Arvados class.
1003 #'
1004 #' @usage arv$keep_disks.list(filters = NULL,
1005 #'      where = NULL, order = NULL, select = NULL,
1006 #'      distinct = NULL, limit = "100", offset = "0",
1007 #'      count = "exact")
1008 #' @param filters
1009 #' @param where
1010 #' @param order
1011 #' @param select
1012 #' @param distinct
1013 #' @param limit
1014 #' @param offset
1015 #' @param count
1016 #' @return KeepDiskList object.
1017 #' @name keep_disks.list
1018 NULL
1019
1020 #' keep_services.get
1021 #'
1022 #' keep_services.get is a method defined in Arvados class.
1023 #'
1024 #' @usage arv$keep_services.get(uuid)
1025 #' @param uuid The UUID of the KeepService in question.
1026 #' @return KeepService object.
1027 #' @name keep_services.get
1028 NULL
1029
1030 #' keep_services.create
1031 #'
1032 #' keep_services.create is a method defined in Arvados class.
1033 #'
1034 #' @usage arv$keep_services.create(keepservice,
1035 #'      ensure_unique_name = "false")
1036 #' @param keepService KeepService object.
1037 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1038 #' @return KeepService object.
1039 #' @name keep_services.create
1040 NULL
1041
1042 #' keep_services.update
1043 #'
1044 #' keep_services.update is a method defined in Arvados class.
1045 #'
1046 #' @usage arv$keep_services.update(keepservice,
1047 #'      uuid)
1048 #' @param keepService KeepService object.
1049 #' @param uuid The UUID of the KeepService in question.
1050 #' @return KeepService object.
1051 #' @name keep_services.update
1052 NULL
1053
1054 #' keep_services.delete
1055 #'
1056 #' keep_services.delete is a method defined in Arvados class.
1057 #'
1058 #' @usage arv$keep_services.delete(uuid)
1059 #' @param uuid The UUID of the KeepService in question.
1060 #' @return KeepService object.
1061 #' @name keep_services.delete
1062 NULL
1063
1064 #' keep_services.accessible
1065 #'
1066 #' keep_services.accessible is a method defined in Arvados class.
1067 #'
1068 #' @usage arv$keep_services.accessible(NULL)
1069 #' @return KeepService object.
1070 #' @name keep_services.accessible
1071 NULL
1072
1073 #' keep_services.list
1074 #'
1075 #' keep_services.list is a method defined in Arvados class.
1076 #'
1077 #' @usage arv$keep_services.list(filters = NULL,
1078 #'      where = NULL, order = NULL, select = NULL,
1079 #'      distinct = NULL, limit = "100", offset = "0",
1080 #'      count = "exact")
1081 #' @param filters
1082 #' @param where
1083 #' @param order
1084 #' @param select
1085 #' @param distinct
1086 #' @param limit
1087 #' @param offset
1088 #' @param count
1089 #' @return KeepServiceList object.
1090 #' @name keep_services.list
1091 NULL
1092
1093 #' pipeline_templates.get
1094 #'
1095 #' pipeline_templates.get is a method defined in Arvados class.
1096 #'
1097 #' @usage arv$pipeline_templates.get(uuid)
1098 #' @param uuid The UUID of the PipelineTemplate in question.
1099 #' @return PipelineTemplate object.
1100 #' @name pipeline_templates.get
1101 NULL
1102
1103 #' pipeline_templates.create
1104 #'
1105 #' pipeline_templates.create is a method defined in Arvados class.
1106 #'
1107 #' @usage arv$pipeline_templates.create(pipelinetemplate,
1108 #'      ensure_unique_name = "false")
1109 #' @param pipelineTemplate PipelineTemplate object.
1110 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1111 #' @return PipelineTemplate object.
1112 #' @name pipeline_templates.create
1113 NULL
1114
1115 #' pipeline_templates.update
1116 #'
1117 #' pipeline_templates.update is a method defined in Arvados class.
1118 #'
1119 #' @usage arv$pipeline_templates.update(pipelinetemplate,
1120 #'      uuid)
1121 #' @param pipelineTemplate PipelineTemplate object.
1122 #' @param uuid The UUID of the PipelineTemplate in question.
1123 #' @return PipelineTemplate object.
1124 #' @name pipeline_templates.update
1125 NULL
1126
1127 #' pipeline_templates.delete
1128 #'
1129 #' pipeline_templates.delete is a method defined in Arvados class.
1130 #'
1131 #' @usage arv$pipeline_templates.delete(uuid)
1132 #' @param uuid The UUID of the PipelineTemplate in question.
1133 #' @return PipelineTemplate object.
1134 #' @name pipeline_templates.delete
1135 NULL
1136
1137 #' pipeline_templates.list
1138 #'
1139 #' pipeline_templates.list is a method defined in Arvados class.
1140 #'
1141 #' @usage arv$pipeline_templates.list(filters = NULL,
1142 #'      where = NULL, order = NULL, select = NULL,
1143 #'      distinct = NULL, limit = "100", offset = "0",
1144 #'      count = "exact")
1145 #' @param filters
1146 #' @param where
1147 #' @param order
1148 #' @param select
1149 #' @param distinct
1150 #' @param limit
1151 #' @param offset
1152 #' @param count
1153 #' @return PipelineTemplateList object.
1154 #' @name pipeline_templates.list
1155 NULL
1156
1157 #' pipeline_instances.get
1158 #'
1159 #' pipeline_instances.get is a method defined in Arvados class.
1160 #'
1161 #' @usage arv$pipeline_instances.get(uuid)
1162 #' @param uuid The UUID of the PipelineInstance in question.
1163 #' @return PipelineInstance object.
1164 #' @name pipeline_instances.get
1165 NULL
1166
1167 #' pipeline_instances.create
1168 #'
1169 #' pipeline_instances.create is a method defined in Arvados class.
1170 #'
1171 #' @usage arv$pipeline_instances.create(pipelineinstance,
1172 #'      ensure_unique_name = "false")
1173 #' @param pipelineInstance PipelineInstance object.
1174 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1175 #' @return PipelineInstance object.
1176 #' @name pipeline_instances.create
1177 NULL
1178
1179 #' pipeline_instances.update
1180 #'
1181 #' pipeline_instances.update is a method defined in Arvados class.
1182 #'
1183 #' @usage arv$pipeline_instances.update(pipelineinstance,
1184 #'      uuid)
1185 #' @param pipelineInstance PipelineInstance object.
1186 #' @param uuid The UUID of the PipelineInstance in question.
1187 #' @return PipelineInstance object.
1188 #' @name pipeline_instances.update
1189 NULL
1190
1191 #' pipeline_instances.delete
1192 #'
1193 #' pipeline_instances.delete is a method defined in Arvados class.
1194 #'
1195 #' @usage arv$pipeline_instances.delete(uuid)
1196 #' @param uuid The UUID of the PipelineInstance in question.
1197 #' @return PipelineInstance object.
1198 #' @name pipeline_instances.delete
1199 NULL
1200
1201 #' pipeline_instances.cancel
1202 #'
1203 #' pipeline_instances.cancel is a method defined in Arvados class.
1204 #'
1205 #' @usage arv$pipeline_instances.cancel(uuid)
1206 #' @param uuid
1207 #' @return PipelineInstance object.
1208 #' @name pipeline_instances.cancel
1209 NULL
1210
1211 #' pipeline_instances.list
1212 #'
1213 #' pipeline_instances.list is a method defined in Arvados class.
1214 #'
1215 #' @usage arv$pipeline_instances.list(filters = NULL,
1216 #'      where = NULL, order = NULL, select = NULL,
1217 #'      distinct = NULL, limit = "100", offset = "0",
1218 #'      count = "exact")
1219 #' @param filters
1220 #' @param where
1221 #' @param order
1222 #' @param select
1223 #' @param distinct
1224 #' @param limit
1225 #' @param offset
1226 #' @param count
1227 #' @return PipelineInstanceList object.
1228 #' @name pipeline_instances.list
1229 NULL
1230
1231 #' nodes.get
1232 #'
1233 #' nodes.get is a method defined in Arvados class.
1234 #'
1235 #' @usage arv$nodes.get(uuid)
1236 #' @param uuid The UUID of the Node in question.
1237 #' @return Node object.
1238 #' @name nodes.get
1239 NULL
1240
1241 #' nodes.create
1242 #'
1243 #' nodes.create is a method defined in Arvados class.
1244 #'
1245 #' @usage arv$nodes.create(node, ensure_unique_name = "false",
1246 #'      assign_slot = NULL)
1247 #' @param node Node object.
1248 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1249 #' @param assign_slot assign slot and hostname
1250 #' @return Node object.
1251 #' @name nodes.create
1252 NULL
1253
1254 #' nodes.update
1255 #'
1256 #' nodes.update is a method defined in Arvados class.
1257 #'
1258 #' @usage arv$nodes.update(node, uuid, assign_slot = NULL)
1259 #' @param node Node object.
1260 #' @param uuid The UUID of the Node in question.
1261 #' @param assign_slot assign slot and hostname
1262 #' @return Node object.
1263 #' @name nodes.update
1264 NULL
1265
1266 #' nodes.delete
1267 #'
1268 #' nodes.delete is a method defined in Arvados class.
1269 #'
1270 #' @usage arv$nodes.delete(uuid)
1271 #' @param uuid The UUID of the Node in question.
1272 #' @return Node object.
1273 #' @name nodes.delete
1274 NULL
1275
1276 #' nodes.ping
1277 #'
1278 #' nodes.ping is a method defined in Arvados class.
1279 #'
1280 #' @usage arv$nodes.ping(uuid, ping_secret)
1281 #' @param uuid
1282 #' @param ping_secret
1283 #' @return Node object.
1284 #' @name nodes.ping
1285 NULL
1286
1287 #' nodes.list
1288 #'
1289 #' nodes.list is a method defined in Arvados class.
1290 #'
1291 #' @usage arv$nodes.list(filters = NULL,
1292 #'      where = NULL, order = NULL, select = NULL,
1293 #'      distinct = NULL, limit = "100", offset = "0",
1294 #'      count = "exact")
1295 #' @param filters
1296 #' @param where
1297 #' @param order
1298 #' @param select
1299 #' @param distinct
1300 #' @param limit
1301 #' @param offset
1302 #' @param count
1303 #' @return NodeList object.
1304 #' @name nodes.list
1305 NULL
1306
1307 #' repositories.get
1308 #'
1309 #' repositories.get is a method defined in Arvados class.
1310 #'
1311 #' @usage arv$repositories.get(uuid)
1312 #' @param uuid The UUID of the Repository in question.
1313 #' @return Repository object.
1314 #' @name repositories.get
1315 NULL
1316
1317 #' repositories.create
1318 #'
1319 #' repositories.create is a method defined in Arvados class.
1320 #'
1321 #' @usage arv$repositories.create(repository,
1322 #'      ensure_unique_name = "false")
1323 #' @param repository Repository object.
1324 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1325 #' @return Repository object.
1326 #' @name repositories.create
1327 NULL
1328
1329 #' repositories.update
1330 #'
1331 #' repositories.update is a method defined in Arvados class.
1332 #'
1333 #' @usage arv$repositories.update(repository,
1334 #'      uuid)
1335 #' @param repository Repository object.
1336 #' @param uuid The UUID of the Repository in question.
1337 #' @return Repository object.
1338 #' @name repositories.update
1339 NULL
1340
1341 #' repositories.delete
1342 #'
1343 #' repositories.delete is a method defined in Arvados class.
1344 #'
1345 #' @usage arv$repositories.delete(uuid)
1346 #' @param uuid The UUID of the Repository in question.
1347 #' @return Repository object.
1348 #' @name repositories.delete
1349 NULL
1350
1351 #' repositories.get_all_permissions
1352 #'
1353 #' repositories.get_all_permissions is a method defined in Arvados class.
1354 #'
1355 #' @usage arv$repositories.get_all_permissions(NULL)
1356 #' @return Repository object.
1357 #' @name repositories.get_all_permissions
1358 NULL
1359
1360 #' repositories.list
1361 #'
1362 #' repositories.list is a method defined in Arvados class.
1363 #'
1364 #' @usage arv$repositories.list(filters = NULL,
1365 #'      where = NULL, order = NULL, select = NULL,
1366 #'      distinct = NULL, limit = "100", offset = "0",
1367 #'      count = "exact")
1368 #' @param filters
1369 #' @param where
1370 #' @param order
1371 #' @param select
1372 #' @param distinct
1373 #' @param limit
1374 #' @param offset
1375 #' @param count
1376 #' @return RepositoryList object.
1377 #' @name repositories.list
1378 NULL
1379
1380 #' specimens.get
1381 #'
1382 #' specimens.get is a method defined in Arvados class.
1383 #'
1384 #' @usage arv$specimens.get(uuid)
1385 #' @param uuid The UUID of the Specimen in question.
1386 #' @return Specimen object.
1387 #' @name specimens.get
1388 NULL
1389
1390 #' specimens.create
1391 #'
1392 #' specimens.create is a method defined in Arvados class.
1393 #'
1394 #' @usage arv$specimens.create(specimen,
1395 #'      ensure_unique_name = "false")
1396 #' @param specimen Specimen object.
1397 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1398 #' @return Specimen object.
1399 #' @name specimens.create
1400 NULL
1401
1402 #' specimens.update
1403 #'
1404 #' specimens.update is a method defined in Arvados class.
1405 #'
1406 #' @usage arv$specimens.update(specimen,
1407 #'      uuid)
1408 #' @param specimen Specimen object.
1409 #' @param uuid The UUID of the Specimen in question.
1410 #' @return Specimen object.
1411 #' @name specimens.update
1412 NULL
1413
1414 #' specimens.delete
1415 #'
1416 #' specimens.delete is a method defined in Arvados class.
1417 #'
1418 #' @usage arv$specimens.delete(uuid)
1419 #' @param uuid The UUID of the Specimen in question.
1420 #' @return Specimen object.
1421 #' @name specimens.delete
1422 NULL
1423
1424 #' specimens.list
1425 #'
1426 #' specimens.list is a method defined in Arvados class.
1427 #'
1428 #' @usage arv$specimens.list(filters = NULL,
1429 #'      where = NULL, order = NULL, select = NULL,
1430 #'      distinct = NULL, limit = "100", offset = "0",
1431 #'      count = "exact")
1432 #' @param filters
1433 #' @param where
1434 #' @param order
1435 #' @param select
1436 #' @param distinct
1437 #' @param limit
1438 #' @param offset
1439 #' @param count
1440 #' @return SpecimenList object.
1441 #' @name specimens.list
1442 NULL
1443
1444 #' logs.get
1445 #'
1446 #' logs.get is a method defined in Arvados class.
1447 #'
1448 #' @usage arv$logs.get(uuid)
1449 #' @param uuid The UUID of the Log in question.
1450 #' @return Log object.
1451 #' @name logs.get
1452 NULL
1453
1454 #' logs.create
1455 #'
1456 #' logs.create is a method defined in Arvados class.
1457 #'
1458 #' @usage arv$logs.create(log, ensure_unique_name = "false")
1459 #' @param log Log object.
1460 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1461 #' @return Log object.
1462 #' @name logs.create
1463 NULL
1464
1465 #' logs.update
1466 #'
1467 #' logs.update is a method defined in Arvados class.
1468 #'
1469 #' @usage arv$logs.update(log, uuid)
1470 #' @param log Log object.
1471 #' @param uuid The UUID of the Log in question.
1472 #' @return Log object.
1473 #' @name logs.update
1474 NULL
1475
1476 #' logs.delete
1477 #'
1478 #' logs.delete is a method defined in Arvados class.
1479 #'
1480 #' @usage arv$logs.delete(uuid)
1481 #' @param uuid The UUID of the Log in question.
1482 #' @return Log object.
1483 #' @name logs.delete
1484 NULL
1485
1486 #' logs.list
1487 #'
1488 #' logs.list is a method defined in Arvados class.
1489 #'
1490 #' @usage arv$logs.list(filters = NULL, where = NULL,
1491 #'      order = NULL, select = NULL, distinct = NULL,
1492 #'      limit = "100", offset = "0", count = "exact")
1493 #' @param filters
1494 #' @param where
1495 #' @param order
1496 #' @param select
1497 #' @param distinct
1498 #' @param limit
1499 #' @param offset
1500 #' @param count
1501 #' @return LogList object.
1502 #' @name logs.list
1503 NULL
1504
1505 #' traits.get
1506 #'
1507 #' traits.get is a method defined in Arvados class.
1508 #'
1509 #' @usage arv$traits.get(uuid)
1510 #' @param uuid The UUID of the Trait in question.
1511 #' @return Trait object.
1512 #' @name traits.get
1513 NULL
1514
1515 #' traits.create
1516 #'
1517 #' traits.create is a method defined in Arvados class.
1518 #'
1519 #' @usage arv$traits.create(trait, ensure_unique_name = "false")
1520 #' @param trait Trait object.
1521 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1522 #' @return Trait object.
1523 #' @name traits.create
1524 NULL
1525
1526 #' traits.update
1527 #'
1528 #' traits.update is a method defined in Arvados class.
1529 #'
1530 #' @usage arv$traits.update(trait, uuid)
1531 #' @param trait Trait object.
1532 #' @param uuid The UUID of the Trait in question.
1533 #' @return Trait object.
1534 #' @name traits.update
1535 NULL
1536
1537 #' traits.delete
1538 #'
1539 #' traits.delete is a method defined in Arvados class.
1540 #'
1541 #' @usage arv$traits.delete(uuid)
1542 #' @param uuid The UUID of the Trait in question.
1543 #' @return Trait object.
1544 #' @name traits.delete
1545 NULL
1546
1547 #' traits.list
1548 #'
1549 #' traits.list is a method defined in Arvados class.
1550 #'
1551 #' @usage arv$traits.list(filters = NULL,
1552 #'      where = NULL, order = NULL, select = NULL,
1553 #'      distinct = NULL, limit = "100", offset = "0",
1554 #'      count = "exact")
1555 #' @param filters
1556 #' @param where
1557 #' @param order
1558 #' @param select
1559 #' @param distinct
1560 #' @param limit
1561 #' @param offset
1562 #' @param count
1563 #' @return TraitList object.
1564 #' @name traits.list
1565 NULL
1566
1567 #' virtual_machines.get
1568 #'
1569 #' virtual_machines.get is a method defined in Arvados class.
1570 #'
1571 #' @usage arv$virtual_machines.get(uuid)
1572 #' @param uuid The UUID of the VirtualMachine in question.
1573 #' @return VirtualMachine object.
1574 #' @name virtual_machines.get
1575 NULL
1576
1577 #' virtual_machines.create
1578 #'
1579 #' virtual_machines.create is a method defined in Arvados class.
1580 #'
1581 #' @usage arv$virtual_machines.create(virtualmachine,
1582 #'      ensure_unique_name = "false")
1583 #' @param virtualMachine VirtualMachine object.
1584 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1585 #' @return VirtualMachine object.
1586 #' @name virtual_machines.create
1587 NULL
1588
1589 #' virtual_machines.update
1590 #'
1591 #' virtual_machines.update is a method defined in Arvados class.
1592 #'
1593 #' @usage arv$virtual_machines.update(virtualmachine,
1594 #'      uuid)
1595 #' @param virtualMachine VirtualMachine object.
1596 #' @param uuid The UUID of the VirtualMachine in question.
1597 #' @return VirtualMachine object.
1598 #' @name virtual_machines.update
1599 NULL
1600
1601 #' virtual_machines.delete
1602 #'
1603 #' virtual_machines.delete is a method defined in Arvados class.
1604 #'
1605 #' @usage arv$virtual_machines.delete(uuid)
1606 #' @param uuid The UUID of the VirtualMachine in question.
1607 #' @return VirtualMachine object.
1608 #' @name virtual_machines.delete
1609 NULL
1610
1611 #' virtual_machines.logins
1612 #'
1613 #' virtual_machines.logins is a method defined in Arvados class.
1614 #'
1615 #' @usage arv$virtual_machines.logins(uuid)
1616 #' @param uuid
1617 #' @return VirtualMachine object.
1618 #' @name virtual_machines.logins
1619 NULL
1620
1621 #' virtual_machines.get_all_logins
1622 #'
1623 #' virtual_machines.get_all_logins is a method defined in Arvados class.
1624 #'
1625 #' @usage arv$virtual_machines.get_all_logins(NULL)
1626 #' @return VirtualMachine object.
1627 #' @name virtual_machines.get_all_logins
1628 NULL
1629
1630 #' virtual_machines.list
1631 #'
1632 #' virtual_machines.list is a method defined in Arvados class.
1633 #'
1634 #' @usage arv$virtual_machines.list(filters = NULL,
1635 #'      where = NULL, order = NULL, select = NULL,
1636 #'      distinct = NULL, limit = "100", offset = "0",
1637 #'      count = "exact")
1638 #' @param filters
1639 #' @param where
1640 #' @param order
1641 #' @param select
1642 #' @param distinct
1643 #' @param limit
1644 #' @param offset
1645 #' @param count
1646 #' @return VirtualMachineList object.
1647 #' @name virtual_machines.list
1648 NULL
1649
1650 #' workflows.get
1651 #'
1652 #' workflows.get is a method defined in Arvados class.
1653 #'
1654 #' @usage arv$workflows.get(uuid)
1655 #' @param uuid The UUID of the Workflow in question.
1656 #' @return Workflow object.
1657 #' @name workflows.get
1658 NULL
1659
1660 #' workflows.create
1661 #'
1662 #' workflows.create is a method defined in Arvados class.
1663 #'
1664 #' @usage arv$workflows.create(workflow,
1665 #'      ensure_unique_name = "false")
1666 #' @param workflow Workflow object.
1667 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1668 #' @return Workflow object.
1669 #' @name workflows.create
1670 NULL
1671
1672 #' workflows.update
1673 #'
1674 #' workflows.update is a method defined in Arvados class.
1675 #'
1676 #' @usage arv$workflows.update(workflow,
1677 #'      uuid)
1678 #' @param workflow Workflow object.
1679 #' @param uuid The UUID of the Workflow in question.
1680 #' @return Workflow object.
1681 #' @name workflows.update
1682 NULL
1683
1684 #' workflows.delete
1685 #'
1686 #' workflows.delete is a method defined in Arvados class.
1687 #'
1688 #' @usage arv$workflows.delete(uuid)
1689 #' @param uuid The UUID of the Workflow in question.
1690 #' @return Workflow object.
1691 #' @name workflows.delete
1692 NULL
1693
1694 #' workflows.list
1695 #'
1696 #' workflows.list is a method defined in Arvados class.
1697 #'
1698 #' @usage arv$workflows.list(filters = NULL,
1699 #'      where = NULL, order = NULL, select = NULL,
1700 #'      distinct = NULL, limit = "100", offset = "0",
1701 #'      count = "exact")
1702 #' @param filters
1703 #' @param where
1704 #' @param order
1705 #' @param select
1706 #' @param distinct
1707 #' @param limit
1708 #' @param offset
1709 #' @param count
1710 #' @return WorkflowList object.
1711 #' @name workflows.list
1712 NULL
1713
1714 #' groups.get
1715 #'
1716 #' groups.get is a method defined in Arvados class.
1717 #'
1718 #' @usage arv$groups.get(uuid)
1719 #' @param uuid The UUID of the Group in question.
1720 #' @return Group object.
1721 #' @name groups.get
1722 NULL
1723
1724 #' groups.create
1725 #'
1726 #' groups.create is a method defined in Arvados class.
1727 #'
1728 #' @usage arv$groups.create(group, ensure_unique_name = "false")
1729 #' @param group Group object.
1730 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1731 #' @return Group object.
1732 #' @name groups.create
1733 NULL
1734
1735 #' groups.update
1736 #'
1737 #' groups.update is a method defined in Arvados class.
1738 #'
1739 #' @usage arv$groups.update(group, uuid)
1740 #' @param group Group object.
1741 #' @param uuid The UUID of the Group in question.
1742 #' @return Group object.
1743 #' @name groups.update
1744 NULL
1745
1746 #' groups.delete
1747 #'
1748 #' groups.delete is a method defined in Arvados class.
1749 #'
1750 #' @usage arv$groups.delete(uuid)
1751 #' @param uuid The UUID of the Group in question.
1752 #' @return Group object.
1753 #' @name groups.delete
1754 NULL
1755
1756 #' groups.contents
1757 #'
1758 #' groups.contents is a method defined in Arvados class.
1759 #'
1760 #' @usage arv$groups.contents(filters = NULL,
1761 #'      where = NULL, order = NULL, distinct = NULL,
1762 #'      limit = "100", offset = "0", count = "exact",
1763 #'      include_trash = NULL, uuid = NULL, recursive = NULL)
1764 #' @param filters
1765 #' @param where
1766 #' @param order
1767 #' @param distinct
1768 #' @param limit
1769 #' @param offset
1770 #' @param count
1771 #' @param include_trash Include items whose is_trashed attribute is true.
1772 #' @param uuid
1773 #' @param recursive Include contents from child groups recursively.
1774 #' @return Group object.
1775 #' @name groups.contents
1776 NULL
1777
1778 #' groups.trash
1779 #'
1780 #' groups.trash is a method defined in Arvados class.
1781 #'
1782 #' @usage arv$groups.trash(uuid)
1783 #' @param uuid
1784 #' @return Group object.
1785 #' @name groups.trash
1786 NULL
1787
1788 #' groups.untrash
1789 #'
1790 #' groups.untrash is a method defined in Arvados class.
1791 #'
1792 #' @usage arv$groups.untrash(uuid)
1793 #' @param uuid
1794 #' @return Group object.
1795 #' @name groups.untrash
1796 NULL
1797
1798 #' groups.list
1799 #'
1800 #' groups.list is a method defined in Arvados class.
1801 #'
1802 #' @usage arv$groups.list(filters = NULL,
1803 #'      where = NULL, order = NULL, select = NULL,
1804 #'      distinct = NULL, limit = "100", offset = "0",
1805 #'      count = "exact", include_trash = NULL)
1806 #' @param filters
1807 #' @param where
1808 #' @param order
1809 #' @param select
1810 #' @param distinct
1811 #' @param limit
1812 #' @param offset
1813 #' @param count
1814 #' @param include_trash Include items whose is_trashed attribute is true.
1815 #' @return GroupList object.
1816 #' @name groups.list
1817 NULL
1818
1819 #' user_agreements.get
1820 #'
1821 #' user_agreements.get is a method defined in Arvados class.
1822 #'
1823 #' @usage arv$user_agreements.get(uuid)
1824 #' @param uuid The UUID of the UserAgreement in question.
1825 #' @return UserAgreement object.
1826 #' @name user_agreements.get
1827 NULL
1828
1829 #' user_agreements.create
1830 #'
1831 #' user_agreements.create is a method defined in Arvados class.
1832 #'
1833 #' @usage arv$user_agreements.create(useragreement,
1834 #'      ensure_unique_name = "false")
1835 #' @param userAgreement UserAgreement object.
1836 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1837 #' @return UserAgreement object.
1838 #' @name user_agreements.create
1839 NULL
1840
1841 #' user_agreements.update
1842 #'
1843 #' user_agreements.update is a method defined in Arvados class.
1844 #'
1845 #' @usage arv$user_agreements.update(useragreement,
1846 #'      uuid)
1847 #' @param userAgreement UserAgreement object.
1848 #' @param uuid The UUID of the UserAgreement in question.
1849 #' @return UserAgreement object.
1850 #' @name user_agreements.update
1851 NULL
1852
1853 #' user_agreements.delete
1854 #'
1855 #' user_agreements.delete is a method defined in Arvados class.
1856 #'
1857 #' @usage arv$user_agreements.delete(uuid)
1858 #' @param uuid The UUID of the UserAgreement in question.
1859 #' @return UserAgreement object.
1860 #' @name user_agreements.delete
1861 NULL
1862
1863 #' user_agreements.signatures
1864 #'
1865 #' user_agreements.signatures is a method defined in Arvados class.
1866 #'
1867 #' @usage arv$user_agreements.signatures(NULL)
1868 #' @return UserAgreement object.
1869 #' @name user_agreements.signatures
1870 NULL
1871
1872 #' user_agreements.sign
1873 #'
1874 #' user_agreements.sign is a method defined in Arvados class.
1875 #'
1876 #' @usage arv$user_agreements.sign(NULL)
1877 #' @return UserAgreement object.
1878 #' @name user_agreements.sign
1879 NULL
1880
1881 #' user_agreements.list
1882 #'
1883 #' user_agreements.list is a method defined in Arvados class.
1884 #'
1885 #' @usage arv$user_agreements.list(filters = NULL,
1886 #'      where = NULL, order = NULL, select = NULL,
1887 #'      distinct = NULL, limit = "100", offset = "0",
1888 #'      count = "exact")
1889 #' @param filters
1890 #' @param where
1891 #' @param order
1892 #' @param select
1893 #' @param distinct
1894 #' @param limit
1895 #' @param offset
1896 #' @param count
1897 #' @return UserAgreementList object.
1898 #' @name user_agreements.list
1899 NULL
1900
1901 #' user_agreements.new
1902 #'
1903 #' user_agreements.new is a method defined in Arvados class.
1904 #'
1905 #' @usage arv$user_agreements.new(NULL)
1906 #' @return UserAgreement object.
1907 #' @name user_agreements.new
1908 NULL
1909
1910 #' project.get
1911 #'
1912 #' projects.get is equivalent to groups.get method.
1913 #'
1914 #' @usage arv$projects.get(uuid)
1915 #' @param uuid The UUID of the Group in question.
1916 #' @return Group object.
1917 #' @name projects.get
1918 NULL
1919
1920 #' project.create
1921 #'
1922 #' projects.create wrapps groups.create method by setting group_class attribute to "project".
1923 #'
1924 #' @usage arv$projects.create(group, ensure_unique_name = "false")
1925 #' @param group Group object.
1926 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1927 #' @return Group object.
1928 #' @name projects.create
1929 NULL
1930
1931 #' project.update
1932 #'
1933 #' projects.update wrapps groups.update method by setting group_class attribute to "project".
1934 #'
1935 #' @usage arv$projects.update(group, uuid)
1936 #' @param group Group object.
1937 #' @param uuid The UUID of the Group in question.
1938 #' @return Group object.
1939 #' @name projects.update
1940 NULL
1941
1942 #' project.delete
1943 #'
1944 #' projects.delete is equivalent to groups.delete method.
1945 #'
1946 #' @usage arv$project.delete(uuid)
1947 #' @param uuid The UUID of the Group in question.
1948 #' @return Group object.
1949 #' @name projects.delete
1950 NULL
1951
1952 #' project.list
1953 #'
1954 #' projects.list wrapps groups.list method by setting group_class attribute to "project".
1955 #'
1956 #' @usage arv$projects.list(filters = NULL,
1957 #'      where = NULL, order = NULL, distinct = NULL,
1958 #'      limit = "100", offset = "0", count = "exact",
1959 #'      include_trash = NULL, uuid = NULL, recursive = NULL)
1960 #' @param filters
1961 #' @param where
1962 #' @param order
1963 #' @param distinct
1964 #' @param limit
1965 #' @param offset
1966 #' @param count
1967 #' @param include_trash Include items whose is_trashed attribute is true.
1968 #' @param uuid
1969 #' @param recursive Include contents from child groups recursively.
1970 #' @return Group object.
1971 #' @name projects.list
1972 NULL
1973
1974 #' Arvados
1975 #'
1976 #' Arvados class gives users ability to access Arvados REST API.
1977 #'
1978 #' @section Usage:
1979 #' \preformatted{arv = Arvados$new(authToken = NULL, hostName = NULL, numRetries = 0)}
1980 #'
1981 #' @section Arguments:
1982 #' \describe{
1983 #'      \item{authToken}{Authentification token. If not specified ARVADOS_API_TOKEN environment variable will be used.}
1984 #'      \item{hostName}{Host name. If not specified ARVADOS_API_HOST environment variable will be used.}
1985 #'      \item{numRetries}{Number which specifies how many times to retry failed service requests.}
1986 #' }
1987 #'
1988 #' @section Methods:
1989 #' \describe{
1990 #'      \item{}{\code{\link{api_client_authorizations.create}}}
1991 #'      \item{}{\code{\link{api_client_authorizations.create_system_auth}}}
1992 #'      \item{}{\code{\link{api_client_authorizations.current}}}
1993 #'      \item{}{\code{\link{api_client_authorizations.delete}}}
1994 #'      \item{}{\code{\link{api_client_authorizations.get}}}
1995 #'      \item{}{\code{\link{api_client_authorizations.list}}}
1996 #'      \item{}{\code{\link{api_client_authorizations.update}}}
1997 #'      \item{}{\code{\link{api_clients.create}}}
1998 #'      \item{}{\code{\link{api_clients.delete}}}
1999 #'      \item{}{\code{\link{api_clients.get}}}
2000 #'      \item{}{\code{\link{api_clients.list}}}
2001 #'      \item{}{\code{\link{api_clients.update}}}
2002 #'      \item{}{\code{\link{authorized_keys.create}}}
2003 #'      \item{}{\code{\link{authorized_keys.delete}}}
2004 #'      \item{}{\code{\link{authorized_keys.get}}}
2005 #'      \item{}{\code{\link{authorized_keys.list}}}
2006 #'      \item{}{\code{\link{authorized_keys.update}}}
2007 #'      \item{}{\code{\link{collections.create}}}
2008 #'      \item{}{\code{\link{collections.delete}}}
2009 #'      \item{}{\code{\link{collections.get}}}
2010 #'      \item{}{\code{\link{collections.list}}}
2011 #'      \item{}{\code{\link{collections.provenance}}}
2012 #'      \item{}{\code{\link{collections.trash}}}
2013 #'      \item{}{\code{\link{collections.untrash}}}
2014 #'      \item{}{\code{\link{collections.update}}}
2015 #'      \item{}{\code{\link{collections.used_by}}}
2016 #'      \item{}{\code{\link{container_requests.create}}}
2017 #'      \item{}{\code{\link{container_requests.delete}}}
2018 #'      \item{}{\code{\link{container_requests.get}}}
2019 #'      \item{}{\code{\link{container_requests.list}}}
2020 #'      \item{}{\code{\link{container_requests.update}}}
2021 #'      \item{}{\code{\link{containers.auth}}}
2022 #'      \item{}{\code{\link{containers.create}}}
2023 #'      \item{}{\code{\link{containers.current}}}
2024 #'      \item{}{\code{\link{containers.delete}}}
2025 #'      \item{}{\code{\link{containers.get}}}
2026 #'      \item{}{\code{\link{containers.list}}}
2027 #'      \item{}{\code{\link{containers.lock}}}
2028 #'      \item{}{\code{\link{containers.secret_mounts}}}
2029 #'      \item{}{\code{\link{containers.unlock}}}
2030 #'      \item{}{\code{\link{containers.update}}}
2031 #'      \item{}{\code{\link{groups.contents}}}
2032 #'      \item{}{\code{\link{groups.create}}}
2033 #'      \item{}{\code{\link{groups.delete}}}
2034 #'      \item{}{\code{\link{groups.get}}}
2035 #'      \item{}{\code{\link{groups.list}}}
2036 #'      \item{}{\code{\link{groups.trash}}}
2037 #'      \item{}{\code{\link{groups.untrash}}}
2038 #'      \item{}{\code{\link{groups.update}}}
2039 #'      \item{}{\code{\link{humans.create}}}
2040 #'      \item{}{\code{\link{humans.delete}}}
2041 #'      \item{}{\code{\link{humans.get}}}
2042 #'      \item{}{\code{\link{humans.list}}}
2043 #'      \item{}{\code{\link{humans.update}}}
2044 #'      \item{}{\code{\link{jobs.cancel}}}
2045 #'      \item{}{\code{\link{jobs.create}}}
2046 #'      \item{}{\code{\link{jobs.delete}}}
2047 #'      \item{}{\code{\link{jobs.get}}}
2048 #'      \item{}{\code{\link{jobs.list}}}
2049 #'      \item{}{\code{\link{jobs.lock}}}
2050 #'      \item{}{\code{\link{jobs.queue}}}
2051 #'      \item{}{\code{\link{jobs.queue_size}}}
2052 #'      \item{}{\code{\link{jobs.update}}}
2053 #'      \item{}{\code{\link{job_tasks.create}}}
2054 #'      \item{}{\code{\link{job_tasks.delete}}}
2055 #'      \item{}{\code{\link{job_tasks.get}}}
2056 #'      \item{}{\code{\link{job_tasks.list}}}
2057 #'      \item{}{\code{\link{job_tasks.update}}}
2058 #'      \item{}{\code{\link{keep_disks.create}}}
2059 #'      \item{}{\code{\link{keep_disks.delete}}}
2060 #'      \item{}{\code{\link{keep_disks.get}}}
2061 #'      \item{}{\code{\link{keep_disks.list}}}
2062 #'      \item{}{\code{\link{keep_disks.ping}}}
2063 #'      \item{}{\code{\link{keep_disks.update}}}
2064 #'      \item{}{\code{\link{keep_services.accessible}}}
2065 #'      \item{}{\code{\link{keep_services.create}}}
2066 #'      \item{}{\code{\link{keep_services.delete}}}
2067 #'      \item{}{\code{\link{keep_services.get}}}
2068 #'      \item{}{\code{\link{keep_services.list}}}
2069 #'      \item{}{\code{\link{keep_services.update}}}
2070 #'      \item{}{\code{\link{links.create}}}
2071 #'      \item{}{\code{\link{links.delete}}}
2072 #'      \item{}{\code{\link{links.get}}}
2073 #'      \item{}{\code{\link{links.get_permissions}}}
2074 #'      \item{}{\code{\link{links.list}}}
2075 #'      \item{}{\code{\link{links.update}}}
2076 #'      \item{}{\code{\link{logs.create}}}
2077 #'      \item{}{\code{\link{logs.delete}}}
2078 #'      \item{}{\code{\link{logs.get}}}
2079 #'      \item{}{\code{\link{logs.list}}}
2080 #'      \item{}{\code{\link{logs.update}}}
2081 #'      \item{}{\code{\link{nodes.create}}}
2082 #'      \item{}{\code{\link{nodes.delete}}}
2083 #'      \item{}{\code{\link{nodes.get}}}
2084 #'      \item{}{\code{\link{nodes.list}}}
2085 #'      \item{}{\code{\link{nodes.ping}}}
2086 #'      \item{}{\code{\link{nodes.update}}}
2087 #'      \item{}{\code{\link{pipeline_instances.cancel}}}
2088 #'      \item{}{\code{\link{pipeline_instances.create}}}
2089 #'      \item{}{\code{\link{pipeline_instances.delete}}}
2090 #'      \item{}{\code{\link{pipeline_instances.get}}}
2091 #'      \item{}{\code{\link{pipeline_instances.list}}}
2092 #'      \item{}{\code{\link{pipeline_instances.update}}}
2093 #'      \item{}{\code{\link{pipeline_templates.create}}}
2094 #'      \item{}{\code{\link{pipeline_templates.delete}}}
2095 #'      \item{}{\code{\link{pipeline_templates.get}}}
2096 #'      \item{}{\code{\link{pipeline_templates.list}}}
2097 #'      \item{}{\code{\link{pipeline_templates.update}}}
2098 #'      \item{}{\code{\link{projects.create}}}
2099 #'      \item{}{\code{\link{projects.delete}}}
2100 #'      \item{}{\code{\link{projects.get}}}
2101 #'      \item{}{\code{\link{projects.list}}}
2102 #'      \item{}{\code{\link{projects.update}}}
2103 #'      \item{}{\code{\link{repositories.create}}}
2104 #'      \item{}{\code{\link{repositories.delete}}}
2105 #'      \item{}{\code{\link{repositories.get}}}
2106 #'      \item{}{\code{\link{repositories.get_all_permissions}}}
2107 #'      \item{}{\code{\link{repositories.list}}}
2108 #'      \item{}{\code{\link{repositories.update}}}
2109 #'      \item{}{\code{\link{specimens.create}}}
2110 #'      \item{}{\code{\link{specimens.delete}}}
2111 #'      \item{}{\code{\link{specimens.get}}}
2112 #'      \item{}{\code{\link{specimens.list}}}
2113 #'      \item{}{\code{\link{specimens.update}}}
2114 #'      \item{}{\code{\link{traits.create}}}
2115 #'      \item{}{\code{\link{traits.delete}}}
2116 #'      \item{}{\code{\link{traits.get}}}
2117 #'      \item{}{\code{\link{traits.list}}}
2118 #'      \item{}{\code{\link{traits.update}}}
2119 #'      \item{}{\code{\link{user_agreements.create}}}
2120 #'      \item{}{\code{\link{user_agreements.delete}}}
2121 #'      \item{}{\code{\link{user_agreements.get}}}
2122 #'      \item{}{\code{\link{user_agreements.list}}}
2123 #'      \item{}{\code{\link{user_agreements.new}}}
2124 #'      \item{}{\code{\link{user_agreements.sign}}}
2125 #'      \item{}{\code{\link{user_agreements.signatures}}}
2126 #'      \item{}{\code{\link{user_agreements.update}}}
2127 #'      \item{}{\code{\link{users.activate}}}
2128 #'      \item{}{\code{\link{users.create}}}
2129 #'      \item{}{\code{\link{users.current}}}
2130 #'      \item{}{\code{\link{users.delete}}}
2131 #'      \item{}{\code{\link{users.get}}}
2132 #'      \item{}{\code{\link{users.list}}}
2133 #'      \item{}{\code{\link{users.setup}}}
2134 #'      \item{}{\code{\link{users.system}}}
2135 #'      \item{}{\code{\link{users.unsetup}}}
2136 #'      \item{}{\code{\link{users.update}}}
2137 #'      \item{}{\code{\link{users.update_uuid}}}
2138 #'      \item{}{\code{\link{virtual_machines.create}}}
2139 #'      \item{}{\code{\link{virtual_machines.delete}}}
2140 #'      \item{}{\code{\link{virtual_machines.get}}}
2141 #'      \item{}{\code{\link{virtual_machines.get_all_logins}}}
2142 #'      \item{}{\code{\link{virtual_machines.list}}}
2143 #'      \item{}{\code{\link{virtual_machines.logins}}}
2144 #'      \item{}{\code{\link{virtual_machines.update}}}
2145 #'      \item{}{\code{\link{workflows.create}}}
2146 #'      \item{}{\code{\link{workflows.delete}}}
2147 #'      \item{}{\code{\link{workflows.get}}}
2148 #'      \item{}{\code{\link{workflows.list}}}
2149 #'      \item{}{\code{\link{workflows.update}}}
2150 #' }
2151 #'
2152 #' @name Arvados
2153 #' @examples
2154 #' \dontrun{
2155 #' arv <- Arvados$new("your Arvados token", "example.arvadosapi.com")
2156 #'
2157 #' collection <- arv$collections.get("uuid")
2158 #'
2159 #' collectionList <- arv$collections.list(list(list("name", "like", "Test%")))
2160 #' collectionList <- listAll(arv$collections.list, list(list("name", "like", "Test%")))
2161 #'
2162 #' deletedCollection <- arv$collections.delete("uuid")
2163 #'
2164 #' updatedCollection <- arv$collections.update(list(name = "New name", description = "New description"),
2165 #'                                             "uuid")
2166 #'
2167 #' createdCollection <- arv$collections.create(list(name = "Example",
2168 #'                                                  description = "This is a test collection"))
2169 #' }
2170 NULL
2171
2172 #' @export
2173 Arvados <- R6::R6Class(
2174
2175         "Arvados",
2176
2177         public = list(
2178
2179                 initialize = function(authToken = NULL, hostName = NULL, numRetries = 0)
2180                 {
2181                         if(!is.null(hostName))
2182                                 Sys.setenv(ARVADOS_API_HOST = hostName)
2183
2184                         if(!is.null(authToken))
2185                                 Sys.setenv(ARVADOS_API_TOKEN = authToken)
2186
2187                         hostName <- Sys.getenv("ARVADOS_API_HOST")
2188                         token    <- Sys.getenv("ARVADOS_API_TOKEN")
2189
2190                         if(hostName == "" | token == "")
2191                                 stop(paste("Please provide host name and authentification token",
2192                                                    "or set ARVADOS_API_HOST and ARVADOS_API_TOKEN",
2193                                                    "environment variables."))
2194
2195                         private$token <- token
2196                         private$host  <- paste0("https://", hostName, "/arvados/v1/")
2197                         private$numRetries <- numRetries
2198                         private$REST <- RESTService$new(token, hostName,
2199                                                         HttpRequest$new(), HttpParser$new(),
2200                                                         numRetries)
2201
2202                 },
2203
2204                 projects.get = function(uuid)
2205                 {
2206                         self$groups.get(uuid)
2207                 },
2208
2209                 projects.create = function(group, ensure_unique_name = "false")
2210                 {
2211                         group <- c("group_class" = "project", group)
2212                         self$groups.create(group, ensure_unique_name)
2213                 },
2214
2215                 projects.update = function(group, uuid)
2216                 {
2217                         group <- c("group_class" = "project", group)
2218                         self$groups.update(group, uuid)
2219                 },
2220
2221                 projects.list = function(filters = NULL, where = NULL,
2222                         order = NULL, select = NULL, distinct = NULL,
2223                         limit = "100", offset = "0", count = "exact",
2224                         include_trash = NULL)
2225                 {
2226                         filters[[length(filters) + 1]] <- list("group_class", "=", "project")
2227                         self$groups.list(filters, where, order, select, distinct,
2228                                          limit, offset, count, include_trash)
2229                 },
2230
2231                 projects.delete = function(uuid)
2232                 {
2233                         self$groups.delete(uuid)
2234                 },
2235
2236                 users.get = function(uuid)
2237                 {
2238                         endPoint <- stringr::str_interp("users/${uuid}")
2239                         url <- paste0(private$host, endPoint)
2240                         headers <- list(Authorization = paste("OAuth2", private$token),
2241                                         "Content-Type" = "application/json")
2242                         queryArgs <- NULL
2243
2244                         body <- NULL
2245
2246                         response <- private$REST$http$exec("GET", url, headers, body,
2247                                                            queryArgs, private$numRetries)
2248                         resource <- private$REST$httpParser$parseJSONResponse(response)
2249
2250                         if(!is.null(resource$errors))
2251                                 stop(resource$errors)
2252
2253                         resource
2254                 },
2255
2256                 users.create = function(user, ensure_unique_name = "false")
2257                 {
2258                         endPoint <- stringr::str_interp("users")
2259                         url <- paste0(private$host, endPoint)
2260                         headers <- list(Authorization = paste("OAuth2", private$token),
2261                                         "Content-Type" = "application/json")
2262                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
2263
2264                         if(length(user) > 0)
2265                                 body <- jsonlite::toJSON(list(user = user),
2266                                                          auto_unbox = TRUE)
2267                         else
2268                                 body <- NULL
2269
2270                         response <- private$REST$http$exec("POST", url, headers, body,
2271                                                            queryArgs, private$numRetries)
2272                         resource <- private$REST$httpParser$parseJSONResponse(response)
2273
2274                         if(!is.null(resource$errors))
2275                                 stop(resource$errors)
2276
2277                         resource
2278                 },
2279
2280                 users.update = function(user, uuid)
2281                 {
2282                         endPoint <- stringr::str_interp("users/${uuid}")
2283                         url <- paste0(private$host, endPoint)
2284                         headers <- list(Authorization = paste("OAuth2", private$token),
2285                                         "Content-Type" = "application/json")
2286                         queryArgs <- NULL
2287
2288                         if(length(user) > 0)
2289                                 body <- jsonlite::toJSON(list(user = user),
2290                                                          auto_unbox = TRUE)
2291                         else
2292                                 body <- NULL
2293
2294                         response <- private$REST$http$exec("PUT", url, headers, body,
2295                                                            queryArgs, private$numRetries)
2296                         resource <- private$REST$httpParser$parseJSONResponse(response)
2297
2298                         if(!is.null(resource$errors))
2299                                 stop(resource$errors)
2300
2301                         resource
2302                 },
2303
2304                 users.delete = function(uuid)
2305                 {
2306                         endPoint <- stringr::str_interp("users/${uuid}")
2307                         url <- paste0(private$host, endPoint)
2308                         headers <- list(Authorization = paste("OAuth2", private$token),
2309                                         "Content-Type" = "application/json")
2310                         queryArgs <- NULL
2311
2312                         body <- NULL
2313
2314                         response <- private$REST$http$exec("DELETE", url, headers, body,
2315                                                            queryArgs, private$numRetries)
2316                         resource <- private$REST$httpParser$parseJSONResponse(response)
2317
2318                         if(!is.null(resource$errors))
2319                                 stop(resource$errors)
2320
2321                         resource
2322                 },
2323
2324                 users.current = function()
2325                 {
2326                         endPoint <- stringr::str_interp("users/current")
2327                         url <- paste0(private$host, endPoint)
2328                         headers <- list(Authorization = paste("OAuth2", private$token),
2329                                         "Content-Type" = "application/json")
2330                         queryArgs <- NULL
2331
2332                         body <- NULL
2333
2334                         response <- private$REST$http$exec("GET", url, headers, body,
2335                                                            queryArgs, private$numRetries)
2336                         resource <- private$REST$httpParser$parseJSONResponse(response)
2337
2338                         if(!is.null(resource$errors))
2339                                 stop(resource$errors)
2340
2341                         resource
2342                 },
2343
2344                 users.system = function()
2345                 {
2346                         endPoint <- stringr::str_interp("users/system")
2347                         url <- paste0(private$host, endPoint)
2348                         headers <- list(Authorization = paste("OAuth2", private$token),
2349                                         "Content-Type" = "application/json")
2350                         queryArgs <- NULL
2351
2352                         body <- NULL
2353
2354                         response <- private$REST$http$exec("GET", url, headers, body,
2355                                                            queryArgs, private$numRetries)
2356                         resource <- private$REST$httpParser$parseJSONResponse(response)
2357
2358                         if(!is.null(resource$errors))
2359                                 stop(resource$errors)
2360
2361                         resource
2362                 },
2363
2364                 users.activate = function(uuid)
2365                 {
2366                         endPoint <- stringr::str_interp("users/${uuid}/activate")
2367                         url <- paste0(private$host, endPoint)
2368                         headers <- list(Authorization = paste("OAuth2", private$token),
2369                                         "Content-Type" = "application/json")
2370                         queryArgs <- NULL
2371
2372                         body <- NULL
2373
2374                         response <- private$REST$http$exec("POST", url, headers, body,
2375                                                            queryArgs, private$numRetries)
2376                         resource <- private$REST$httpParser$parseJSONResponse(response)
2377
2378                         if(!is.null(resource$errors))
2379                                 stop(resource$errors)
2380
2381                         resource
2382                 },
2383
2384                 users.setup = function(user = NULL, openid_prefix = NULL,
2385                         repo_name = NULL, vm_uuid = NULL, send_notification_email = "false")
2386                 {
2387                         endPoint <- stringr::str_interp("users/setup")
2388                         url <- paste0(private$host, endPoint)
2389                         headers <- list(Authorization = paste("OAuth2", private$token),
2390                                         "Content-Type" = "application/json")
2391                         queryArgs <- list(user = user, openid_prefix = openid_prefix,
2392                                                           repo_name = repo_name, vm_uuid = vm_uuid,
2393                                                           send_notification_email = send_notification_email)
2394
2395                         body <- NULL
2396
2397                         response <- private$REST$http$exec("POST", url, headers, body,
2398                                                            queryArgs, private$numRetries)
2399                         resource <- private$REST$httpParser$parseJSONResponse(response)
2400
2401                         if(!is.null(resource$errors))
2402                                 stop(resource$errors)
2403
2404                         resource
2405                 },
2406
2407                 users.unsetup = function(uuid)
2408                 {
2409                         endPoint <- stringr::str_interp("users/${uuid}/unsetup")
2410                         url <- paste0(private$host, endPoint)
2411                         headers <- list(Authorization = paste("OAuth2", private$token),
2412                                         "Content-Type" = "application/json")
2413                         queryArgs <- NULL
2414
2415                         body <- NULL
2416
2417                         response <- private$REST$http$exec("POST", url, headers, body,
2418                                                            queryArgs, private$numRetries)
2419                         resource <- private$REST$httpParser$parseJSONResponse(response)
2420
2421                         if(!is.null(resource$errors))
2422                                 stop(resource$errors)
2423
2424                         resource
2425                 },
2426
2427                 users.update_uuid = function(uuid, new_uuid)
2428                 {
2429                         endPoint <- stringr::str_interp("users/${uuid}/update_uuid")
2430                         url <- paste0(private$host, endPoint)
2431                         headers <- list(Authorization = paste("OAuth2", private$token),
2432                                         "Content-Type" = "application/json")
2433                         queryArgs <- list(new_uuid = new_uuid)
2434
2435                         body <- NULL
2436
2437                         response <- private$REST$http$exec("POST", url, headers, body,
2438                                                            queryArgs, private$numRetries)
2439                         resource <- private$REST$httpParser$parseJSONResponse(response)
2440
2441                         if(!is.null(resource$errors))
2442                                 stop(resource$errors)
2443
2444                         resource
2445                 },
2446
2447                 users.list = function(filters = NULL, where = NULL,
2448                         order = NULL, select = NULL, distinct = NULL,
2449                         limit = "100", offset = "0", count = "exact")
2450                 {
2451                         endPoint <- stringr::str_interp("users")
2452                         url <- paste0(private$host, endPoint)
2453                         headers <- list(Authorization = paste("OAuth2", private$token),
2454                                         "Content-Type" = "application/json")
2455                         queryArgs <- list(filters = filters, where = where,
2456                                                           order = order, select = select, distinct = distinct,
2457                                                           limit = limit, offset = offset, count = count)
2458
2459                         body <- NULL
2460
2461                         response <- private$REST$http$exec("GET", url, headers, body,
2462                                                            queryArgs, private$numRetries)
2463                         resource <- private$REST$httpParser$parseJSONResponse(response)
2464
2465                         if(!is.null(resource$errors))
2466                                 stop(resource$errors)
2467
2468                         resource
2469                 },
2470
2471                 api_client_authorizations.get = function(uuid)
2472                 {
2473                         endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
2474                         url <- paste0(private$host, endPoint)
2475                         headers <- list(Authorization = paste("OAuth2", private$token),
2476                                         "Content-Type" = "application/json")
2477                         queryArgs <- NULL
2478
2479                         body <- NULL
2480
2481                         response <- private$REST$http$exec("GET", url, headers, body,
2482                                                            queryArgs, private$numRetries)
2483                         resource <- private$REST$httpParser$parseJSONResponse(response)
2484
2485                         if(!is.null(resource$errors))
2486                                 stop(resource$errors)
2487
2488                         resource
2489                 },
2490
2491                 api_client_authorizations.create = function(apiclientauthorization,
2492                         ensure_unique_name = "false")
2493                 {
2494                         endPoint <- stringr::str_interp("api_client_authorizations")
2495                         url <- paste0(private$host, endPoint)
2496                         headers <- list(Authorization = paste("OAuth2", private$token),
2497                                         "Content-Type" = "application/json")
2498                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
2499
2500                         if(length(apiclientauthorization) > 0)
2501                                 body <- jsonlite::toJSON(list(apiclientauthorization = apiclientauthorization),
2502                                                          auto_unbox = TRUE)
2503                         else
2504                                 body <- NULL
2505
2506                         response <- private$REST$http$exec("POST", url, headers, body,
2507                                                            queryArgs, private$numRetries)
2508                         resource <- private$REST$httpParser$parseJSONResponse(response)
2509
2510                         if(!is.null(resource$errors))
2511                                 stop(resource$errors)
2512
2513                         resource
2514                 },
2515
2516                 api_client_authorizations.update = function(apiclientauthorization, uuid)
2517                 {
2518                         endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
2519                         url <- paste0(private$host, endPoint)
2520                         headers <- list(Authorization = paste("OAuth2", private$token),
2521                                         "Content-Type" = "application/json")
2522                         queryArgs <- NULL
2523
2524                         if(length(apiclientauthorization) > 0)
2525                                 body <- jsonlite::toJSON(list(apiclientauthorization = apiclientauthorization),
2526                                                          auto_unbox = TRUE)
2527                         else
2528                                 body <- NULL
2529
2530                         response <- private$REST$http$exec("PUT", url, headers, body,
2531                                                            queryArgs, private$numRetries)
2532                         resource <- private$REST$httpParser$parseJSONResponse(response)
2533
2534                         if(!is.null(resource$errors))
2535                                 stop(resource$errors)
2536
2537                         resource
2538                 },
2539
2540                 api_client_authorizations.delete = function(uuid)
2541                 {
2542                         endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
2543                         url <- paste0(private$host, endPoint)
2544                         headers <- list(Authorization = paste("OAuth2", private$token),
2545                                         "Content-Type" = "application/json")
2546                         queryArgs <- NULL
2547
2548                         body <- NULL
2549
2550                         response <- private$REST$http$exec("DELETE", 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                 api_client_authorizations.create_system_auth = function(api_client_id = NULL, scopes = NULL)
2561                 {
2562                         endPoint <- stringr::str_interp("api_client_authorizations/create_system_auth")
2563                         url <- paste0(private$host, endPoint)
2564                         headers <- list(Authorization = paste("OAuth2", private$token),
2565                                         "Content-Type" = "application/json")
2566                         queryArgs <- list(api_client_id = api_client_id,
2567                                                           scopes = scopes)
2568
2569                         body <- NULL
2570
2571                         response <- private$REST$http$exec("POST", url, headers, body,
2572                                                            queryArgs, private$numRetries)
2573                         resource <- private$REST$httpParser$parseJSONResponse(response)
2574
2575                         if(!is.null(resource$errors))
2576                                 stop(resource$errors)
2577
2578                         resource
2579                 },
2580
2581                 api_client_authorizations.current = function()
2582                 {
2583                         endPoint <- stringr::str_interp("api_client_authorizations/current")
2584                         url <- paste0(private$host, endPoint)
2585                         headers <- list(Authorization = paste("OAuth2", private$token),
2586                                         "Content-Type" = "application/json")
2587                         queryArgs <- NULL
2588
2589                         body <- NULL
2590
2591                         response <- private$REST$http$exec("GET", url, headers, body,
2592                                                            queryArgs, private$numRetries)
2593                         resource <- private$REST$httpParser$parseJSONResponse(response)
2594
2595                         if(!is.null(resource$errors))
2596                                 stop(resource$errors)
2597
2598                         resource
2599                 },
2600
2601                 api_client_authorizations.list = function(filters = NULL,
2602                         where = NULL, order = NULL, select = NULL,
2603                         distinct = NULL, limit = "100", offset = "0",
2604                         count = "exact")
2605                 {
2606                         endPoint <- stringr::str_interp("api_client_authorizations")
2607                         url <- paste0(private$host, endPoint)
2608                         headers <- list(Authorization = paste("OAuth2", private$token),
2609                                         "Content-Type" = "application/json")
2610                         queryArgs <- list(filters = filters, where = where,
2611                                                           order = order, select = select, distinct = distinct,
2612                                                           limit = limit, offset = offset, count = count)
2613
2614                         body <- NULL
2615
2616                         response <- private$REST$http$exec("GET", url, headers, body,
2617                                                            queryArgs, private$numRetries)
2618                         resource <- private$REST$httpParser$parseJSONResponse(response)
2619
2620                         if(!is.null(resource$errors))
2621                                 stop(resource$errors)
2622
2623                         resource
2624                 },
2625
2626                 containers.get = function(uuid)
2627                 {
2628                         endPoint <- stringr::str_interp("containers/${uuid}")
2629                         url <- paste0(private$host, endPoint)
2630                         headers <- list(Authorization = paste("OAuth2", private$token),
2631                                         "Content-Type" = "application/json")
2632                         queryArgs <- NULL
2633
2634                         body <- NULL
2635
2636                         response <- private$REST$http$exec("GET", url, headers, body,
2637                                                            queryArgs, private$numRetries)
2638                         resource <- private$REST$httpParser$parseJSONResponse(response)
2639
2640                         if(!is.null(resource$errors))
2641                                 stop(resource$errors)
2642
2643                         resource
2644                 },
2645
2646                 containers.create = function(container, ensure_unique_name = "false")
2647                 {
2648                         endPoint <- stringr::str_interp("containers")
2649                         url <- paste0(private$host, endPoint)
2650                         headers <- list(Authorization = paste("OAuth2", private$token),
2651                                         "Content-Type" = "application/json")
2652                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
2653
2654                         if(length(container) > 0)
2655                                 body <- jsonlite::toJSON(list(container = container),
2656                                                          auto_unbox = TRUE)
2657                         else
2658                                 body <- NULL
2659
2660                         response <- private$REST$http$exec("POST", url, headers, body,
2661                                                            queryArgs, private$numRetries)
2662                         resource <- private$REST$httpParser$parseJSONResponse(response)
2663
2664                         if(!is.null(resource$errors))
2665                                 stop(resource$errors)
2666
2667                         resource
2668                 },
2669
2670                 containers.update = function(container, uuid)
2671                 {
2672                         endPoint <- stringr::str_interp("containers/${uuid}")
2673                         url <- paste0(private$host, endPoint)
2674                         headers <- list(Authorization = paste("OAuth2", private$token),
2675                                         "Content-Type" = "application/json")
2676                         queryArgs <- NULL
2677
2678                         if(length(container) > 0)
2679                                 body <- jsonlite::toJSON(list(container = container),
2680                                                          auto_unbox = TRUE)
2681                         else
2682                                 body <- NULL
2683
2684                         response <- private$REST$http$exec("PUT", url, headers, body,
2685                                                            queryArgs, private$numRetries)
2686                         resource <- private$REST$httpParser$parseJSONResponse(response)
2687
2688                         if(!is.null(resource$errors))
2689                                 stop(resource$errors)
2690
2691                         resource
2692                 },
2693
2694                 containers.delete = function(uuid)
2695                 {
2696                         endPoint <- stringr::str_interp("containers/${uuid}")
2697                         url <- paste0(private$host, endPoint)
2698                         headers <- list(Authorization = paste("OAuth2", private$token),
2699                                         "Content-Type" = "application/json")
2700                         queryArgs <- NULL
2701
2702                         body <- NULL
2703
2704                         response <- private$REST$http$exec("DELETE", url, headers, body,
2705                                                            queryArgs, private$numRetries)
2706                         resource <- private$REST$httpParser$parseJSONResponse(response)
2707
2708                         if(!is.null(resource$errors))
2709                                 stop(resource$errors)
2710
2711                         resource
2712                 },
2713
2714                 containers.auth = function(uuid)
2715                 {
2716                         endPoint <- stringr::str_interp("containers/${uuid}/auth")
2717                         url <- paste0(private$host, endPoint)
2718                         headers <- list(Authorization = paste("OAuth2", private$token),
2719                                         "Content-Type" = "application/json")
2720                         queryArgs <- NULL
2721
2722                         body <- NULL
2723
2724                         response <- private$REST$http$exec("GET", url, headers, body,
2725                                                            queryArgs, private$numRetries)
2726                         resource <- private$REST$httpParser$parseJSONResponse(response)
2727
2728                         if(!is.null(resource$errors))
2729                                 stop(resource$errors)
2730
2731                         resource
2732                 },
2733
2734                 containers.lock = function(uuid)
2735                 {
2736                         endPoint <- stringr::str_interp("containers/${uuid}/lock")
2737                         url <- paste0(private$host, endPoint)
2738                         headers <- list(Authorization = paste("OAuth2", private$token),
2739                                         "Content-Type" = "application/json")
2740                         queryArgs <- NULL
2741
2742                         body <- NULL
2743
2744                         response <- private$REST$http$exec("POST", url, headers, body,
2745                                                            queryArgs, private$numRetries)
2746                         resource <- private$REST$httpParser$parseJSONResponse(response)
2747
2748                         if(!is.null(resource$errors))
2749                                 stop(resource$errors)
2750
2751                         resource
2752                 },
2753
2754                 containers.unlock = function(uuid)
2755                 {
2756                         endPoint <- stringr::str_interp("containers/${uuid}/unlock")
2757                         url <- paste0(private$host, endPoint)
2758                         headers <- list(Authorization = paste("OAuth2", private$token),
2759                                         "Content-Type" = "application/json")
2760                         queryArgs <- NULL
2761
2762                         body <- NULL
2763
2764                         response <- private$REST$http$exec("POST", url, headers, body,
2765                                                            queryArgs, private$numRetries)
2766                         resource <- private$REST$httpParser$parseJSONResponse(response)
2767
2768                         if(!is.null(resource$errors))
2769                                 stop(resource$errors)
2770
2771                         resource
2772                 },
2773
2774                 containers.secret_mounts = function(uuid)
2775                 {
2776                         endPoint <- stringr::str_interp("containers/${uuid}/secret_mounts")
2777                         url <- paste0(private$host, endPoint)
2778                         headers <- list(Authorization = paste("OAuth2", private$token),
2779                                         "Content-Type" = "application/json")
2780                         queryArgs <- NULL
2781
2782                         body <- NULL
2783
2784                         response <- private$REST$http$exec("GET", url, headers, body,
2785                                                            queryArgs, private$numRetries)
2786                         resource <- private$REST$httpParser$parseJSONResponse(response)
2787
2788                         if(!is.null(resource$errors))
2789                                 stop(resource$errors)
2790
2791                         resource
2792                 },
2793
2794                 containers.current = function()
2795                 {
2796                         endPoint <- stringr::str_interp("containers/current")
2797                         url <- paste0(private$host, endPoint)
2798                         headers <- list(Authorization = paste("OAuth2", private$token),
2799                                         "Content-Type" = "application/json")
2800                         queryArgs <- NULL
2801
2802                         body <- NULL
2803
2804                         response <- private$REST$http$exec("GET", url, headers, body,
2805                                                            queryArgs, private$numRetries)
2806                         resource <- private$REST$httpParser$parseJSONResponse(response)
2807
2808                         if(!is.null(resource$errors))
2809                                 stop(resource$errors)
2810
2811                         resource
2812                 },
2813
2814                 containers.list = function(filters = NULL,
2815                         where = NULL, order = NULL, select = NULL,
2816                         distinct = NULL, limit = "100", offset = "0",
2817                         count = "exact")
2818                 {
2819                         endPoint <- stringr::str_interp("containers")
2820                         url <- paste0(private$host, endPoint)
2821                         headers <- list(Authorization = paste("OAuth2", private$token),
2822                                         "Content-Type" = "application/json")
2823                         queryArgs <- list(filters = filters, where = where,
2824                                                           order = order, select = select, distinct = distinct,
2825                                                           limit = limit, offset = offset, count = count)
2826
2827                         body <- NULL
2828
2829                         response <- private$REST$http$exec("GET", url, headers, body,
2830                                                            queryArgs, private$numRetries)
2831                         resource <- private$REST$httpParser$parseJSONResponse(response)
2832
2833                         if(!is.null(resource$errors))
2834                                 stop(resource$errors)
2835
2836                         resource
2837                 },
2838
2839                 api_clients.get = function(uuid)
2840                 {
2841                         endPoint <- stringr::str_interp("api_clients/${uuid}")
2842                         url <- paste0(private$host, endPoint)
2843                         headers <- list(Authorization = paste("OAuth2", private$token),
2844                                         "Content-Type" = "application/json")
2845                         queryArgs <- NULL
2846
2847                         body <- NULL
2848
2849                         response <- private$REST$http$exec("GET", url, headers, body,
2850                                                            queryArgs, private$numRetries)
2851                         resource <- private$REST$httpParser$parseJSONResponse(response)
2852
2853                         if(!is.null(resource$errors))
2854                                 stop(resource$errors)
2855
2856                         resource
2857                 },
2858
2859                 api_clients.create = function(apiclient, ensure_unique_name = "false")
2860                 {
2861                         endPoint <- stringr::str_interp("api_clients")
2862                         url <- paste0(private$host, endPoint)
2863                         headers <- list(Authorization = paste("OAuth2", private$token),
2864                                         "Content-Type" = "application/json")
2865                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
2866
2867                         if(length(apiclient) > 0)
2868                                 body <- jsonlite::toJSON(list(apiclient = apiclient),
2869                                                          auto_unbox = TRUE)
2870                         else
2871                                 body <- NULL
2872
2873                         response <- private$REST$http$exec("POST", url, headers, body,
2874                                                            queryArgs, private$numRetries)
2875                         resource <- private$REST$httpParser$parseJSONResponse(response)
2876
2877                         if(!is.null(resource$errors))
2878                                 stop(resource$errors)
2879
2880                         resource
2881                 },
2882
2883                 api_clients.update = function(apiclient, uuid)
2884                 {
2885                         endPoint <- stringr::str_interp("api_clients/${uuid}")
2886                         url <- paste0(private$host, endPoint)
2887                         headers <- list(Authorization = paste("OAuth2", private$token),
2888                                         "Content-Type" = "application/json")
2889                         queryArgs <- NULL
2890
2891                         if(length(apiclient) > 0)
2892                                 body <- jsonlite::toJSON(list(apiclient = apiclient),
2893                                                          auto_unbox = TRUE)
2894                         else
2895                                 body <- NULL
2896
2897                         response <- private$REST$http$exec("PUT", url, headers, body,
2898                                                            queryArgs, private$numRetries)
2899                         resource <- private$REST$httpParser$parseJSONResponse(response)
2900
2901                         if(!is.null(resource$errors))
2902                                 stop(resource$errors)
2903
2904                         resource
2905                 },
2906
2907                 api_clients.delete = function(uuid)
2908                 {
2909                         endPoint <- stringr::str_interp("api_clients/${uuid}")
2910                         url <- paste0(private$host, endPoint)
2911                         headers <- list(Authorization = paste("OAuth2", private$token),
2912                                         "Content-Type" = "application/json")
2913                         queryArgs <- NULL
2914
2915                         body <- NULL
2916
2917                         response <- private$REST$http$exec("DELETE", url, headers, body,
2918                                                            queryArgs, private$numRetries)
2919                         resource <- private$REST$httpParser$parseJSONResponse(response)
2920
2921                         if(!is.null(resource$errors))
2922                                 stop(resource$errors)
2923
2924                         resource
2925                 },
2926
2927                 api_clients.list = function(filters = NULL,
2928                         where = NULL, order = NULL, select = NULL,
2929                         distinct = NULL, limit = "100", offset = "0",
2930                         count = "exact")
2931                 {
2932                         endPoint <- stringr::str_interp("api_clients")
2933                         url <- paste0(private$host, endPoint)
2934                         headers <- list(Authorization = paste("OAuth2", private$token),
2935                                         "Content-Type" = "application/json")
2936                         queryArgs <- list(filters = filters, where = where,
2937                                                           order = order, select = select, distinct = distinct,
2938                                                           limit = limit, offset = offset, count = count)
2939
2940                         body <- NULL
2941
2942                         response <- private$REST$http$exec("GET", url, headers, body,
2943                                                            queryArgs, private$numRetries)
2944                         resource <- private$REST$httpParser$parseJSONResponse(response)
2945
2946                         if(!is.null(resource$errors))
2947                                 stop(resource$errors)
2948
2949                         resource
2950                 },
2951
2952                 authorized_keys.get = function(uuid)
2953                 {
2954                         endPoint <- stringr::str_interp("authorized_keys/${uuid}")
2955                         url <- paste0(private$host, endPoint)
2956                         headers <- list(Authorization = paste("OAuth2", private$token),
2957                                         "Content-Type" = "application/json")
2958                         queryArgs <- NULL
2959
2960                         body <- NULL
2961
2962                         response <- private$REST$http$exec("GET", url, headers, body,
2963                                                            queryArgs, private$numRetries)
2964                         resource <- private$REST$httpParser$parseJSONResponse(response)
2965
2966                         if(!is.null(resource$errors))
2967                                 stop(resource$errors)
2968
2969                         resource
2970                 },
2971
2972                 authorized_keys.create = function(authorizedkey,
2973                         ensure_unique_name = "false")
2974                 {
2975                         endPoint <- stringr::str_interp("authorized_keys")
2976                         url <- paste0(private$host, endPoint)
2977                         headers <- list(Authorization = paste("OAuth2", private$token),
2978                                         "Content-Type" = "application/json")
2979                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
2980
2981                         if(length(authorizedkey) > 0)
2982                                 body <- jsonlite::toJSON(list(authorizedkey = authorizedkey),
2983                                                          auto_unbox = TRUE)
2984                         else
2985                                 body <- NULL
2986
2987                         response <- private$REST$http$exec("POST", url, headers, body,
2988                                                            queryArgs, private$numRetries)
2989                         resource <- private$REST$httpParser$parseJSONResponse(response)
2990
2991                         if(!is.null(resource$errors))
2992                                 stop(resource$errors)
2993
2994                         resource
2995                 },
2996
2997                 authorized_keys.update = function(authorizedkey, uuid)
2998                 {
2999                         endPoint <- stringr::str_interp("authorized_keys/${uuid}")
3000                         url <- paste0(private$host, endPoint)
3001                         headers <- list(Authorization = paste("OAuth2", private$token),
3002                                         "Content-Type" = "application/json")
3003                         queryArgs <- NULL
3004
3005                         if(length(authorizedkey) > 0)
3006                                 body <- jsonlite::toJSON(list(authorizedkey = authorizedkey),
3007                                                          auto_unbox = TRUE)
3008                         else
3009                                 body <- NULL
3010
3011                         response <- private$REST$http$exec("PUT", url, headers, body,
3012                                                            queryArgs, private$numRetries)
3013                         resource <- private$REST$httpParser$parseJSONResponse(response)
3014
3015                         if(!is.null(resource$errors))
3016                                 stop(resource$errors)
3017
3018                         resource
3019                 },
3020
3021                 authorized_keys.delete = function(uuid)
3022                 {
3023                         endPoint <- stringr::str_interp("authorized_keys/${uuid}")
3024                         url <- paste0(private$host, endPoint)
3025                         headers <- list(Authorization = paste("OAuth2", private$token),
3026                                         "Content-Type" = "application/json")
3027                         queryArgs <- NULL
3028
3029                         body <- NULL
3030
3031                         response <- private$REST$http$exec("DELETE", url, headers, body,
3032                                                            queryArgs, private$numRetries)
3033                         resource <- private$REST$httpParser$parseJSONResponse(response)
3034
3035                         if(!is.null(resource$errors))
3036                                 stop(resource$errors)
3037
3038                         resource
3039                 },
3040
3041                 authorized_keys.list = function(filters = NULL,
3042                         where = NULL, order = NULL, select = NULL,
3043                         distinct = NULL, limit = "100", offset = "0",
3044                         count = "exact")
3045                 {
3046                         endPoint <- stringr::str_interp("authorized_keys")
3047                         url <- paste0(private$host, endPoint)
3048                         headers <- list(Authorization = paste("OAuth2", private$token),
3049                                         "Content-Type" = "application/json")
3050                         queryArgs <- list(filters = filters, where = where,
3051                                                           order = order, select = select, distinct = distinct,
3052                                                           limit = limit, offset = offset, count = count)
3053
3054                         body <- NULL
3055
3056                         response <- private$REST$http$exec("GET", url, headers, body,
3057                                                            queryArgs, private$numRetries)
3058                         resource <- private$REST$httpParser$parseJSONResponse(response)
3059
3060                         if(!is.null(resource$errors))
3061                                 stop(resource$errors)
3062
3063                         resource
3064                 },
3065
3066                 container_requests.get = function(uuid)
3067                 {
3068                         endPoint <- stringr::str_interp("container_requests/${uuid}")
3069                         url <- paste0(private$host, endPoint)
3070                         headers <- list(Authorization = paste("OAuth2", private$token),
3071                                         "Content-Type" = "application/json")
3072                         queryArgs <- NULL
3073
3074                         body <- NULL
3075
3076                         response <- private$REST$http$exec("GET", url, headers, body,
3077                                                            queryArgs, private$numRetries)
3078                         resource <- private$REST$httpParser$parseJSONResponse(response)
3079
3080                         if(!is.null(resource$errors))
3081                                 stop(resource$errors)
3082
3083                         resource
3084                 },
3085
3086                 container_requests.create = function(containerrequest,
3087                         ensure_unique_name = "false")
3088                 {
3089                         endPoint <- stringr::str_interp("container_requests")
3090                         url <- paste0(private$host, endPoint)
3091                         headers <- list(Authorization = paste("OAuth2", private$token),
3092                                         "Content-Type" = "application/json")
3093                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
3094
3095                         if(length(containerrequest) > 0)
3096                                 body <- jsonlite::toJSON(list(containerrequest = containerrequest),
3097                                                          auto_unbox = TRUE)
3098                         else
3099                                 body <- NULL
3100
3101                         response <- private$REST$http$exec("POST", url, headers, body,
3102                                                            queryArgs, private$numRetries)
3103                         resource <- private$REST$httpParser$parseJSONResponse(response)
3104
3105                         if(!is.null(resource$errors))
3106                                 stop(resource$errors)
3107
3108                         resource
3109                 },
3110
3111                 container_requests.update = function(containerrequest, uuid)
3112                 {
3113                         endPoint <- stringr::str_interp("container_requests/${uuid}")
3114                         url <- paste0(private$host, endPoint)
3115                         headers <- list(Authorization = paste("OAuth2", private$token),
3116                                         "Content-Type" = "application/json")
3117                         queryArgs <- NULL
3118
3119                         if(length(containerrequest) > 0)
3120                                 body <- jsonlite::toJSON(list(containerrequest = containerrequest),
3121                                                          auto_unbox = TRUE)
3122                         else
3123                                 body <- NULL
3124
3125                         response <- private$REST$http$exec("PUT", url, headers, body,
3126                                                            queryArgs, private$numRetries)
3127                         resource <- private$REST$httpParser$parseJSONResponse(response)
3128
3129                         if(!is.null(resource$errors))
3130                                 stop(resource$errors)
3131
3132                         resource
3133                 },
3134
3135                 container_requests.delete = function(uuid)
3136                 {
3137                         endPoint <- stringr::str_interp("container_requests/${uuid}")
3138                         url <- paste0(private$host, endPoint)
3139                         headers <- list(Authorization = paste("OAuth2", private$token),
3140                                         "Content-Type" = "application/json")
3141                         queryArgs <- NULL
3142
3143                         body <- NULL
3144
3145                         response <- private$REST$http$exec("DELETE", url, headers, body,
3146                                                            queryArgs, private$numRetries)
3147                         resource <- private$REST$httpParser$parseJSONResponse(response)
3148
3149                         if(!is.null(resource$errors))
3150                                 stop(resource$errors)
3151
3152                         resource
3153                 },
3154
3155                 container_requests.list = function(filters = NULL,
3156                         where = NULL, order = NULL, select = NULL,
3157                         distinct = NULL, limit = "100", offset = "0",
3158                         count = "exact")
3159                 {
3160                         endPoint <- stringr::str_interp("container_requests")
3161                         url <- paste0(private$host, endPoint)
3162                         headers <- list(Authorization = paste("OAuth2", private$token),
3163                                         "Content-Type" = "application/json")
3164                         queryArgs <- list(filters = filters, where = where,
3165                                                           order = order, select = select, distinct = distinct,
3166                                                           limit = limit, offset = offset, count = count)
3167
3168                         body <- NULL
3169
3170                         response <- private$REST$http$exec("GET", url, headers, body,
3171                                                            queryArgs, private$numRetries)
3172                         resource <- private$REST$httpParser$parseJSONResponse(response)
3173
3174                         if(!is.null(resource$errors))
3175                                 stop(resource$errors)
3176
3177                         resource
3178                 },
3179
3180                 collections.get = function(uuid)
3181                 {
3182                         endPoint <- stringr::str_interp("collections/${uuid}")
3183                         url <- paste0(private$host, endPoint)
3184                         headers <- list(Authorization = paste("OAuth2", private$token),
3185                                         "Content-Type" = "application/json")
3186                         queryArgs <- NULL
3187
3188                         body <- NULL
3189
3190                         response <- private$REST$http$exec("GET", url, headers, body,
3191                                                            queryArgs, private$numRetries)
3192                         resource <- private$REST$httpParser$parseJSONResponse(response)
3193
3194                         if(!is.null(resource$errors))
3195                                 stop(resource$errors)
3196
3197                         resource
3198                 },
3199
3200                 collections.create = function(collection, ensure_unique_name = "false")
3201                 {
3202                         endPoint <- stringr::str_interp("collections")
3203                         url <- paste0(private$host, endPoint)
3204                         headers <- list(Authorization = paste("OAuth2", private$token),
3205                                         "Content-Type" = "application/json")
3206                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
3207
3208                         if(length(collection) > 0)
3209                                 body <- jsonlite::toJSON(list(collection = collection),
3210                                                          auto_unbox = TRUE)
3211                         else
3212                                 body <- NULL
3213
3214                         response <- private$REST$http$exec("POST", url, headers, body,
3215                                                            queryArgs, private$numRetries)
3216                         resource <- private$REST$httpParser$parseJSONResponse(response)
3217
3218                         if(!is.null(resource$errors))
3219                                 stop(resource$errors)
3220
3221                         resource
3222                 },
3223
3224                 collections.update = function(collection, uuid)
3225                 {
3226                         endPoint <- stringr::str_interp("collections/${uuid}")
3227                         url <- paste0(private$host, endPoint)
3228                         headers <- list(Authorization = paste("OAuth2", private$token),
3229                                         "Content-Type" = "application/json")
3230                         queryArgs <- NULL
3231
3232                         if(length(collection) > 0)
3233                                 body <- jsonlite::toJSON(list(collection = collection),
3234                                                          auto_unbox = TRUE)
3235                         else
3236                                 body <- NULL
3237
3238                         response <- private$REST$http$exec("PUT", url, headers, body,
3239                                                            queryArgs, private$numRetries)
3240                         resource <- private$REST$httpParser$parseJSONResponse(response)
3241
3242                         if(!is.null(resource$errors))
3243                                 stop(resource$errors)
3244
3245                         resource
3246                 },
3247
3248                 collections.delete = function(uuid)
3249                 {
3250                         endPoint <- stringr::str_interp("collections/${uuid}")
3251                         url <- paste0(private$host, endPoint)
3252                         headers <- list(Authorization = paste("OAuth2", private$token),
3253                                         "Content-Type" = "application/json")
3254                         queryArgs <- NULL
3255
3256                         body <- NULL
3257
3258                         response <- private$REST$http$exec("DELETE", url, headers, body,
3259                                                            queryArgs, private$numRetries)
3260                         resource <- private$REST$httpParser$parseJSONResponse(response)
3261
3262                         if(!is.null(resource$errors))
3263                                 stop(resource$errors)
3264
3265                         resource
3266                 },
3267
3268                 collections.provenance = function(uuid)
3269                 {
3270                         endPoint <- stringr::str_interp("collections/${uuid}/provenance")
3271                         url <- paste0(private$host, endPoint)
3272                         headers <- list(Authorization = paste("OAuth2", private$token),
3273                                         "Content-Type" = "application/json")
3274                         queryArgs <- NULL
3275
3276                         body <- NULL
3277
3278                         response <- private$REST$http$exec("GET", url, headers, body,
3279                                                            queryArgs, private$numRetries)
3280                         resource <- private$REST$httpParser$parseJSONResponse(response)
3281
3282                         if(!is.null(resource$errors))
3283                                 stop(resource$errors)
3284
3285                         resource
3286                 },
3287
3288                 collections.used_by = function(uuid)
3289                 {
3290                         endPoint <- stringr::str_interp("collections/${uuid}/used_by")
3291                         url <- paste0(private$host, endPoint)
3292                         headers <- list(Authorization = paste("OAuth2", private$token),
3293                                         "Content-Type" = "application/json")
3294                         queryArgs <- NULL
3295
3296                         body <- NULL
3297
3298                         response <- private$REST$http$exec("GET", url, headers, body,
3299                                                            queryArgs, private$numRetries)
3300                         resource <- private$REST$httpParser$parseJSONResponse(response)
3301
3302                         if(!is.null(resource$errors))
3303                                 stop(resource$errors)
3304
3305                         resource
3306                 },
3307
3308                 collections.trash = function(uuid)
3309                 {
3310                         endPoint <- stringr::str_interp("collections/${uuid}/trash")
3311                         url <- paste0(private$host, endPoint)
3312                         headers <- list(Authorization = paste("OAuth2", private$token),
3313                                         "Content-Type" = "application/json")
3314                         queryArgs <- NULL
3315
3316                         body <- NULL
3317
3318                         response <- private$REST$http$exec("POST", url, headers, body,
3319                                                            queryArgs, private$numRetries)
3320                         resource <- private$REST$httpParser$parseJSONResponse(response)
3321
3322                         if(!is.null(resource$errors))
3323                                 stop(resource$errors)
3324
3325                         resource
3326                 },
3327
3328                 collections.untrash = function(uuid)
3329                 {
3330                         endPoint <- stringr::str_interp("collections/${uuid}/untrash")
3331                         url <- paste0(private$host, endPoint)
3332                         headers <- list(Authorization = paste("OAuth2", private$token),
3333                                         "Content-Type" = "application/json")
3334                         queryArgs <- NULL
3335
3336                         body <- NULL
3337
3338                         response <- private$REST$http$exec("POST", url, headers, body,
3339                                                            queryArgs, private$numRetries)
3340                         resource <- private$REST$httpParser$parseJSONResponse(response)
3341
3342                         if(!is.null(resource$errors))
3343                                 stop(resource$errors)
3344
3345                         resource
3346                 },
3347
3348                 collections.list = function(filters = NULL,
3349                         where = NULL, order = NULL, select = NULL,
3350                         distinct = NULL, limit = "100", offset = "0",
3351                         count = "exact", include_trash = NULL)
3352                 {
3353                         endPoint <- stringr::str_interp("collections")
3354                         url <- paste0(private$host, endPoint)
3355                         headers <- list(Authorization = paste("OAuth2", private$token),
3356                                         "Content-Type" = "application/json")
3357                         queryArgs <- list(filters = filters, where = where,
3358                                                           order = order, select = select, distinct = distinct,
3359                                                           limit = limit, offset = offset, count = count,
3360                                                           include_trash = include_trash)
3361
3362                         body <- NULL
3363
3364                         response <- private$REST$http$exec("GET", url, headers, body,
3365                                                            queryArgs, private$numRetries)
3366                         resource <- private$REST$httpParser$parseJSONResponse(response)
3367
3368                         if(!is.null(resource$errors))
3369                                 stop(resource$errors)
3370
3371                         resource
3372                 },
3373
3374                 humans.get = function(uuid)
3375                 {
3376                         endPoint <- stringr::str_interp("humans/${uuid}")
3377                         url <- paste0(private$host, endPoint)
3378                         headers <- list(Authorization = paste("OAuth2", private$token),
3379                                         "Content-Type" = "application/json")
3380                         queryArgs <- NULL
3381
3382                         body <- NULL
3383
3384                         response <- private$REST$http$exec("GET", url, headers, body,
3385                                                            queryArgs, private$numRetries)
3386                         resource <- private$REST$httpParser$parseJSONResponse(response)
3387
3388                         if(!is.null(resource$errors))
3389                                 stop(resource$errors)
3390
3391                         resource
3392                 },
3393
3394                 humans.create = function(human, ensure_unique_name = "false")
3395                 {
3396                         endPoint <- stringr::str_interp("humans")
3397                         url <- paste0(private$host, endPoint)
3398                         headers <- list(Authorization = paste("OAuth2", private$token),
3399                                         "Content-Type" = "application/json")
3400                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
3401
3402                         if(length(human) > 0)
3403                                 body <- jsonlite::toJSON(list(human = human),
3404                                                          auto_unbox = TRUE)
3405                         else
3406                                 body <- NULL
3407
3408                         response <- private$REST$http$exec("POST", url, headers, body,
3409                                                            queryArgs, private$numRetries)
3410                         resource <- private$REST$httpParser$parseJSONResponse(response)
3411
3412                         if(!is.null(resource$errors))
3413                                 stop(resource$errors)
3414
3415                         resource
3416                 },
3417
3418                 humans.update = function(human, uuid)
3419                 {
3420                         endPoint <- stringr::str_interp("humans/${uuid}")
3421                         url <- paste0(private$host, endPoint)
3422                         headers <- list(Authorization = paste("OAuth2", private$token),
3423                                         "Content-Type" = "application/json")
3424                         queryArgs <- NULL
3425
3426                         if(length(human) > 0)
3427                                 body <- jsonlite::toJSON(list(human = human),
3428                                                          auto_unbox = TRUE)
3429                         else
3430                                 body <- NULL
3431
3432                         response <- private$REST$http$exec("PUT", url, headers, body,
3433                                                            queryArgs, private$numRetries)
3434                         resource <- private$REST$httpParser$parseJSONResponse(response)
3435
3436                         if(!is.null(resource$errors))
3437                                 stop(resource$errors)
3438
3439                         resource
3440                 },
3441
3442                 humans.delete = function(uuid)
3443                 {
3444                         endPoint <- stringr::str_interp("humans/${uuid}")
3445                         url <- paste0(private$host, endPoint)
3446                         headers <- list(Authorization = paste("OAuth2", private$token),
3447                                         "Content-Type" = "application/json")
3448                         queryArgs <- NULL
3449
3450                         body <- NULL
3451
3452                         response <- private$REST$http$exec("DELETE", url, headers, body,
3453                                                            queryArgs, private$numRetries)
3454                         resource <- private$REST$httpParser$parseJSONResponse(response)
3455
3456                         if(!is.null(resource$errors))
3457                                 stop(resource$errors)
3458
3459                         resource
3460                 },
3461
3462                 humans.list = function(filters = NULL, where = NULL,
3463                         order = NULL, select = NULL, distinct = NULL,
3464                         limit = "100", offset = "0", count = "exact")
3465                 {
3466                         endPoint <- stringr::str_interp("humans")
3467                         url <- paste0(private$host, endPoint)
3468                         headers <- list(Authorization = paste("OAuth2", private$token),
3469                                         "Content-Type" = "application/json")
3470                         queryArgs <- list(filters = filters, where = where,
3471                                                           order = order, select = select, distinct = distinct,
3472                                                           limit = limit, offset = offset, count = count)
3473
3474                         body <- NULL
3475
3476                         response <- private$REST$http$exec("GET", url, headers, body,
3477                                                            queryArgs, private$numRetries)
3478                         resource <- private$REST$httpParser$parseJSONResponse(response)
3479
3480                         if(!is.null(resource$errors))
3481                                 stop(resource$errors)
3482
3483                         resource
3484                 },
3485
3486                 job_tasks.get = function(uuid)
3487                 {
3488                         endPoint <- stringr::str_interp("job_tasks/${uuid}")
3489                         url <- paste0(private$host, endPoint)
3490                         headers <- list(Authorization = paste("OAuth2", private$token),
3491                                         "Content-Type" = "application/json")
3492                         queryArgs <- NULL
3493
3494                         body <- NULL
3495
3496                         response <- private$REST$http$exec("GET", url, headers, body,
3497                                                            queryArgs, private$numRetries)
3498                         resource <- private$REST$httpParser$parseJSONResponse(response)
3499
3500                         if(!is.null(resource$errors))
3501                                 stop(resource$errors)
3502
3503                         resource
3504                 },
3505
3506                 job_tasks.create = function(jobtask, ensure_unique_name = "false")
3507                 {
3508                         endPoint <- stringr::str_interp("job_tasks")
3509                         url <- paste0(private$host, endPoint)
3510                         headers <- list(Authorization = paste("OAuth2", private$token),
3511                                         "Content-Type" = "application/json")
3512                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
3513
3514                         if(length(jobtask) > 0)
3515                                 body <- jsonlite::toJSON(list(jobtask = jobtask),
3516                                                          auto_unbox = TRUE)
3517                         else
3518                                 body <- NULL
3519
3520                         response <- private$REST$http$exec("POST", url, headers, body,
3521                                                            queryArgs, private$numRetries)
3522                         resource <- private$REST$httpParser$parseJSONResponse(response)
3523
3524                         if(!is.null(resource$errors))
3525                                 stop(resource$errors)
3526
3527                         resource
3528                 },
3529
3530                 job_tasks.update = function(jobtask, uuid)
3531                 {
3532                         endPoint <- stringr::str_interp("job_tasks/${uuid}")
3533                         url <- paste0(private$host, endPoint)
3534                         headers <- list(Authorization = paste("OAuth2", private$token),
3535                                         "Content-Type" = "application/json")
3536                         queryArgs <- NULL
3537
3538                         if(length(jobtask) > 0)
3539                                 body <- jsonlite::toJSON(list(jobtask = jobtask),
3540                                                          auto_unbox = TRUE)
3541                         else
3542                                 body <- NULL
3543
3544                         response <- private$REST$http$exec("PUT", url, headers, body,
3545                                                            queryArgs, private$numRetries)
3546                         resource <- private$REST$httpParser$parseJSONResponse(response)
3547
3548                         if(!is.null(resource$errors))
3549                                 stop(resource$errors)
3550
3551                         resource
3552                 },
3553
3554                 job_tasks.delete = function(uuid)
3555                 {
3556                         endPoint <- stringr::str_interp("job_tasks/${uuid}")
3557                         url <- paste0(private$host, endPoint)
3558                         headers <- list(Authorization = paste("OAuth2", private$token),
3559                                         "Content-Type" = "application/json")
3560                         queryArgs <- NULL
3561
3562                         body <- NULL
3563
3564                         response <- private$REST$http$exec("DELETE", url, headers, body,
3565                                                            queryArgs, private$numRetries)
3566                         resource <- private$REST$httpParser$parseJSONResponse(response)
3567
3568                         if(!is.null(resource$errors))
3569                                 stop(resource$errors)
3570
3571                         resource
3572                 },
3573
3574                 job_tasks.list = function(filters = NULL,
3575                         where = NULL, order = NULL, select = NULL,
3576                         distinct = NULL, limit = "100", offset = "0",
3577                         count = "exact")
3578                 {
3579                         endPoint <- stringr::str_interp("job_tasks")
3580                         url <- paste0(private$host, endPoint)
3581                         headers <- list(Authorization = paste("OAuth2", private$token),
3582                                         "Content-Type" = "application/json")
3583                         queryArgs <- list(filters = filters, where = where,
3584                                                           order = order, select = select, distinct = distinct,
3585                                                           limit = limit, offset = offset, count = count)
3586
3587                         body <- NULL
3588
3589                         response <- private$REST$http$exec("GET", url, headers, body,
3590                                                            queryArgs, private$numRetries)
3591                         resource <- private$REST$httpParser$parseJSONResponse(response)
3592
3593                         if(!is.null(resource$errors))
3594                                 stop(resource$errors)
3595
3596                         resource
3597                 },
3598
3599                 links.get = function(uuid)
3600                 {
3601                         endPoint <- stringr::str_interp("links/${uuid}")
3602                         url <- paste0(private$host, endPoint)
3603                         headers <- list(Authorization = paste("OAuth2", private$token),
3604                                         "Content-Type" = "application/json")
3605                         queryArgs <- NULL
3606
3607                         body <- NULL
3608
3609                         response <- private$REST$http$exec("GET", url, headers, body,
3610                                                            queryArgs, private$numRetries)
3611                         resource <- private$REST$httpParser$parseJSONResponse(response)
3612
3613                         if(!is.null(resource$errors))
3614                                 stop(resource$errors)
3615
3616                         resource
3617                 },
3618
3619                 links.create = function(link, ensure_unique_name = "false")
3620                 {
3621                         endPoint <- stringr::str_interp("links")
3622                         url <- paste0(private$host, endPoint)
3623                         headers <- list(Authorization = paste("OAuth2", private$token),
3624                                         "Content-Type" = "application/json")
3625                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
3626
3627                         if(length(link) > 0)
3628                                 body <- jsonlite::toJSON(list(link = link),
3629                                                          auto_unbox = TRUE)
3630                         else
3631                                 body <- NULL
3632
3633                         response <- private$REST$http$exec("POST", url, headers, body,
3634                                                            queryArgs, private$numRetries)
3635                         resource <- private$REST$httpParser$parseJSONResponse(response)
3636
3637                         if(!is.null(resource$errors))
3638                                 stop(resource$errors)
3639
3640                         resource
3641                 },
3642
3643                 links.update = function(link, uuid)
3644                 {
3645                         endPoint <- stringr::str_interp("links/${uuid}")
3646                         url <- paste0(private$host, endPoint)
3647                         headers <- list(Authorization = paste("OAuth2", private$token),
3648                                         "Content-Type" = "application/json")
3649                         queryArgs <- NULL
3650
3651                         if(length(link) > 0)
3652                                 body <- jsonlite::toJSON(list(link = link),
3653                                                          auto_unbox = TRUE)
3654                         else
3655                                 body <- NULL
3656
3657                         response <- private$REST$http$exec("PUT", url, headers, body,
3658                                                            queryArgs, private$numRetries)
3659                         resource <- private$REST$httpParser$parseJSONResponse(response)
3660
3661                         if(!is.null(resource$errors))
3662                                 stop(resource$errors)
3663
3664                         resource
3665                 },
3666
3667                 links.delete = function(uuid)
3668                 {
3669                         endPoint <- stringr::str_interp("links/${uuid}")
3670                         url <- paste0(private$host, endPoint)
3671                         headers <- list(Authorization = paste("OAuth2", private$token),
3672                                         "Content-Type" = "application/json")
3673                         queryArgs <- NULL
3674
3675                         body <- NULL
3676
3677                         response <- private$REST$http$exec("DELETE", url, headers, body,
3678                                                            queryArgs, private$numRetries)
3679                         resource <- private$REST$httpParser$parseJSONResponse(response)
3680
3681                         if(!is.null(resource$errors))
3682                                 stop(resource$errors)
3683
3684                         resource
3685                 },
3686
3687                 links.list = function(filters = NULL, where = NULL,
3688                         order = NULL, select = NULL, distinct = NULL,
3689                         limit = "100", offset = "0", count = "exact")
3690                 {
3691                         endPoint <- stringr::str_interp("links")
3692                         url <- paste0(private$host, endPoint)
3693                         headers <- list(Authorization = paste("OAuth2", private$token),
3694                                         "Content-Type" = "application/json")
3695                         queryArgs <- list(filters = filters, where = where,
3696                                                           order = order, select = select, distinct = distinct,
3697                                                           limit = limit, offset = offset, count = count)
3698
3699                         body <- NULL
3700
3701                         response <- private$REST$http$exec("GET", url, headers, body,
3702                                                            queryArgs, private$numRetries)
3703                         resource <- private$REST$httpParser$parseJSONResponse(response)
3704
3705                         if(!is.null(resource$errors))
3706                                 stop(resource$errors)
3707
3708                         resource
3709                 },
3710
3711                 links.get_permissions = function(uuid)
3712                 {
3713                         endPoint <- stringr::str_interp("permissions/${uuid}")
3714                         url <- paste0(private$host, endPoint)
3715                         headers <- list(Authorization = paste("OAuth2", private$token),
3716                                         "Content-Type" = "application/json")
3717                         queryArgs <- NULL
3718
3719                         body <- NULL
3720
3721                         response <- private$REST$http$exec("GET", url, headers, body,
3722                                                            queryArgs, private$numRetries)
3723                         resource <- private$REST$httpParser$parseJSONResponse(response)
3724
3725                         if(!is.null(resource$errors))
3726                                 stop(resource$errors)
3727
3728                         resource
3729                 },
3730
3731                 jobs.get = function(uuid)
3732                 {
3733                         endPoint <- stringr::str_interp("jobs/${uuid}")
3734                         url <- paste0(private$host, endPoint)
3735                         headers <- list(Authorization = paste("OAuth2", private$token),
3736                                         "Content-Type" = "application/json")
3737                         queryArgs <- NULL
3738
3739                         body <- NULL
3740
3741                         response <- private$REST$http$exec("GET", url, headers, body,
3742                                                            queryArgs, private$numRetries)
3743                         resource <- private$REST$httpParser$parseJSONResponse(response)
3744
3745                         if(!is.null(resource$errors))
3746                                 stop(resource$errors)
3747
3748                         resource
3749                 },
3750
3751                 jobs.create = function(job, ensure_unique_name = "false",
3752                         find_or_create = "false", filters = NULL,
3753                         minimum_script_version = NULL, exclude_script_versions = NULL)
3754                 {
3755                         endPoint <- stringr::str_interp("jobs")
3756                         url <- paste0(private$host, endPoint)
3757                         headers <- list(Authorization = paste("OAuth2", private$token),
3758                                         "Content-Type" = "application/json")
3759                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
3760                                                           find_or_create = find_or_create, filters = filters,
3761                                                           minimum_script_version = minimum_script_version,
3762                                                           exclude_script_versions = exclude_script_versions)
3763
3764                         if(length(job) > 0)
3765                                 body <- jsonlite::toJSON(list(job = job),
3766                                                          auto_unbox = TRUE)
3767                         else
3768                                 body <- NULL
3769
3770                         response <- private$REST$http$exec("POST", url, headers, body,
3771                                                            queryArgs, private$numRetries)
3772                         resource <- private$REST$httpParser$parseJSONResponse(response)
3773
3774                         if(!is.null(resource$errors))
3775                                 stop(resource$errors)
3776
3777                         resource
3778                 },
3779
3780                 jobs.update = function(job, uuid)
3781                 {
3782                         endPoint <- stringr::str_interp("jobs/${uuid}")
3783                         url <- paste0(private$host, endPoint)
3784                         headers <- list(Authorization = paste("OAuth2", private$token),
3785                                         "Content-Type" = "application/json")
3786                         queryArgs <- NULL
3787
3788                         if(length(job) > 0)
3789                                 body <- jsonlite::toJSON(list(job = job),
3790                                                          auto_unbox = TRUE)
3791                         else
3792                                 body <- NULL
3793
3794                         response <- private$REST$http$exec("PUT", url, headers, body,
3795                                                            queryArgs, private$numRetries)
3796                         resource <- private$REST$httpParser$parseJSONResponse(response)
3797
3798                         if(!is.null(resource$errors))
3799                                 stop(resource$errors)
3800
3801                         resource
3802                 },
3803
3804                 jobs.delete = function(uuid)
3805                 {
3806                         endPoint <- stringr::str_interp("jobs/${uuid}")
3807                         url <- paste0(private$host, endPoint)
3808                         headers <- list(Authorization = paste("OAuth2", private$token),
3809                                         "Content-Type" = "application/json")
3810                         queryArgs <- NULL
3811
3812                         body <- NULL
3813
3814                         response <- private$REST$http$exec("DELETE", url, headers, body,
3815                                                            queryArgs, private$numRetries)
3816                         resource <- private$REST$httpParser$parseJSONResponse(response)
3817
3818                         if(!is.null(resource$errors))
3819                                 stop(resource$errors)
3820
3821                         resource
3822                 },
3823
3824                 jobs.queue = function(filters = NULL, where = NULL,
3825                         order = NULL, select = NULL, distinct = NULL,
3826                         limit = "100", offset = "0", count = "exact")
3827                 {
3828                         endPoint <- stringr::str_interp("jobs/queue")
3829                         url <- paste0(private$host, endPoint)
3830                         headers <- list(Authorization = paste("OAuth2", private$token),
3831                                         "Content-Type" = "application/json")
3832                         queryArgs <- list(filters = filters, where = where,
3833                                                           order = order, select = select, distinct = distinct,
3834                                                           limit = limit, offset = offset, count = count)
3835
3836                         body <- NULL
3837
3838                         response <- private$REST$http$exec("GET", url, headers, body,
3839                                                            queryArgs, private$numRetries)
3840                         resource <- private$REST$httpParser$parseJSONResponse(response)
3841
3842                         if(!is.null(resource$errors))
3843                                 stop(resource$errors)
3844
3845                         resource
3846                 },
3847
3848                 jobs.queue_size = function()
3849                 {
3850                         endPoint <- stringr::str_interp("jobs/queue_size")
3851                         url <- paste0(private$host, endPoint)
3852                         headers <- list(Authorization = paste("OAuth2", private$token),
3853                                         "Content-Type" = "application/json")
3854                         queryArgs <- NULL
3855
3856                         body <- NULL
3857
3858                         response <- private$REST$http$exec("GET", url, headers, body,
3859                                                            queryArgs, private$numRetries)
3860                         resource <- private$REST$httpParser$parseJSONResponse(response)
3861
3862                         if(!is.null(resource$errors))
3863                                 stop(resource$errors)
3864
3865                         resource
3866                 },
3867
3868                 jobs.cancel = function(uuid)
3869                 {
3870                         endPoint <- stringr::str_interp("jobs/${uuid}/cancel")
3871                         url <- paste0(private$host, endPoint)
3872                         headers <- list(Authorization = paste("OAuth2", private$token),
3873                                         "Content-Type" = "application/json")
3874                         queryArgs <- NULL
3875
3876                         body <- NULL
3877
3878                         response <- private$REST$http$exec("POST", url, headers, body,
3879                                                            queryArgs, private$numRetries)
3880                         resource <- private$REST$httpParser$parseJSONResponse(response)
3881
3882                         if(!is.null(resource$errors))
3883                                 stop(resource$errors)
3884
3885                         resource
3886                 },
3887
3888                 jobs.lock = function(uuid)
3889                 {
3890                         endPoint <- stringr::str_interp("jobs/${uuid}/lock")
3891                         url <- paste0(private$host, endPoint)
3892                         headers <- list(Authorization = paste("OAuth2", private$token),
3893                                         "Content-Type" = "application/json")
3894                         queryArgs <- NULL
3895
3896                         body <- NULL
3897
3898                         response <- private$REST$http$exec("POST", url, headers, body,
3899                                                            queryArgs, private$numRetries)
3900                         resource <- private$REST$httpParser$parseJSONResponse(response)
3901
3902                         if(!is.null(resource$errors))
3903                                 stop(resource$errors)
3904
3905                         resource
3906                 },
3907
3908                 jobs.list = function(filters = NULL, where = NULL,
3909                         order = NULL, select = NULL, distinct = NULL,
3910                         limit = "100", offset = "0", count = "exact")
3911                 {
3912                         endPoint <- stringr::str_interp("jobs")
3913                         url <- paste0(private$host, endPoint)
3914                         headers <- list(Authorization = paste("OAuth2", private$token),
3915                                         "Content-Type" = "application/json")
3916                         queryArgs <- list(filters = filters, where = where,
3917                                                           order = order, select = select, distinct = distinct,
3918                                                           limit = limit, offset = offset, count = count)
3919
3920                         body <- NULL
3921
3922                         response <- private$REST$http$exec("GET", url, headers, body,
3923                                                            queryArgs, private$numRetries)
3924                         resource <- private$REST$httpParser$parseJSONResponse(response)
3925
3926                         if(!is.null(resource$errors))
3927                                 stop(resource$errors)
3928
3929                         resource
3930                 },
3931
3932                 keep_disks.get = function(uuid)
3933                 {
3934                         endPoint <- stringr::str_interp("keep_disks/${uuid}")
3935                         url <- paste0(private$host, endPoint)
3936                         headers <- list(Authorization = paste("OAuth2", private$token),
3937                                         "Content-Type" = "application/json")
3938                         queryArgs <- NULL
3939
3940                         body <- NULL
3941
3942                         response <- private$REST$http$exec("GET", url, headers, body,
3943                                                            queryArgs, private$numRetries)
3944                         resource <- private$REST$httpParser$parseJSONResponse(response)
3945
3946                         if(!is.null(resource$errors))
3947                                 stop(resource$errors)
3948
3949                         resource
3950                 },
3951
3952                 keep_disks.create = function(keepdisk, ensure_unique_name = "false")
3953                 {
3954                         endPoint <- stringr::str_interp("keep_disks")
3955                         url <- paste0(private$host, endPoint)
3956                         headers <- list(Authorization = paste("OAuth2", private$token),
3957                                         "Content-Type" = "application/json")
3958                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
3959
3960                         if(length(keepdisk) > 0)
3961                                 body <- jsonlite::toJSON(list(keepdisk = keepdisk),
3962                                                          auto_unbox = TRUE)
3963                         else
3964                                 body <- NULL
3965
3966                         response <- private$REST$http$exec("POST", url, headers, body,
3967                                                            queryArgs, private$numRetries)
3968                         resource <- private$REST$httpParser$parseJSONResponse(response)
3969
3970                         if(!is.null(resource$errors))
3971                                 stop(resource$errors)
3972
3973                         resource
3974                 },
3975
3976                 keep_disks.update = function(keepdisk, uuid)
3977                 {
3978                         endPoint <- stringr::str_interp("keep_disks/${uuid}")
3979                         url <- paste0(private$host, endPoint)
3980                         headers <- list(Authorization = paste("OAuth2", private$token),
3981                                         "Content-Type" = "application/json")
3982                         queryArgs <- NULL
3983
3984                         if(length(keepdisk) > 0)
3985                                 body <- jsonlite::toJSON(list(keepdisk = keepdisk),
3986                                                          auto_unbox = TRUE)
3987                         else
3988                                 body <- NULL
3989
3990                         response <- private$REST$http$exec("PUT", url, headers, body,
3991                                                            queryArgs, private$numRetries)
3992                         resource <- private$REST$httpParser$parseJSONResponse(response)
3993
3994                         if(!is.null(resource$errors))
3995                                 stop(resource$errors)
3996
3997                         resource
3998                 },
3999
4000                 keep_disks.delete = function(uuid)
4001                 {
4002                         endPoint <- stringr::str_interp("keep_disks/${uuid}")
4003                         url <- paste0(private$host, endPoint)
4004                         headers <- list(Authorization = paste("OAuth2", private$token),
4005                                         "Content-Type" = "application/json")
4006                         queryArgs <- NULL
4007
4008                         body <- NULL
4009
4010                         response <- private$REST$http$exec("DELETE", url, headers, body,
4011                                                            queryArgs, private$numRetries)
4012                         resource <- private$REST$httpParser$parseJSONResponse(response)
4013
4014                         if(!is.null(resource$errors))
4015                                 stop(resource$errors)
4016
4017                         resource
4018                 },
4019
4020                 keep_disks.ping = function(uuid = NULL, ping_secret,
4021                         node_uuid = NULL, filesystem_uuid = NULL,
4022                         service_host = NULL, service_port, service_ssl_flag)
4023                 {
4024                         endPoint <- stringr::str_interp("keep_disks/ping")
4025                         url <- paste0(private$host, endPoint)
4026                         headers <- list(Authorization = paste("OAuth2", private$token),
4027                                         "Content-Type" = "application/json")
4028                         queryArgs <- list(uuid = uuid, ping_secret = ping_secret,
4029                                                           node_uuid = node_uuid, filesystem_uuid = filesystem_uuid,
4030                                                           service_host = service_host, service_port = service_port,
4031                                                           service_ssl_flag = service_ssl_flag)
4032
4033                         body <- NULL
4034
4035                         response <- private$REST$http$exec("POST", url, headers, body,
4036                                                            queryArgs, private$numRetries)
4037                         resource <- private$REST$httpParser$parseJSONResponse(response)
4038
4039                         if(!is.null(resource$errors))
4040                                 stop(resource$errors)
4041
4042                         resource
4043                 },
4044
4045                 keep_disks.list = function(filters = NULL,
4046                         where = NULL, order = NULL, select = NULL,
4047                         distinct = NULL, limit = "100", offset = "0",
4048                         count = "exact")
4049                 {
4050                         endPoint <- stringr::str_interp("keep_disks")
4051                         url <- paste0(private$host, endPoint)
4052                         headers <- list(Authorization = paste("OAuth2", private$token),
4053                                         "Content-Type" = "application/json")
4054                         queryArgs <- list(filters = filters, where = where,
4055                                                           order = order, select = select, distinct = distinct,
4056                                                           limit = limit, offset = offset, count = count)
4057
4058                         body <- NULL
4059
4060                         response <- private$REST$http$exec("GET", url, headers, body,
4061                                                            queryArgs, private$numRetries)
4062                         resource <- private$REST$httpParser$parseJSONResponse(response)
4063
4064                         if(!is.null(resource$errors))
4065                                 stop(resource$errors)
4066
4067                         resource
4068                 },
4069
4070                 keep_services.get = function(uuid)
4071                 {
4072                         endPoint <- stringr::str_interp("keep_services/${uuid}")
4073                         url <- paste0(private$host, endPoint)
4074                         headers <- list(Authorization = paste("OAuth2", private$token),
4075                                         "Content-Type" = "application/json")
4076                         queryArgs <- NULL
4077
4078                         body <- NULL
4079
4080                         response <- private$REST$http$exec("GET", url, headers, body,
4081                                                            queryArgs, private$numRetries)
4082                         resource <- private$REST$httpParser$parseJSONResponse(response)
4083
4084                         if(!is.null(resource$errors))
4085                                 stop(resource$errors)
4086
4087                         resource
4088                 },
4089
4090                 keep_services.create = function(keepservice,
4091                         ensure_unique_name = "false")
4092                 {
4093                         endPoint <- stringr::str_interp("keep_services")
4094                         url <- paste0(private$host, endPoint)
4095                         headers <- list(Authorization = paste("OAuth2", private$token),
4096                                         "Content-Type" = "application/json")
4097                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
4098
4099                         if(length(keepservice) > 0)
4100                                 body <- jsonlite::toJSON(list(keepservice = keepservice),
4101                                                          auto_unbox = TRUE)
4102                         else
4103                                 body <- NULL
4104
4105                         response <- private$REST$http$exec("POST", url, headers, body,
4106                                                            queryArgs, private$numRetries)
4107                         resource <- private$REST$httpParser$parseJSONResponse(response)
4108
4109                         if(!is.null(resource$errors))
4110                                 stop(resource$errors)
4111
4112                         resource
4113                 },
4114
4115                 keep_services.update = function(keepservice, uuid)
4116                 {
4117                         endPoint <- stringr::str_interp("keep_services/${uuid}")
4118                         url <- paste0(private$host, endPoint)
4119                         headers <- list(Authorization = paste("OAuth2", private$token),
4120                                         "Content-Type" = "application/json")
4121                         queryArgs <- NULL
4122
4123                         if(length(keepservice) > 0)
4124                                 body <- jsonlite::toJSON(list(keepservice = keepservice),
4125                                                          auto_unbox = TRUE)
4126                         else
4127                                 body <- NULL
4128
4129                         response <- private$REST$http$exec("PUT", url, headers, body,
4130                                                            queryArgs, private$numRetries)
4131                         resource <- private$REST$httpParser$parseJSONResponse(response)
4132
4133                         if(!is.null(resource$errors))
4134                                 stop(resource$errors)
4135
4136                         resource
4137                 },
4138
4139                 keep_services.delete = function(uuid)
4140                 {
4141                         endPoint <- stringr::str_interp("keep_services/${uuid}")
4142                         url <- paste0(private$host, endPoint)
4143                         headers <- list(Authorization = paste("OAuth2", private$token),
4144                                         "Content-Type" = "application/json")
4145                         queryArgs <- NULL
4146
4147                         body <- NULL
4148
4149                         response <- private$REST$http$exec("DELETE", url, headers, body,
4150                                                            queryArgs, private$numRetries)
4151                         resource <- private$REST$httpParser$parseJSONResponse(response)
4152
4153                         if(!is.null(resource$errors))
4154                                 stop(resource$errors)
4155
4156                         resource
4157                 },
4158
4159                 keep_services.accessible = function()
4160                 {
4161                         endPoint <- stringr::str_interp("keep_services/accessible")
4162                         url <- paste0(private$host, endPoint)
4163                         headers <- list(Authorization = paste("OAuth2", private$token),
4164                                         "Content-Type" = "application/json")
4165                         queryArgs <- NULL
4166
4167                         body <- NULL
4168
4169                         response <- private$REST$http$exec("GET", url, headers, body,
4170                                                            queryArgs, private$numRetries)
4171                         resource <- private$REST$httpParser$parseJSONResponse(response)
4172
4173                         if(!is.null(resource$errors))
4174                                 stop(resource$errors)
4175
4176                         resource
4177                 },
4178
4179                 keep_services.list = function(filters = NULL,
4180                         where = NULL, order = NULL, select = NULL,
4181                         distinct = NULL, limit = "100", offset = "0",
4182                         count = "exact")
4183                 {
4184                         endPoint <- stringr::str_interp("keep_services")
4185                         url <- paste0(private$host, endPoint)
4186                         headers <- list(Authorization = paste("OAuth2", private$token),
4187                                         "Content-Type" = "application/json")
4188                         queryArgs <- list(filters = filters, where = where,
4189                                                           order = order, select = select, distinct = distinct,
4190                                                           limit = limit, offset = offset, count = count)
4191
4192                         body <- NULL
4193
4194                         response <- private$REST$http$exec("GET", url, headers, body,
4195                                                            queryArgs, private$numRetries)
4196                         resource <- private$REST$httpParser$parseJSONResponse(response)
4197
4198                         if(!is.null(resource$errors))
4199                                 stop(resource$errors)
4200
4201                         resource
4202                 },
4203
4204                 pipeline_templates.get = function(uuid)
4205                 {
4206                         endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
4207                         url <- paste0(private$host, endPoint)
4208                         headers <- list(Authorization = paste("OAuth2", private$token),
4209                                         "Content-Type" = "application/json")
4210                         queryArgs <- NULL
4211
4212                         body <- NULL
4213
4214                         response <- private$REST$http$exec("GET", url, headers, body,
4215                                                            queryArgs, private$numRetries)
4216                         resource <- private$REST$httpParser$parseJSONResponse(response)
4217
4218                         if(!is.null(resource$errors))
4219                                 stop(resource$errors)
4220
4221                         resource
4222                 },
4223
4224                 pipeline_templates.create = function(pipelinetemplate,
4225                         ensure_unique_name = "false")
4226                 {
4227                         endPoint <- stringr::str_interp("pipeline_templates")
4228                         url <- paste0(private$host, endPoint)
4229                         headers <- list(Authorization = paste("OAuth2", private$token),
4230                                         "Content-Type" = "application/json")
4231                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
4232
4233                         if(length(pipelinetemplate) > 0)
4234                                 body <- jsonlite::toJSON(list(pipelinetemplate = pipelinetemplate),
4235                                                          auto_unbox = TRUE)
4236                         else
4237                                 body <- NULL
4238
4239                         response <- private$REST$http$exec("POST", url, headers, body,
4240                                                            queryArgs, private$numRetries)
4241                         resource <- private$REST$httpParser$parseJSONResponse(response)
4242
4243                         if(!is.null(resource$errors))
4244                                 stop(resource$errors)
4245
4246                         resource
4247                 },
4248
4249                 pipeline_templates.update = function(pipelinetemplate, uuid)
4250                 {
4251                         endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
4252                         url <- paste0(private$host, endPoint)
4253                         headers <- list(Authorization = paste("OAuth2", private$token),
4254                                         "Content-Type" = "application/json")
4255                         queryArgs <- NULL
4256
4257                         if(length(pipelinetemplate) > 0)
4258                                 body <- jsonlite::toJSON(list(pipelinetemplate = pipelinetemplate),
4259                                                          auto_unbox = TRUE)
4260                         else
4261                                 body <- NULL
4262
4263                         response <- private$REST$http$exec("PUT", url, headers, body,
4264                                                            queryArgs, private$numRetries)
4265                         resource <- private$REST$httpParser$parseJSONResponse(response)
4266
4267                         if(!is.null(resource$errors))
4268                                 stop(resource$errors)
4269
4270                         resource
4271                 },
4272
4273                 pipeline_templates.delete = function(uuid)
4274                 {
4275                         endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
4276                         url <- paste0(private$host, endPoint)
4277                         headers <- list(Authorization = paste("OAuth2", private$token),
4278                                         "Content-Type" = "application/json")
4279                         queryArgs <- NULL
4280
4281                         body <- NULL
4282
4283                         response <- private$REST$http$exec("DELETE", url, headers, body,
4284                                                            queryArgs, private$numRetries)
4285                         resource <- private$REST$httpParser$parseJSONResponse(response)
4286
4287                         if(!is.null(resource$errors))
4288                                 stop(resource$errors)
4289
4290                         resource
4291                 },
4292
4293                 pipeline_templates.list = function(filters = NULL,
4294                         where = NULL, order = NULL, select = NULL,
4295                         distinct = NULL, limit = "100", offset = "0",
4296                         count = "exact")
4297                 {
4298                         endPoint <- stringr::str_interp("pipeline_templates")
4299                         url <- paste0(private$host, endPoint)
4300                         headers <- list(Authorization = paste("OAuth2", private$token),
4301                                         "Content-Type" = "application/json")
4302                         queryArgs <- list(filters = filters, where = where,
4303                                                           order = order, select = select, distinct = distinct,
4304                                                           limit = limit, offset = offset, count = count)
4305
4306                         body <- NULL
4307
4308                         response <- private$REST$http$exec("GET", url, headers, body,
4309                                                            queryArgs, private$numRetries)
4310                         resource <- private$REST$httpParser$parseJSONResponse(response)
4311
4312                         if(!is.null(resource$errors))
4313                                 stop(resource$errors)
4314
4315                         resource
4316                 },
4317
4318                 pipeline_instances.get = function(uuid)
4319                 {
4320                         endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
4321                         url <- paste0(private$host, endPoint)
4322                         headers <- list(Authorization = paste("OAuth2", private$token),
4323                                         "Content-Type" = "application/json")
4324                         queryArgs <- NULL
4325
4326                         body <- NULL
4327
4328                         response <- private$REST$http$exec("GET", url, headers, body,
4329                                                            queryArgs, private$numRetries)
4330                         resource <- private$REST$httpParser$parseJSONResponse(response)
4331
4332                         if(!is.null(resource$errors))
4333                                 stop(resource$errors)
4334
4335                         resource
4336                 },
4337
4338                 pipeline_instances.create = function(pipelineinstance,
4339                         ensure_unique_name = "false")
4340                 {
4341                         endPoint <- stringr::str_interp("pipeline_instances")
4342                         url <- paste0(private$host, endPoint)
4343                         headers <- list(Authorization = paste("OAuth2", private$token),
4344                                         "Content-Type" = "application/json")
4345                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
4346
4347                         if(length(pipelineinstance) > 0)
4348                                 body <- jsonlite::toJSON(list(pipelineinstance = pipelineinstance),
4349                                                          auto_unbox = TRUE)
4350                         else
4351                                 body <- NULL
4352
4353                         response <- private$REST$http$exec("POST", url, headers, body,
4354                                                            queryArgs, private$numRetries)
4355                         resource <- private$REST$httpParser$parseJSONResponse(response)
4356
4357                         if(!is.null(resource$errors))
4358                                 stop(resource$errors)
4359
4360                         resource
4361                 },
4362
4363                 pipeline_instances.update = function(pipelineinstance, uuid)
4364                 {
4365                         endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
4366                         url <- paste0(private$host, endPoint)
4367                         headers <- list(Authorization = paste("OAuth2", private$token),
4368                                         "Content-Type" = "application/json")
4369                         queryArgs <- NULL
4370
4371                         if(length(pipelineinstance) > 0)
4372                                 body <- jsonlite::toJSON(list(pipelineinstance = pipelineinstance),
4373                                                          auto_unbox = TRUE)
4374                         else
4375                                 body <- NULL
4376
4377                         response <- private$REST$http$exec("PUT", url, headers, body,
4378                                                            queryArgs, private$numRetries)
4379                         resource <- private$REST$httpParser$parseJSONResponse(response)
4380
4381                         if(!is.null(resource$errors))
4382                                 stop(resource$errors)
4383
4384                         resource
4385                 },
4386
4387                 pipeline_instances.delete = function(uuid)
4388                 {
4389                         endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
4390                         url <- paste0(private$host, endPoint)
4391                         headers <- list(Authorization = paste("OAuth2", private$token),
4392                                         "Content-Type" = "application/json")
4393                         queryArgs <- NULL
4394
4395                         body <- NULL
4396
4397                         response <- private$REST$http$exec("DELETE", url, headers, body,
4398                                                            queryArgs, private$numRetries)
4399                         resource <- private$REST$httpParser$parseJSONResponse(response)
4400
4401                         if(!is.null(resource$errors))
4402                                 stop(resource$errors)
4403
4404                         resource
4405                 },
4406
4407                 pipeline_instances.cancel = function(uuid)
4408                 {
4409                         endPoint <- stringr::str_interp("pipeline_instances/${uuid}/cancel")
4410                         url <- paste0(private$host, endPoint)
4411                         headers <- list(Authorization = paste("OAuth2", private$token),
4412                                         "Content-Type" = "application/json")
4413                         queryArgs <- NULL
4414
4415                         body <- NULL
4416
4417                         response <- private$REST$http$exec("POST", url, headers, body,
4418                                                            queryArgs, private$numRetries)
4419                         resource <- private$REST$httpParser$parseJSONResponse(response)
4420
4421                         if(!is.null(resource$errors))
4422                                 stop(resource$errors)
4423
4424                         resource
4425                 },
4426
4427                 pipeline_instances.list = function(filters = NULL,
4428                         where = NULL, order = NULL, select = NULL,
4429                         distinct = NULL, limit = "100", offset = "0",
4430                         count = "exact")
4431                 {
4432                         endPoint <- stringr::str_interp("pipeline_instances")
4433                         url <- paste0(private$host, endPoint)
4434                         headers <- list(Authorization = paste("OAuth2", private$token),
4435                                         "Content-Type" = "application/json")
4436                         queryArgs <- list(filters = filters, where = where,
4437                                                           order = order, select = select, distinct = distinct,
4438                                                           limit = limit, offset = offset, count = count)
4439
4440                         body <- NULL
4441
4442                         response <- private$REST$http$exec("GET", url, headers, body,
4443                                                            queryArgs, private$numRetries)
4444                         resource <- private$REST$httpParser$parseJSONResponse(response)
4445
4446                         if(!is.null(resource$errors))
4447                                 stop(resource$errors)
4448
4449                         resource
4450                 },
4451
4452                 nodes.get = function(uuid)
4453                 {
4454                         endPoint <- stringr::str_interp("nodes/${uuid}")
4455                         url <- paste0(private$host, endPoint)
4456                         headers <- list(Authorization = paste("OAuth2", private$token),
4457                                         "Content-Type" = "application/json")
4458                         queryArgs <- NULL
4459
4460                         body <- NULL
4461
4462                         response <- private$REST$http$exec("GET", url, headers, body,
4463                                                            queryArgs, private$numRetries)
4464                         resource <- private$REST$httpParser$parseJSONResponse(response)
4465
4466                         if(!is.null(resource$errors))
4467                                 stop(resource$errors)
4468
4469                         resource
4470                 },
4471
4472                 nodes.create = function(node, ensure_unique_name = "false",
4473                         assign_slot = NULL)
4474                 {
4475                         endPoint <- stringr::str_interp("nodes")
4476                         url <- paste0(private$host, endPoint)
4477                         headers <- list(Authorization = paste("OAuth2", private$token),
4478                                         "Content-Type" = "application/json")
4479                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
4480                                                           assign_slot = assign_slot)
4481
4482                         if(length(node) > 0)
4483                                 body <- jsonlite::toJSON(list(node = node),
4484                                                          auto_unbox = TRUE)
4485                         else
4486                                 body <- NULL
4487
4488                         response <- private$REST$http$exec("POST", url, headers, body,
4489                                                            queryArgs, private$numRetries)
4490                         resource <- private$REST$httpParser$parseJSONResponse(response)
4491
4492                         if(!is.null(resource$errors))
4493                                 stop(resource$errors)
4494
4495                         resource
4496                 },
4497
4498                 nodes.update = function(node, uuid, assign_slot = NULL)
4499                 {
4500                         endPoint <- stringr::str_interp("nodes/${uuid}")
4501                         url <- paste0(private$host, endPoint)
4502                         headers <- list(Authorization = paste("OAuth2", private$token),
4503                                         "Content-Type" = "application/json")
4504                         queryArgs <- list(assign_slot = assign_slot)
4505
4506                         if(length(node) > 0)
4507                                 body <- jsonlite::toJSON(list(node = node),
4508                                                          auto_unbox = TRUE)
4509                         else
4510                                 body <- NULL
4511
4512                         response <- private$REST$http$exec("PUT", url, headers, body,
4513                                                            queryArgs, private$numRetries)
4514                         resource <- private$REST$httpParser$parseJSONResponse(response)
4515
4516                         if(!is.null(resource$errors))
4517                                 stop(resource$errors)
4518
4519                         resource
4520                 },
4521
4522                 nodes.delete = function(uuid)
4523                 {
4524                         endPoint <- stringr::str_interp("nodes/${uuid}")
4525                         url <- paste0(private$host, endPoint)
4526                         headers <- list(Authorization = paste("OAuth2", private$token),
4527                                         "Content-Type" = "application/json")
4528                         queryArgs <- NULL
4529
4530                         body <- NULL
4531
4532                         response <- private$REST$http$exec("DELETE", url, headers, body,
4533                                                            queryArgs, private$numRetries)
4534                         resource <- private$REST$httpParser$parseJSONResponse(response)
4535
4536                         if(!is.null(resource$errors))
4537                                 stop(resource$errors)
4538
4539                         resource
4540                 },
4541
4542                 nodes.ping = function(uuid, ping_secret)
4543                 {
4544                         endPoint <- stringr::str_interp("nodes/${uuid}/ping")
4545                         url <- paste0(private$host, endPoint)
4546                         headers <- list(Authorization = paste("OAuth2", private$token),
4547                                         "Content-Type" = "application/json")
4548                         queryArgs <- list(ping_secret = ping_secret)
4549
4550                         body <- NULL
4551
4552                         response <- private$REST$http$exec("POST", url, headers, body,
4553                                                            queryArgs, private$numRetries)
4554                         resource <- private$REST$httpParser$parseJSONResponse(response)
4555
4556                         if(!is.null(resource$errors))
4557                                 stop(resource$errors)
4558
4559                         resource
4560                 },
4561
4562                 nodes.list = function(filters = NULL, where = NULL,
4563                         order = NULL, select = NULL, distinct = NULL,
4564                         limit = "100", offset = "0", count = "exact")
4565                 {
4566                         endPoint <- stringr::str_interp("nodes")
4567                         url <- paste0(private$host, endPoint)
4568                         headers <- list(Authorization = paste("OAuth2", private$token),
4569                                         "Content-Type" = "application/json")
4570                         queryArgs <- list(filters = filters, where = where,
4571                                                           order = order, select = select, distinct = distinct,
4572                                                           limit = limit, offset = offset, count = count)
4573
4574                         body <- NULL
4575
4576                         response <- private$REST$http$exec("GET", url, headers, body,
4577                                                            queryArgs, private$numRetries)
4578                         resource <- private$REST$httpParser$parseJSONResponse(response)
4579
4580                         if(!is.null(resource$errors))
4581                                 stop(resource$errors)
4582
4583                         resource
4584                 },
4585
4586                 repositories.get = function(uuid)
4587                 {
4588                         endPoint <- stringr::str_interp("repositories/${uuid}")
4589                         url <- paste0(private$host, endPoint)
4590                         headers <- list(Authorization = paste("OAuth2", private$token),
4591                                         "Content-Type" = "application/json")
4592                         queryArgs <- NULL
4593
4594                         body <- NULL
4595
4596                         response <- private$REST$http$exec("GET", url, headers, body,
4597                                                            queryArgs, private$numRetries)
4598                         resource <- private$REST$httpParser$parseJSONResponse(response)
4599
4600                         if(!is.null(resource$errors))
4601                                 stop(resource$errors)
4602
4603                         resource
4604                 },
4605
4606                 repositories.create = function(repository, ensure_unique_name = "false")
4607                 {
4608                         endPoint <- stringr::str_interp("repositories")
4609                         url <- paste0(private$host, endPoint)
4610                         headers <- list(Authorization = paste("OAuth2", private$token),
4611                                         "Content-Type" = "application/json")
4612                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
4613
4614                         if(length(repository) > 0)
4615                                 body <- jsonlite::toJSON(list(repository = repository),
4616                                                          auto_unbox = TRUE)
4617                         else
4618                                 body <- NULL
4619
4620                         response <- private$REST$http$exec("POST", url, headers, body,
4621                                                            queryArgs, private$numRetries)
4622                         resource <- private$REST$httpParser$parseJSONResponse(response)
4623
4624                         if(!is.null(resource$errors))
4625                                 stop(resource$errors)
4626
4627                         resource
4628                 },
4629
4630                 repositories.update = function(repository, uuid)
4631                 {
4632                         endPoint <- stringr::str_interp("repositories/${uuid}")
4633                         url <- paste0(private$host, endPoint)
4634                         headers <- list(Authorization = paste("OAuth2", private$token),
4635                                         "Content-Type" = "application/json")
4636                         queryArgs <- NULL
4637
4638                         if(length(repository) > 0)
4639                                 body <- jsonlite::toJSON(list(repository = repository),
4640                                                          auto_unbox = TRUE)
4641                         else
4642                                 body <- NULL
4643
4644                         response <- private$REST$http$exec("PUT", url, headers, body,
4645                                                            queryArgs, private$numRetries)
4646                         resource <- private$REST$httpParser$parseJSONResponse(response)
4647
4648                         if(!is.null(resource$errors))
4649                                 stop(resource$errors)
4650
4651                         resource
4652                 },
4653
4654                 repositories.delete = function(uuid)
4655                 {
4656                         endPoint <- stringr::str_interp("repositories/${uuid}")
4657                         url <- paste0(private$host, endPoint)
4658                         headers <- list(Authorization = paste("OAuth2", private$token),
4659                                         "Content-Type" = "application/json")
4660                         queryArgs <- NULL
4661
4662                         body <- NULL
4663
4664                         response <- private$REST$http$exec("DELETE", url, headers, body,
4665                                                            queryArgs, private$numRetries)
4666                         resource <- private$REST$httpParser$parseJSONResponse(response)
4667
4668                         if(!is.null(resource$errors))
4669                                 stop(resource$errors)
4670
4671                         resource
4672                 },
4673
4674                 repositories.get_all_permissions = function()
4675                 {
4676                         endPoint <- stringr::str_interp("repositories/get_all_permissions")
4677                         url <- paste0(private$host, endPoint)
4678                         headers <- list(Authorization = paste("OAuth2", private$token),
4679                                         "Content-Type" = "application/json")
4680                         queryArgs <- NULL
4681
4682                         body <- NULL
4683
4684                         response <- private$REST$http$exec("GET", url, headers, body,
4685                                                            queryArgs, private$numRetries)
4686                         resource <- private$REST$httpParser$parseJSONResponse(response)
4687
4688                         if(!is.null(resource$errors))
4689                                 stop(resource$errors)
4690
4691                         resource
4692                 },
4693
4694                 repositories.list = function(filters = NULL,
4695                         where = NULL, order = NULL, select = NULL,
4696                         distinct = NULL, limit = "100", offset = "0",
4697                         count = "exact")
4698                 {
4699                         endPoint <- stringr::str_interp("repositories")
4700                         url <- paste0(private$host, endPoint)
4701                         headers <- list(Authorization = paste("OAuth2", private$token),
4702                                         "Content-Type" = "application/json")
4703                         queryArgs <- list(filters = filters, where = where,
4704                                                           order = order, select = select, distinct = distinct,
4705                                                           limit = limit, offset = offset, count = count)
4706
4707                         body <- NULL
4708
4709                         response <- private$REST$http$exec("GET", url, headers, body,
4710                                                            queryArgs, private$numRetries)
4711                         resource <- private$REST$httpParser$parseJSONResponse(response)
4712
4713                         if(!is.null(resource$errors))
4714                                 stop(resource$errors)
4715
4716                         resource
4717                 },
4718
4719                 specimens.get = function(uuid)
4720                 {
4721                         endPoint <- stringr::str_interp("specimens/${uuid}")
4722                         url <- paste0(private$host, endPoint)
4723                         headers <- list(Authorization = paste("OAuth2", private$token),
4724                                         "Content-Type" = "application/json")
4725                         queryArgs <- NULL
4726
4727                         body <- NULL
4728
4729                         response <- private$REST$http$exec("GET", url, headers, body,
4730                                                            queryArgs, private$numRetries)
4731                         resource <- private$REST$httpParser$parseJSONResponse(response)
4732
4733                         if(!is.null(resource$errors))
4734                                 stop(resource$errors)
4735
4736                         resource
4737                 },
4738
4739                 specimens.create = function(specimen, ensure_unique_name = "false")
4740                 {
4741                         endPoint <- stringr::str_interp("specimens")
4742                         url <- paste0(private$host, endPoint)
4743                         headers <- list(Authorization = paste("OAuth2", private$token),
4744                                         "Content-Type" = "application/json")
4745                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
4746
4747                         if(length(specimen) > 0)
4748                                 body <- jsonlite::toJSON(list(specimen = specimen),
4749                                                          auto_unbox = TRUE)
4750                         else
4751                                 body <- NULL
4752
4753                         response <- private$REST$http$exec("POST", url, headers, body,
4754                                                            queryArgs, private$numRetries)
4755                         resource <- private$REST$httpParser$parseJSONResponse(response)
4756
4757                         if(!is.null(resource$errors))
4758                                 stop(resource$errors)
4759
4760                         resource
4761                 },
4762
4763                 specimens.update = function(specimen, uuid)
4764                 {
4765                         endPoint <- stringr::str_interp("specimens/${uuid}")
4766                         url <- paste0(private$host, endPoint)
4767                         headers <- list(Authorization = paste("OAuth2", private$token),
4768                                         "Content-Type" = "application/json")
4769                         queryArgs <- NULL
4770
4771                         if(length(specimen) > 0)
4772                                 body <- jsonlite::toJSON(list(specimen = specimen),
4773                                                          auto_unbox = TRUE)
4774                         else
4775                                 body <- NULL
4776
4777                         response <- private$REST$http$exec("PUT", url, headers, body,
4778                                                            queryArgs, private$numRetries)
4779                         resource <- private$REST$httpParser$parseJSONResponse(response)
4780
4781                         if(!is.null(resource$errors))
4782                                 stop(resource$errors)
4783
4784                         resource
4785                 },
4786
4787                 specimens.delete = function(uuid)
4788                 {
4789                         endPoint <- stringr::str_interp("specimens/${uuid}")
4790                         url <- paste0(private$host, endPoint)
4791                         headers <- list(Authorization = paste("OAuth2", private$token),
4792                                         "Content-Type" = "application/json")
4793                         queryArgs <- NULL
4794
4795                         body <- NULL
4796
4797                         response <- private$REST$http$exec("DELETE", url, headers, body,
4798                                                            queryArgs, private$numRetries)
4799                         resource <- private$REST$httpParser$parseJSONResponse(response)
4800
4801                         if(!is.null(resource$errors))
4802                                 stop(resource$errors)
4803
4804                         resource
4805                 },
4806
4807                 specimens.list = function(filters = NULL,
4808                         where = NULL, order = NULL, select = NULL,
4809                         distinct = NULL, limit = "100", offset = "0",
4810                         count = "exact")
4811                 {
4812                         endPoint <- stringr::str_interp("specimens")
4813                         url <- paste0(private$host, endPoint)
4814                         headers <- list(Authorization = paste("OAuth2", private$token),
4815                                         "Content-Type" = "application/json")
4816                         queryArgs <- list(filters = filters, where = where,
4817                                                           order = order, select = select, distinct = distinct,
4818                                                           limit = limit, offset = offset, count = count)
4819
4820                         body <- NULL
4821
4822                         response <- private$REST$http$exec("GET", url, headers, body,
4823                                                            queryArgs, private$numRetries)
4824                         resource <- private$REST$httpParser$parseJSONResponse(response)
4825
4826                         if(!is.null(resource$errors))
4827                                 stop(resource$errors)
4828
4829                         resource
4830                 },
4831
4832                 logs.get = function(uuid)
4833                 {
4834                         endPoint <- stringr::str_interp("logs/${uuid}")
4835                         url <- paste0(private$host, endPoint)
4836                         headers <- list(Authorization = paste("OAuth2", private$token),
4837                                         "Content-Type" = "application/json")
4838                         queryArgs <- NULL
4839
4840                         body <- NULL
4841
4842                         response <- private$REST$http$exec("GET", url, headers, body,
4843                                                            queryArgs, private$numRetries)
4844                         resource <- private$REST$httpParser$parseJSONResponse(response)
4845
4846                         if(!is.null(resource$errors))
4847                                 stop(resource$errors)
4848
4849                         resource
4850                 },
4851
4852                 logs.create = function(log, ensure_unique_name = "false")
4853                 {
4854                         endPoint <- stringr::str_interp("logs")
4855                         url <- paste0(private$host, endPoint)
4856                         headers <- list(Authorization = paste("OAuth2", private$token),
4857                                         "Content-Type" = "application/json")
4858                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
4859
4860                         if(length(log) > 0)
4861                                 body <- jsonlite::toJSON(list(log = log),
4862                                                          auto_unbox = TRUE)
4863                         else
4864                                 body <- NULL
4865
4866                         response <- private$REST$http$exec("POST", url, headers, body,
4867                                                            queryArgs, private$numRetries)
4868                         resource <- private$REST$httpParser$parseJSONResponse(response)
4869
4870                         if(!is.null(resource$errors))
4871                                 stop(resource$errors)
4872
4873                         resource
4874                 },
4875
4876                 logs.update = function(log, uuid)
4877                 {
4878                         endPoint <- stringr::str_interp("logs/${uuid}")
4879                         url <- paste0(private$host, endPoint)
4880                         headers <- list(Authorization = paste("OAuth2", private$token),
4881                                         "Content-Type" = "application/json")
4882                         queryArgs <- NULL
4883
4884                         if(length(log) > 0)
4885                                 body <- jsonlite::toJSON(list(log = log),
4886                                                          auto_unbox = TRUE)
4887                         else
4888                                 body <- NULL
4889
4890                         response <- private$REST$http$exec("PUT", url, headers, body,
4891                                                            queryArgs, private$numRetries)
4892                         resource <- private$REST$httpParser$parseJSONResponse(response)
4893
4894                         if(!is.null(resource$errors))
4895                                 stop(resource$errors)
4896
4897                         resource
4898                 },
4899
4900                 logs.delete = function(uuid)
4901                 {
4902                         endPoint <- stringr::str_interp("logs/${uuid}")
4903                         url <- paste0(private$host, endPoint)
4904                         headers <- list(Authorization = paste("OAuth2", private$token),
4905                                         "Content-Type" = "application/json")
4906                         queryArgs <- NULL
4907
4908                         body <- NULL
4909
4910                         response <- private$REST$http$exec("DELETE", url, headers, body,
4911                                                            queryArgs, private$numRetries)
4912                         resource <- private$REST$httpParser$parseJSONResponse(response)
4913
4914                         if(!is.null(resource$errors))
4915                                 stop(resource$errors)
4916
4917                         resource
4918                 },
4919
4920                 logs.list = function(filters = NULL, where = NULL,
4921                         order = NULL, select = NULL, distinct = NULL,
4922                         limit = "100", offset = "0", count = "exact")
4923                 {
4924                         endPoint <- stringr::str_interp("logs")
4925                         url <- paste0(private$host, endPoint)
4926                         headers <- list(Authorization = paste("OAuth2", private$token),
4927                                         "Content-Type" = "application/json")
4928                         queryArgs <- list(filters = filters, where = where,
4929                                                           order = order, select = select, distinct = distinct,
4930                                                           limit = limit, offset = offset, count = count)
4931
4932                         body <- NULL
4933
4934                         response <- private$REST$http$exec("GET", url, headers, body,
4935                                                            queryArgs, private$numRetries)
4936                         resource <- private$REST$httpParser$parseJSONResponse(response)
4937
4938                         if(!is.null(resource$errors))
4939                                 stop(resource$errors)
4940
4941                         resource
4942                 },
4943
4944                 traits.get = function(uuid)
4945                 {
4946                         endPoint <- stringr::str_interp("traits/${uuid}")
4947                         url <- paste0(private$host, endPoint)
4948                         headers <- list(Authorization = paste("OAuth2", private$token),
4949                                         "Content-Type" = "application/json")
4950                         queryArgs <- NULL
4951
4952                         body <- NULL
4953
4954                         response <- private$REST$http$exec("GET", url, headers, body,
4955                                                            queryArgs, private$numRetries)
4956                         resource <- private$REST$httpParser$parseJSONResponse(response)
4957
4958                         if(!is.null(resource$errors))
4959                                 stop(resource$errors)
4960
4961                         resource
4962                 },
4963
4964                 traits.create = function(trait, ensure_unique_name = "false")
4965                 {
4966                         endPoint <- stringr::str_interp("traits")
4967                         url <- paste0(private$host, endPoint)
4968                         headers <- list(Authorization = paste("OAuth2", private$token),
4969                                         "Content-Type" = "application/json")
4970                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
4971
4972                         if(length(trait) > 0)
4973                                 body <- jsonlite::toJSON(list(trait = trait),
4974                                                          auto_unbox = TRUE)
4975                         else
4976                                 body <- NULL
4977
4978                         response <- private$REST$http$exec("POST", url, headers, body,
4979                                                            queryArgs, private$numRetries)
4980                         resource <- private$REST$httpParser$parseJSONResponse(response)
4981
4982                         if(!is.null(resource$errors))
4983                                 stop(resource$errors)
4984
4985                         resource
4986                 },
4987
4988                 traits.update = function(trait, uuid)
4989                 {
4990                         endPoint <- stringr::str_interp("traits/${uuid}")
4991                         url <- paste0(private$host, endPoint)
4992                         headers <- list(Authorization = paste("OAuth2", private$token),
4993                                         "Content-Type" = "application/json")
4994                         queryArgs <- NULL
4995
4996                         if(length(trait) > 0)
4997                                 body <- jsonlite::toJSON(list(trait = trait),
4998                                                          auto_unbox = TRUE)
4999                         else
5000                                 body <- NULL
5001
5002                         response <- private$REST$http$exec("PUT", url, headers, body,
5003                                                            queryArgs, private$numRetries)
5004                         resource <- private$REST$httpParser$parseJSONResponse(response)
5005
5006                         if(!is.null(resource$errors))
5007                                 stop(resource$errors)
5008
5009                         resource
5010                 },
5011
5012                 traits.delete = function(uuid)
5013                 {
5014                         endPoint <- stringr::str_interp("traits/${uuid}")
5015                         url <- paste0(private$host, endPoint)
5016                         headers <- list(Authorization = paste("OAuth2", private$token),
5017                                         "Content-Type" = "application/json")
5018                         queryArgs <- NULL
5019
5020                         body <- NULL
5021
5022                         response <- private$REST$http$exec("DELETE", url, headers, body,
5023                                                            queryArgs, private$numRetries)
5024                         resource <- private$REST$httpParser$parseJSONResponse(response)
5025
5026                         if(!is.null(resource$errors))
5027                                 stop(resource$errors)
5028
5029                         resource
5030                 },
5031
5032                 traits.list = function(filters = NULL, where = NULL,
5033                         order = NULL, select = NULL, distinct = NULL,
5034                         limit = "100", offset = "0", count = "exact")
5035                 {
5036                         endPoint <- stringr::str_interp("traits")
5037                         url <- paste0(private$host, endPoint)
5038                         headers <- list(Authorization = paste("OAuth2", private$token),
5039                                         "Content-Type" = "application/json")
5040                         queryArgs <- list(filters = filters, where = where,
5041                                                           order = order, select = select, distinct = distinct,
5042                                                           limit = limit, offset = offset, count = count)
5043
5044                         body <- NULL
5045
5046                         response <- private$REST$http$exec("GET", url, headers, body,
5047                                                            queryArgs, private$numRetries)
5048                         resource <- private$REST$httpParser$parseJSONResponse(response)
5049
5050                         if(!is.null(resource$errors))
5051                                 stop(resource$errors)
5052
5053                         resource
5054                 },
5055
5056                 virtual_machines.get = function(uuid)
5057                 {
5058                         endPoint <- stringr::str_interp("virtual_machines/${uuid}")
5059                         url <- paste0(private$host, endPoint)
5060                         headers <- list(Authorization = paste("OAuth2", private$token),
5061                                         "Content-Type" = "application/json")
5062                         queryArgs <- NULL
5063
5064                         body <- NULL
5065
5066                         response <- private$REST$http$exec("GET", url, headers, body,
5067                                                            queryArgs, private$numRetries)
5068                         resource <- private$REST$httpParser$parseJSONResponse(response)
5069
5070                         if(!is.null(resource$errors))
5071                                 stop(resource$errors)
5072
5073                         resource
5074                 },
5075
5076                 virtual_machines.create = function(virtualmachine,
5077                         ensure_unique_name = "false")
5078                 {
5079                         endPoint <- stringr::str_interp("virtual_machines")
5080                         url <- paste0(private$host, endPoint)
5081                         headers <- list(Authorization = paste("OAuth2", private$token),
5082                                         "Content-Type" = "application/json")
5083                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
5084
5085                         if(length(virtualmachine) > 0)
5086                                 body <- jsonlite::toJSON(list(virtualmachine = virtualmachine),
5087                                                          auto_unbox = TRUE)
5088                         else
5089                                 body <- NULL
5090
5091                         response <- private$REST$http$exec("POST", url, headers, body,
5092                                                            queryArgs, private$numRetries)
5093                         resource <- private$REST$httpParser$parseJSONResponse(response)
5094
5095                         if(!is.null(resource$errors))
5096                                 stop(resource$errors)
5097
5098                         resource
5099                 },
5100
5101                 virtual_machines.update = function(virtualmachine, uuid)
5102                 {
5103                         endPoint <- stringr::str_interp("virtual_machines/${uuid}")
5104                         url <- paste0(private$host, endPoint)
5105                         headers <- list(Authorization = paste("OAuth2", private$token),
5106                                         "Content-Type" = "application/json")
5107                         queryArgs <- NULL
5108
5109                         if(length(virtualmachine) > 0)
5110                                 body <- jsonlite::toJSON(list(virtualmachine = virtualmachine),
5111                                                          auto_unbox = TRUE)
5112                         else
5113                                 body <- NULL
5114
5115                         response <- private$REST$http$exec("PUT", url, headers, body,
5116                                                            queryArgs, private$numRetries)
5117                         resource <- private$REST$httpParser$parseJSONResponse(response)
5118
5119                         if(!is.null(resource$errors))
5120                                 stop(resource$errors)
5121
5122                         resource
5123                 },
5124
5125                 virtual_machines.delete = function(uuid)
5126                 {
5127                         endPoint <- stringr::str_interp("virtual_machines/${uuid}")
5128                         url <- paste0(private$host, endPoint)
5129                         headers <- list(Authorization = paste("OAuth2", private$token),
5130                                         "Content-Type" = "application/json")
5131                         queryArgs <- NULL
5132
5133                         body <- NULL
5134
5135                         response <- private$REST$http$exec("DELETE", url, headers, body,
5136                                                            queryArgs, private$numRetries)
5137                         resource <- private$REST$httpParser$parseJSONResponse(response)
5138
5139                         if(!is.null(resource$errors))
5140                                 stop(resource$errors)
5141
5142                         resource
5143                 },
5144
5145                 virtual_machines.logins = function(uuid)
5146                 {
5147                         endPoint <- stringr::str_interp("virtual_machines/${uuid}/logins")
5148                         url <- paste0(private$host, endPoint)
5149                         headers <- list(Authorization = paste("OAuth2", private$token),
5150                                         "Content-Type" = "application/json")
5151                         queryArgs <- NULL
5152
5153                         body <- NULL
5154
5155                         response <- private$REST$http$exec("GET", url, headers, body,
5156                                                            queryArgs, private$numRetries)
5157                         resource <- private$REST$httpParser$parseJSONResponse(response)
5158
5159                         if(!is.null(resource$errors))
5160                                 stop(resource$errors)
5161
5162                         resource
5163                 },
5164
5165                 virtual_machines.get_all_logins = function()
5166                 {
5167                         endPoint <- stringr::str_interp("virtual_machines/get_all_logins")
5168                         url <- paste0(private$host, endPoint)
5169                         headers <- list(Authorization = paste("OAuth2", private$token),
5170                                         "Content-Type" = "application/json")
5171                         queryArgs <- NULL
5172
5173                         body <- NULL
5174
5175                         response <- private$REST$http$exec("GET", url, headers, body,
5176                                                            queryArgs, private$numRetries)
5177                         resource <- private$REST$httpParser$parseJSONResponse(response)
5178
5179                         if(!is.null(resource$errors))
5180                                 stop(resource$errors)
5181
5182                         resource
5183                 },
5184
5185                 virtual_machines.list = function(filters = NULL,
5186                         where = NULL, order = NULL, select = NULL,
5187                         distinct = NULL, limit = "100", offset = "0",
5188                         count = "exact")
5189                 {
5190                         endPoint <- stringr::str_interp("virtual_machines")
5191                         url <- paste0(private$host, endPoint)
5192                         headers <- list(Authorization = paste("OAuth2", private$token),
5193                                         "Content-Type" = "application/json")
5194                         queryArgs <- list(filters = filters, where = where,
5195                                                           order = order, select = select, distinct = distinct,
5196                                                           limit = limit, offset = offset, count = count)
5197
5198                         body <- NULL
5199
5200                         response <- private$REST$http$exec("GET", url, headers, body,
5201                                                            queryArgs, private$numRetries)
5202                         resource <- private$REST$httpParser$parseJSONResponse(response)
5203
5204                         if(!is.null(resource$errors))
5205                                 stop(resource$errors)
5206
5207                         resource
5208                 },
5209
5210                 workflows.get = function(uuid)
5211                 {
5212                         endPoint <- stringr::str_interp("workflows/${uuid}")
5213                         url <- paste0(private$host, endPoint)
5214                         headers <- list(Authorization = paste("OAuth2", private$token),
5215                                         "Content-Type" = "application/json")
5216                         queryArgs <- NULL
5217
5218                         body <- NULL
5219
5220                         response <- private$REST$http$exec("GET", url, headers, body,
5221                                                            queryArgs, private$numRetries)
5222                         resource <- private$REST$httpParser$parseJSONResponse(response)
5223
5224                         if(!is.null(resource$errors))
5225                                 stop(resource$errors)
5226
5227                         resource
5228                 },
5229
5230                 workflows.create = function(workflow, ensure_unique_name = "false")
5231                 {
5232                         endPoint <- stringr::str_interp("workflows")
5233                         url <- paste0(private$host, endPoint)
5234                         headers <- list(Authorization = paste("OAuth2", private$token),
5235                                         "Content-Type" = "application/json")
5236                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
5237
5238                         if(length(workflow) > 0)
5239                                 body <- jsonlite::toJSON(list(workflow = workflow),
5240                                                          auto_unbox = TRUE)
5241                         else
5242                                 body <- NULL
5243
5244                         response <- private$REST$http$exec("POST", url, headers, body,
5245                                                            queryArgs, private$numRetries)
5246                         resource <- private$REST$httpParser$parseJSONResponse(response)
5247
5248                         if(!is.null(resource$errors))
5249                                 stop(resource$errors)
5250
5251                         resource
5252                 },
5253
5254                 workflows.update = function(workflow, uuid)
5255                 {
5256                         endPoint <- stringr::str_interp("workflows/${uuid}")
5257                         url <- paste0(private$host, endPoint)
5258                         headers <- list(Authorization = paste("OAuth2", private$token),
5259                                         "Content-Type" = "application/json")
5260                         queryArgs <- NULL
5261
5262                         if(length(workflow) > 0)
5263                                 body <- jsonlite::toJSON(list(workflow = workflow),
5264                                                          auto_unbox = TRUE)
5265                         else
5266                                 body <- NULL
5267
5268                         response <- private$REST$http$exec("PUT", url, headers, body,
5269                                                            queryArgs, private$numRetries)
5270                         resource <- private$REST$httpParser$parseJSONResponse(response)
5271
5272                         if(!is.null(resource$errors))
5273                                 stop(resource$errors)
5274
5275                         resource
5276                 },
5277
5278                 workflows.delete = function(uuid)
5279                 {
5280                         endPoint <- stringr::str_interp("workflows/${uuid}")
5281                         url <- paste0(private$host, endPoint)
5282                         headers <- list(Authorization = paste("OAuth2", private$token),
5283                                         "Content-Type" = "application/json")
5284                         queryArgs <- NULL
5285
5286                         body <- NULL
5287
5288                         response <- private$REST$http$exec("DELETE", url, headers, body,
5289                                                            queryArgs, private$numRetries)
5290                         resource <- private$REST$httpParser$parseJSONResponse(response)
5291
5292                         if(!is.null(resource$errors))
5293                                 stop(resource$errors)
5294
5295                         resource
5296                 },
5297
5298                 workflows.list = function(filters = NULL,
5299                         where = NULL, order = NULL, select = NULL,
5300                         distinct = NULL, limit = "100", offset = "0",
5301                         count = "exact")
5302                 {
5303                         endPoint <- stringr::str_interp("workflows")
5304                         url <- paste0(private$host, endPoint)
5305                         headers <- list(Authorization = paste("OAuth2", private$token),
5306                                         "Content-Type" = "application/json")
5307                         queryArgs <- list(filters = filters, where = where,
5308                                                           order = order, select = select, distinct = distinct,
5309                                                           limit = limit, offset = offset, count = count)
5310
5311                         body <- NULL
5312
5313                         response <- private$REST$http$exec("GET", url, headers, body,
5314                                                            queryArgs, private$numRetries)
5315                         resource <- private$REST$httpParser$parseJSONResponse(response)
5316
5317                         if(!is.null(resource$errors))
5318                                 stop(resource$errors)
5319
5320                         resource
5321                 },
5322
5323                 groups.get = function(uuid)
5324                 {
5325                         endPoint <- stringr::str_interp("groups/${uuid}")
5326                         url <- paste0(private$host, endPoint)
5327                         headers <- list(Authorization = paste("OAuth2", private$token),
5328                                         "Content-Type" = "application/json")
5329                         queryArgs <- NULL
5330
5331                         body <- NULL
5332
5333                         response <- private$REST$http$exec("GET", url, headers, body,
5334                                                            queryArgs, private$numRetries)
5335                         resource <- private$REST$httpParser$parseJSONResponse(response)
5336
5337                         if(!is.null(resource$errors))
5338                                 stop(resource$errors)
5339
5340                         resource
5341                 },
5342
5343                 groups.create = function(group, ensure_unique_name = "false")
5344                 {
5345                         endPoint <- stringr::str_interp("groups")
5346                         url <- paste0(private$host, endPoint)
5347                         headers <- list(Authorization = paste("OAuth2", private$token),
5348                                         "Content-Type" = "application/json")
5349                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
5350
5351                         if(length(group) > 0)
5352                                 body <- jsonlite::toJSON(list(group = group),
5353                                                          auto_unbox = TRUE)
5354                         else
5355                                 body <- NULL
5356
5357                         response <- private$REST$http$exec("POST", url, headers, body,
5358                                                            queryArgs, private$numRetries)
5359                         resource <- private$REST$httpParser$parseJSONResponse(response)
5360
5361                         if(!is.null(resource$errors))
5362                                 stop(resource$errors)
5363
5364                         resource
5365                 },
5366
5367                 groups.update = function(group, uuid)
5368                 {
5369                         endPoint <- stringr::str_interp("groups/${uuid}")
5370                         url <- paste0(private$host, endPoint)
5371                         headers <- list(Authorization = paste("OAuth2", private$token),
5372                                         "Content-Type" = "application/json")
5373                         queryArgs <- NULL
5374
5375                         if(length(group) > 0)
5376                                 body <- jsonlite::toJSON(list(group = group),
5377                                                          auto_unbox = TRUE)
5378                         else
5379                                 body <- NULL
5380
5381                         response <- private$REST$http$exec("PUT", url, headers, body,
5382                                                            queryArgs, private$numRetries)
5383                         resource <- private$REST$httpParser$parseJSONResponse(response)
5384
5385                         if(!is.null(resource$errors))
5386                                 stop(resource$errors)
5387
5388                         resource
5389                 },
5390
5391                 groups.delete = function(uuid)
5392                 {
5393                         endPoint <- stringr::str_interp("groups/${uuid}")
5394                         url <- paste0(private$host, endPoint)
5395                         headers <- list(Authorization = paste("OAuth2", private$token),
5396                                         "Content-Type" = "application/json")
5397                         queryArgs <- NULL
5398
5399                         body <- NULL
5400
5401                         response <- private$REST$http$exec("DELETE", url, headers, body,
5402                                                            queryArgs, private$numRetries)
5403                         resource <- private$REST$httpParser$parseJSONResponse(response)
5404
5405                         if(!is.null(resource$errors))
5406                                 stop(resource$errors)
5407
5408                         resource
5409                 },
5410
5411                 groups.contents = function(filters = NULL,
5412                         where = NULL, order = NULL, distinct = NULL,
5413                         limit = "100", offset = "0", count = "exact",
5414                         include_trash = NULL, uuid = NULL, recursive = NULL)
5415                 {
5416                         endPoint <- stringr::str_interp("groups/contents")
5417                         url <- paste0(private$host, endPoint)
5418                         headers <- list(Authorization = paste("OAuth2", private$token),
5419                                         "Content-Type" = "application/json")
5420                         queryArgs <- list(filters = filters, where = where,
5421                                                           order = order, distinct = distinct, limit = limit,
5422                                                           offset = offset, count = count, include_trash = include_trash,
5423                                                           uuid = uuid, recursive = recursive)
5424
5425                         body <- NULL
5426
5427                         response <- private$REST$http$exec("GET", url, headers, body,
5428                                                            queryArgs, private$numRetries)
5429                         resource <- private$REST$httpParser$parseJSONResponse(response)
5430
5431                         if(!is.null(resource$errors))
5432                                 stop(resource$errors)
5433
5434                         resource
5435                 },
5436
5437                 groups.trash = function(uuid)
5438                 {
5439                         endPoint <- stringr::str_interp("groups/${uuid}/trash")
5440                         url <- paste0(private$host, endPoint)
5441                         headers <- list(Authorization = paste("OAuth2", private$token),
5442                                         "Content-Type" = "application/json")
5443                         queryArgs <- NULL
5444
5445                         body <- NULL
5446
5447                         response <- private$REST$http$exec("POST", url, headers, body,
5448                                                            queryArgs, private$numRetries)
5449                         resource <- private$REST$httpParser$parseJSONResponse(response)
5450
5451                         if(!is.null(resource$errors))
5452                                 stop(resource$errors)
5453
5454                         resource
5455                 },
5456
5457                 groups.untrash = function(uuid)
5458                 {
5459                         endPoint <- stringr::str_interp("groups/${uuid}/untrash")
5460                         url <- paste0(private$host, endPoint)
5461                         headers <- list(Authorization = paste("OAuth2", private$token),
5462                                         "Content-Type" = "application/json")
5463                         queryArgs <- NULL
5464
5465                         body <- NULL
5466
5467                         response <- private$REST$http$exec("POST", url, headers, body,
5468                                                            queryArgs, private$numRetries)
5469                         resource <- private$REST$httpParser$parseJSONResponse(response)
5470
5471                         if(!is.null(resource$errors))
5472                                 stop(resource$errors)
5473
5474                         resource
5475                 },
5476
5477                 groups.list = function(filters = NULL, where = NULL,
5478                         order = NULL, select = NULL, distinct = NULL,
5479                         limit = "100", offset = "0", count = "exact",
5480                         include_trash = NULL)
5481                 {
5482                         endPoint <- stringr::str_interp("groups")
5483                         url <- paste0(private$host, endPoint)
5484                         headers <- list(Authorization = paste("OAuth2", private$token),
5485                                         "Content-Type" = "application/json")
5486                         queryArgs <- list(filters = filters, where = where,
5487                                                           order = order, select = select, distinct = distinct,
5488                                                           limit = limit, offset = offset, count = count,
5489                                                           include_trash = include_trash)
5490
5491                         body <- NULL
5492
5493                         response <- private$REST$http$exec("GET", url, headers, body,
5494                                                            queryArgs, private$numRetries)
5495                         resource <- private$REST$httpParser$parseJSONResponse(response)
5496
5497                         if(!is.null(resource$errors))
5498                                 stop(resource$errors)
5499
5500                         resource
5501                 },
5502
5503                 user_agreements.get = function(uuid)
5504                 {
5505                         endPoint <- stringr::str_interp("user_agreements/${uuid}")
5506                         url <- paste0(private$host, endPoint)
5507                         headers <- list(Authorization = paste("OAuth2", private$token),
5508                                         "Content-Type" = "application/json")
5509                         queryArgs <- NULL
5510
5511                         body <- NULL
5512
5513                         response <- private$REST$http$exec("GET", url, headers, body,
5514                                                            queryArgs, private$numRetries)
5515                         resource <- private$REST$httpParser$parseJSONResponse(response)
5516
5517                         if(!is.null(resource$errors))
5518                                 stop(resource$errors)
5519
5520                         resource
5521                 },
5522
5523                 user_agreements.create = function(useragreement,
5524                         ensure_unique_name = "false")
5525                 {
5526                         endPoint <- stringr::str_interp("user_agreements")
5527                         url <- paste0(private$host, endPoint)
5528                         headers <- list(Authorization = paste("OAuth2", private$token),
5529                                         "Content-Type" = "application/json")
5530                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
5531
5532                         if(length(useragreement) > 0)
5533                                 body <- jsonlite::toJSON(list(useragreement = useragreement),
5534                                                          auto_unbox = TRUE)
5535                         else
5536                                 body <- NULL
5537
5538                         response <- private$REST$http$exec("POST", url, headers, body,
5539                                                            queryArgs, private$numRetries)
5540                         resource <- private$REST$httpParser$parseJSONResponse(response)
5541
5542                         if(!is.null(resource$errors))
5543                                 stop(resource$errors)
5544
5545                         resource
5546                 },
5547
5548                 user_agreements.update = function(useragreement, uuid)
5549                 {
5550                         endPoint <- stringr::str_interp("user_agreements/${uuid}")
5551                         url <- paste0(private$host, endPoint)
5552                         headers <- list(Authorization = paste("OAuth2", private$token),
5553                                         "Content-Type" = "application/json")
5554                         queryArgs <- NULL
5555
5556                         if(length(useragreement) > 0)
5557                                 body <- jsonlite::toJSON(list(useragreement = useragreement),
5558                                                          auto_unbox = TRUE)
5559                         else
5560                                 body <- NULL
5561
5562                         response <- private$REST$http$exec("PUT", url, headers, body,
5563                                                            queryArgs, private$numRetries)
5564                         resource <- private$REST$httpParser$parseJSONResponse(response)
5565
5566                         if(!is.null(resource$errors))
5567                                 stop(resource$errors)
5568
5569                         resource
5570                 },
5571
5572                 user_agreements.delete = function(uuid)
5573                 {
5574                         endPoint <- stringr::str_interp("user_agreements/${uuid}")
5575                         url <- paste0(private$host, endPoint)
5576                         headers <- list(Authorization = paste("OAuth2", private$token),
5577                                         "Content-Type" = "application/json")
5578                         queryArgs <- NULL
5579
5580                         body <- NULL
5581
5582                         response <- private$REST$http$exec("DELETE", url, headers, body,
5583                                                            queryArgs, private$numRetries)
5584                         resource <- private$REST$httpParser$parseJSONResponse(response)
5585
5586                         if(!is.null(resource$errors))
5587                                 stop(resource$errors)
5588
5589                         resource
5590                 },
5591
5592                 user_agreements.signatures = function()
5593                 {
5594                         endPoint <- stringr::str_interp("user_agreements/signatures")
5595                         url <- paste0(private$host, endPoint)
5596                         headers <- list(Authorization = paste("OAuth2", private$token),
5597                                         "Content-Type" = "application/json")
5598                         queryArgs <- NULL
5599
5600                         body <- NULL
5601
5602                         response <- private$REST$http$exec("GET", url, headers, body,
5603                                                            queryArgs, private$numRetries)
5604                         resource <- private$REST$httpParser$parseJSONResponse(response)
5605
5606                         if(!is.null(resource$errors))
5607                                 stop(resource$errors)
5608
5609                         resource
5610                 },
5611
5612                 user_agreements.sign = function()
5613                 {
5614                         endPoint <- stringr::str_interp("user_agreements/sign")
5615                         url <- paste0(private$host, endPoint)
5616                         headers <- list(Authorization = paste("OAuth2", private$token),
5617                                         "Content-Type" = "application/json")
5618                         queryArgs <- NULL
5619
5620                         body <- NULL
5621
5622                         response <- private$REST$http$exec("POST", url, headers, body,
5623                                                            queryArgs, private$numRetries)
5624                         resource <- private$REST$httpParser$parseJSONResponse(response)
5625
5626                         if(!is.null(resource$errors))
5627                                 stop(resource$errors)
5628
5629                         resource
5630                 },
5631
5632                 user_agreements.list = function(filters = NULL,
5633                         where = NULL, order = NULL, select = NULL,
5634                         distinct = NULL, limit = "100", offset = "0",
5635                         count = "exact")
5636                 {
5637                         endPoint <- stringr::str_interp("user_agreements")
5638                         url <- paste0(private$host, endPoint)
5639                         headers <- list(Authorization = paste("OAuth2", private$token),
5640                                         "Content-Type" = "application/json")
5641                         queryArgs <- list(filters = filters, where = where,
5642                                                           order = order, select = select, distinct = distinct,
5643                                                           limit = limit, offset = offset, count = count)
5644
5645                         body <- NULL
5646
5647                         response <- private$REST$http$exec("GET", url, headers, body,
5648                                                            queryArgs, private$numRetries)
5649                         resource <- private$REST$httpParser$parseJSONResponse(response)
5650
5651                         if(!is.null(resource$errors))
5652                                 stop(resource$errors)
5653
5654                         resource
5655                 },
5656
5657                 user_agreements.new = function()
5658                 {
5659                         endPoint <- stringr::str_interp("user_agreements/new")
5660                         url <- paste0(private$host, endPoint)
5661                         headers <- list(Authorization = paste("OAuth2", private$token),
5662                                         "Content-Type" = "application/json")
5663                         queryArgs <- NULL
5664
5665                         body <- NULL
5666
5667                         response <- private$REST$http$exec("GET", url, headers, body,
5668                                                            queryArgs, private$numRetries)
5669                         resource <- private$REST$httpParser$parseJSONResponse(response)
5670
5671                         if(!is.null(resource$errors))
5672                                 stop(resource$errors)
5673
5674                         resource
5675                 },
5676
5677                 getHostName = function() private$host,
5678                 getToken = function() private$token,
5679                 setRESTService = function(newREST) private$REST <- newREST,
5680                 getRESTService = function() private$REST
5681         ),
5682
5683         private = list(
5684
5685                 token = NULL,
5686                 host = NULL,
5687                 REST = NULL,
5688                 numRetries = NULL
5689         ),
5690
5691         cloneable = FALSE
5692 )