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