sdk/R/R/Arvados.R

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