sdk/R/R/Arvados.R

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