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 #' Arvados
1597 #'
1598 #' Arvados class gives users ability to manipulate collections and projects.
1599 #'
1600 #' @section Usage:
1601 #' \preformatted{arv = Arvados$new(authToken = NULL, hostName = NULL, numRetries = 0)}
1602 #'
1603 #' @section Arguments:
1604 #' \describe{
1605 #'      \item{authToken}{Authentification token. If not specified ARVADOS_API_TOKEN environment variable will be used.}
1606 #'      \item{hostName}{Host name. If not specified ARVADOS_API_HOST environment variable will be used.}
1607 #'      \item{numRetries}{Number which specifies how many times to retry failed service requests.}
1608 #' }
1609 #'
1610 #' @section Methods:
1611 #' \describe{
1612 #'      \item{}{\code{\link{api_client_authorizations.create}}}
1613 #'      \item{}{\code{\link{api_client_authorizations.create_system_auth}}}
1614 #'      \item{}{\code{\link{api_client_authorizations.current}}}
1615 #'      \item{}{\code{\link{api_client_authorizations.delete}}}
1616 #'      \item{}{\code{\link{api_client_authorizations.get}}}
1617 #'      \item{}{\code{\link{api_client_authorizations.list}}}
1618 #'      \item{}{\code{\link{api_client_authorizations.update}}}
1619 #'      \item{}{\code{\link{api_clients.create}}}
1620 #'      \item{}{\code{\link{api_clients.delete}}}
1621 #'      \item{}{\code{\link{api_clients.get}}}
1622 #'      \item{}{\code{\link{api_clients.list}}}
1623 #'      \item{}{\code{\link{api_clients.update}}}
1624 #'      \item{}{\code{\link{authorized_keys.create}}}
1625 #'      \item{}{\code{\link{authorized_keys.delete}}}
1626 #'      \item{}{\code{\link{authorized_keys.get}}}
1627 #'      \item{}{\code{\link{authorized_keys.list}}}
1628 #'      \item{}{\code{\link{authorized_keys.update}}}
1629 #'      \item{}{\code{\link{collections.create}}}
1630 #'      \item{}{\code{\link{collections.delete}}}
1631 #'      \item{}{\code{\link{collections.get}}}
1632 #'      \item{}{\code{\link{collections.list}}}
1633 #'      \item{}{\code{\link{collections.provenance}}}
1634 #'      \item{}{\code{\link{collections.trash}}}
1635 #'      \item{}{\code{\link{collections.untrash}}}
1636 #'      \item{}{\code{\link{collections.update}}}
1637 #'      \item{}{\code{\link{collections.used_by}}}
1638 #'      \item{}{\code{\link{container_requests.create}}}
1639 #'      \item{}{\code{\link{container_requests.delete}}}
1640 #'      \item{}{\code{\link{container_requests.get}}}
1641 #'      \item{}{\code{\link{container_requests.list}}}
1642 #'      \item{}{\code{\link{container_requests.update}}}
1643 #'      \item{}{\code{\link{containers.auth}}}
1644 #'      \item{}{\code{\link{containers.create}}}
1645 #'      \item{}{\code{\link{containers.current}}}
1646 #'      \item{}{\code{\link{containers.delete}}}
1647 #'      \item{}{\code{\link{containers.get}}}
1648 #'      \item{}{\code{\link{containers.list}}}
1649 #'      \item{}{\code{\link{containers.lock}}}
1650 #'      \item{}{\code{\link{containers.secret_mounts}}}
1651 #'      \item{}{\code{\link{containers.unlock}}}
1652 #'      \item{}{\code{\link{containers.update}}}
1653 #'      \item{}{\code{\link{groups.contents}}}
1654 #'      \item{}{\code{\link{groups.create}}}
1655 #'      \item{}{\code{\link{groups.delete}}}
1656 #'      \item{}{\code{\link{groups.get}}}
1657 #'      \item{}{\code{\link{groups.list}}}
1658 #'      \item{}{\code{\link{groups.trash}}}
1659 #'      \item{}{\code{\link{groups.untrash}}}
1660 #'      \item{}{\code{\link{groups.update}}}
1661 #'      \item{}{\code{\link{humans.create}}}
1662 #'      \item{}{\code{\link{humans.delete}}}
1663 #'      \item{}{\code{\link{humans.get}}}
1664 #'      \item{}{\code{\link{humans.list}}}
1665 #'      \item{}{\code{\link{humans.update}}}
1666 #'      \item{}{\code{\link{jobs.cancel}}}
1667 #'      \item{}{\code{\link{jobs.create}}}
1668 #'      \item{}{\code{\link{jobs.delete}}}
1669 #'      \item{}{\code{\link{jobs.get}}}
1670 #'      \item{}{\code{\link{jobs.list}}}
1671 #'      \item{}{\code{\link{jobs.lock}}}
1672 #'      \item{}{\code{\link{jobs.queue}}}
1673 #'      \item{}{\code{\link{jobs.queue_size}}}
1674 #'      \item{}{\code{\link{jobs.update}}}
1675 #'      \item{}{\code{\link{job_tasks.create}}}
1676 #'      \item{}{\code{\link{job_tasks.delete}}}
1677 #'      \item{}{\code{\link{job_tasks.get}}}
1678 #'      \item{}{\code{\link{job_tasks.list}}}
1679 #'      \item{}{\code{\link{job_tasks.update}}}
1680 #'      \item{}{\code{\link{keep_disks.create}}}
1681 #'      \item{}{\code{\link{keep_disks.delete}}}
1682 #'      \item{}{\code{\link{keep_disks.get}}}
1683 #'      \item{}{\code{\link{keep_disks.list}}}
1684 #'      \item{}{\code{\link{keep_disks.ping}}}
1685 #'      \item{}{\code{\link{keep_disks.update}}}
1686 #'      \item{}{\code{\link{keep_services.accessible}}}
1687 #'      \item{}{\code{\link{keep_services.create}}}
1688 #'      \item{}{\code{\link{keep_services.delete}}}
1689 #'      \item{}{\code{\link{keep_services.get}}}
1690 #'      \item{}{\code{\link{keep_services.list}}}
1691 #'      \item{}{\code{\link{keep_services.update}}}
1692 #'      \item{}{\code{\link{links.create}}}
1693 #'      \item{}{\code{\link{links.delete}}}
1694 #'      \item{}{\code{\link{links.get}}}
1695 #'      \item{}{\code{\link{links.get_permissions}}}
1696 #'      \item{}{\code{\link{links.list}}}
1697 #'      \item{}{\code{\link{links.update}}}
1698 #'      \item{}{\code{\link{logs.create}}}
1699 #'      \item{}{\code{\link{logs.delete}}}
1700 #'      \item{}{\code{\link{logs.get}}}
1701 #'      \item{}{\code{\link{logs.list}}}
1702 #'      \item{}{\code{\link{logs.update}}}
1703 #'      \item{}{\code{\link{nodes.create}}}
1704 #'      \item{}{\code{\link{nodes.delete}}}
1705 #'      \item{}{\code{\link{nodes.get}}}
1706 #'      \item{}{\code{\link{nodes.list}}}
1707 #'      \item{}{\code{\link{nodes.ping}}}
1708 #'      \item{}{\code{\link{nodes.update}}}
1709 #'      \item{}{\code{\link{pipeline_instances.cancel}}}
1710 #'      \item{}{\code{\link{pipeline_instances.create}}}
1711 #'      \item{}{\code{\link{pipeline_instances.delete}}}
1712 #'      \item{}{\code{\link{pipeline_instances.get}}}
1713 #'      \item{}{\code{\link{pipeline_instances.list}}}
1714 #'      \item{}{\code{\link{pipeline_instances.update}}}
1715 #'      \item{}{\code{\link{pipeline_templates.create}}}
1716 #'      \item{}{\code{\link{pipeline_templates.delete}}}
1717 #'      \item{}{\code{\link{pipeline_templates.get}}}
1718 #'      \item{}{\code{\link{pipeline_templates.list}}}
1719 #'      \item{}{\code{\link{pipeline_templates.update}}}
1720 #'      \item{}{\code{\link{projects.create}}}
1721 #'      \item{}{\code{\link{projects.delete}}}
1722 #'      \item{}{\code{\link{projects.get}}}
1723 #'      \item{}{\code{\link{projects.list}}}
1724 #'      \item{}{\code{\link{projects.update}}}
1725 #'      \item{}{\code{\link{repositories.create}}}
1726 #'      \item{}{\code{\link{repositories.delete}}}
1727 #'      \item{}{\code{\link{repositories.get}}}
1728 #'      \item{}{\code{\link{repositories.get_all_permissions}}}
1729 #'      \item{}{\code{\link{repositories.list}}}
1730 #'      \item{}{\code{\link{repositories.update}}}
1731 #'      \item{}{\code{\link{specimens.create}}}
1732 #'      \item{}{\code{\link{specimens.delete}}}
1733 #'      \item{}{\code{\link{specimens.get}}}
1734 #'      \item{}{\code{\link{specimens.list}}}
1735 #'      \item{}{\code{\link{specimens.update}}}
1736 #'      \item{}{\code{\link{traits.create}}}
1737 #'      \item{}{\code{\link{traits.delete}}}
1738 #'      \item{}{\code{\link{traits.get}}}
1739 #'      \item{}{\code{\link{traits.list}}}
1740 #'      \item{}{\code{\link{traits.update}}}
1741 #'      \item{}{\code{\link{user_agreements.create}}}
1742 #'      \item{}{\code{\link{user_agreements.delete}}}
1743 #'      \item{}{\code{\link{user_agreements.get}}}
1744 #'      \item{}{\code{\link{user_agreements.list}}}
1745 #'      \item{}{\code{\link{user_agreements.new}}}
1746 #'      \item{}{\code{\link{user_agreements.sign}}}
1747 #'      \item{}{\code{\link{user_agreements.signatures}}}
1748 #'      \item{}{\code{\link{user_agreements.update}}}
1749 #'      \item{}{\code{\link{users.activate}}}
1750 #'      \item{}{\code{\link{users.create}}}
1751 #'      \item{}{\code{\link{users.current}}}
1752 #'      \item{}{\code{\link{users.delete}}}
1753 #'      \item{}{\code{\link{users.get}}}
1754 #'      \item{}{\code{\link{users.list}}}
1755 #'      \item{}{\code{\link{users.setup}}}
1756 #'      \item{}{\code{\link{users.system}}}
1757 #'      \item{}{\code{\link{users.unsetup}}}
1758 #'      \item{}{\code{\link{users.update}}}
1759 #'      \item{}{\code{\link{users.update_uuid}}}
1760 #'      \item{}{\code{\link{virtual_machines.create}}}
1761 #'      \item{}{\code{\link{virtual_machines.delete}}}
1762 #'      \item{}{\code{\link{virtual_machines.get}}}
1763 #'      \item{}{\code{\link{virtual_machines.get_all_logins}}}
1764 #'      \item{}{\code{\link{virtual_machines.list}}}
1765 #'      \item{}{\code{\link{virtual_machines.logins}}}
1766 #'      \item{}{\code{\link{virtual_machines.update}}}
1767 #'      \item{}{\code{\link{workflows.create}}}
1768 #'      \item{}{\code{\link{workflows.delete}}}
1769 #'      \item{}{\code{\link{workflows.get}}}
1770 #'      \item{}{\code{\link{workflows.list}}}
1771 #'      \item{}{\code{\link{workflows.update}}}
1772 #' }
1773 #'
1774 #' @name Arvados
1775 #' @examples
1776 #' \dontrun{
1777 #' arv <- Arvados$new("your Arvados token", "example.arvadosapi.com")
1778 #'
1779 #' collection <- arv$collections.get("uuid")
1780 #'
1781 #' collectionList <- arv$collections.list(list(list("name", "like", "Test%")))
1782 #' collectionList <- listAll(arv$collections.list, list(list("name", "like", "Test%")))
1783 #'
1784 #' deletedCollection <- arv$collections.delete("uuid")
1785 #'
1786 #' updatedCollection <- arv$collections.update(list(name = "New name", description = "New description")
1787 #'                                            "uuid")
1788 #'
1789 #' createdCollection <- arv$collections.create(list(name = "Example",
1790 #'                                                  description = "This is a test collection"))
1791 #' }
1792 NULL
1793
1794 #' @export
1795 Arvados <- R6::R6Class(
1796
1797         "Arvados",
1798
1799         public = list(
1800
1801                 initialize = function(authToken = NULL, hostName = NULL, numRetries = 0)
1802                 {
1803                         if(!is.null(hostName))
1804                                 Sys.setenv(ARVADOS_API_HOST = hostName)
1805
1806                         if(!is.null(authToken))
1807                                 Sys.setenv(ARVADOS_API_TOKEN = authToken)
1808
1809                         hostName <- Sys.getenv("ARVADOS_API_HOST")
1810                         token    <- Sys.getenv("ARVADOS_API_TOKEN")
1811
1812                         if(hostName == "" | token == "")
1813                                 stop(paste("Please provide host name and authentification token",
1814                                                    "or set ARVADOS_API_HOST and ARVADOS_API_TOKEN",
1815                                                    "environment variables."))
1816
1817                         private$token <- token
1818                         private$host  <- paste0("https://", hostName, "/arvados/v1/")
1819                         private$numRetries <- numRetries
1820                         private$REST <- RESTService$new(token, hostName,
1821                                                         HttpRequest$new(), HttpParser$new(),
1822                                                         numRetries)
1823
1824                 },
1825
1826                 projects.get = function(uuid)
1827                 {
1828                         self$groups.get(uuid)
1829                 },
1830
1831                 projects.create = function(group, ensure_unique_name = "false")
1832                 {
1833                         group <- c("group_class" = "project", group)
1834                         self$groups.create(group, ensure_unique_name)
1835                 },
1836
1837                 projects.update = function(group, uuid)
1838                 {
1839                         group <- c("group_class" = "project", group)
1840                         self$groups.update(group, uuid)
1841                 },
1842
1843                 projects.list = function(filters = NULL, where = NULL,
1844                         order = NULL, select = NULL, distinct = NULL,
1845                         limit = "100", offset = "0", count = "exact",
1846                         include_trash = NULL)
1847                 {
1848                         filters[[length(filters) + 1]] <- list("group_class", "=", "project")
1849                         self$groups.list(filters, where, order, select, distinct,
1850                                          limit, offset, count, include_trash)
1851                 },
1852
1853                 projects.delete = function(uuid)
1854                 {
1855                         self$groups.delete(uuid)
1856                 },
1857
1858                 users.get = function(uuid)
1859                 {
1860                         endPoint <- stringr::str_interp("users/${uuid}")
1861                         url <- paste0(private$host, endPoint)
1862                         headers <- list(Authorization = paste("OAuth2", private$token),
1863                                         "Content-Type" = "application/json")
1864                         queryArgs <- NULL
1865
1866                         body <- NULL
1867
1868                         response <- private$REST$http$exec("GET", url, headers, body,
1869                                                            queryArgs, private$numRetries)
1870                         resource <- private$REST$httpParser$parseJSONResponse(response)
1871
1872                         if(!is.null(resource$errors))
1873                                 stop(resource$errors)
1874
1875                         resource
1876                 },
1877
1878                 users.create = function(user, ensure_unique_name = "false")
1879                 {
1880                         endPoint <- stringr::str_interp("users")
1881                         url <- paste0(private$host, endPoint)
1882                         headers <- list(Authorization = paste("OAuth2", private$token),
1883                                         "Content-Type" = "application/json")
1884                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
1885
1886                         if(length(user) > 0)
1887                                 body <- jsonlite::toJSON(list(user = user),
1888                                                          auto_unbox = TRUE)
1889                         else
1890                                 body <- NULL
1891
1892                         response <- private$REST$http$exec("POST", url, headers, body,
1893                                                            queryArgs, private$numRetries)
1894                         resource <- private$REST$httpParser$parseJSONResponse(response)
1895
1896                         if(!is.null(resource$errors))
1897                                 stop(resource$errors)
1898
1899                         resource
1900                 },
1901
1902                 users.update = function(user, uuid)
1903                 {
1904                         endPoint <- stringr::str_interp("users/${uuid}")
1905                         url <- paste0(private$host, endPoint)
1906                         headers <- list(Authorization = paste("OAuth2", private$token),
1907                                         "Content-Type" = "application/json")
1908                         queryArgs <- NULL
1909
1910                         if(length(user) > 0)
1911                                 body <- jsonlite::toJSON(list(user = user),
1912                                                          auto_unbox = TRUE)
1913                         else
1914                                 body <- NULL
1915
1916                         response <- private$REST$http$exec("PUT", url, headers, body,
1917                                                            queryArgs, private$numRetries)
1918                         resource <- private$REST$httpParser$parseJSONResponse(response)
1919
1920                         if(!is.null(resource$errors))
1921                                 stop(resource$errors)
1922
1923                         resource
1924                 },
1925
1926                 users.delete = function(uuid)
1927                 {
1928                         endPoint <- stringr::str_interp("users/${uuid}")
1929                         url <- paste0(private$host, endPoint)
1930                         headers <- list(Authorization = paste("OAuth2", private$token),
1931                                         "Content-Type" = "application/json")
1932                         queryArgs <- NULL
1933
1934                         body <- NULL
1935
1936                         response <- private$REST$http$exec("DELETE", url, headers, body,
1937                                                            queryArgs, private$numRetries)
1938                         resource <- private$REST$httpParser$parseJSONResponse(response)
1939
1940                         if(!is.null(resource$errors))
1941                                 stop(resource$errors)
1942
1943                         resource
1944                 },
1945
1946                 users.current = function()
1947                 {
1948                         endPoint <- stringr::str_interp("users/current")
1949                         url <- paste0(private$host, endPoint)
1950                         headers <- list(Authorization = paste("OAuth2", private$token),
1951                                         "Content-Type" = "application/json")
1952                         queryArgs <- NULL
1953
1954                         body <- NULL
1955
1956                         response <- private$REST$http$exec("GET", url, headers, body,
1957                                                            queryArgs, private$numRetries)
1958                         resource <- private$REST$httpParser$parseJSONResponse(response)
1959
1960                         if(!is.null(resource$errors))
1961                                 stop(resource$errors)
1962
1963                         resource
1964                 },
1965
1966                 users.system = function()
1967                 {
1968                         endPoint <- stringr::str_interp("users/system")
1969                         url <- paste0(private$host, endPoint)
1970                         headers <- list(Authorization = paste("OAuth2", private$token),
1971                                         "Content-Type" = "application/json")
1972                         queryArgs <- NULL
1973
1974                         body <- NULL
1975
1976                         response <- private$REST$http$exec("GET", url, headers, body,
1977                                                            queryArgs, private$numRetries)
1978                         resource <- private$REST$httpParser$parseJSONResponse(response)
1979
1980                         if(!is.null(resource$errors))
1981                                 stop(resource$errors)
1982
1983                         resource
1984                 },
1985
1986                 users.activate = function(uuid)
1987                 {
1988                         endPoint <- stringr::str_interp("users/${uuid}/activate")
1989                         url <- paste0(private$host, endPoint)
1990                         headers <- list(Authorization = paste("OAuth2", private$token),
1991                                         "Content-Type" = "application/json")
1992                         queryArgs <- NULL
1993
1994                         body <- NULL
1995
1996                         response <- private$REST$http$exec("POST", url, headers, body,
1997                                                            queryArgs, private$numRetries)
1998                         resource <- private$REST$httpParser$parseJSONResponse(response)
1999
2000                         if(!is.null(resource$errors))
2001                                 stop(resource$errors)
2002
2003                         resource
2004                 },
2005
2006                 users.setup = function(user = NULL, openid_prefix = NULL,
2007                         repo_name = NULL, vm_uuid = NULL, send_notification_email = "false")
2008                 {
2009                         endPoint <- stringr::str_interp("users/setup")
2010                         url <- paste0(private$host, endPoint)
2011                         headers <- list(Authorization = paste("OAuth2", private$token),
2012                                         "Content-Type" = "application/json")
2013                         queryArgs <- list(user = user, openid_prefix = openid_prefix,
2014                                                           repo_name = repo_name, vm_uuid = vm_uuid,
2015                                                           send_notification_email = send_notification_email)
2016
2017                         body <- NULL
2018
2019                         response <- private$REST$http$exec("POST", url, headers, body,
2020                                                            queryArgs, private$numRetries)
2021                         resource <- private$REST$httpParser$parseJSONResponse(response)
2022
2023                         if(!is.null(resource$errors))
2024                                 stop(resource$errors)
2025
2026                         resource
2027                 },
2028
2029                 users.unsetup = function(uuid)
2030                 {
2031                         endPoint <- stringr::str_interp("users/${uuid}/unsetup")
2032                         url <- paste0(private$host, endPoint)
2033                         headers <- list(Authorization = paste("OAuth2", private$token),
2034                                         "Content-Type" = "application/json")
2035                         queryArgs <- NULL
2036
2037                         body <- NULL
2038
2039                         response <- private$REST$http$exec("POST", url, headers, body,
2040                                                            queryArgs, private$numRetries)
2041                         resource <- private$REST$httpParser$parseJSONResponse(response)
2042
2043                         if(!is.null(resource$errors))
2044                                 stop(resource$errors)
2045
2046                         resource
2047                 },
2048
2049                 users.update_uuid = function(uuid, new_uuid)
2050                 {
2051                         endPoint <- stringr::str_interp("users/${uuid}/update_uuid")
2052                         url <- paste0(private$host, endPoint)
2053                         headers <- list(Authorization = paste("OAuth2", private$token),
2054                                         "Content-Type" = "application/json")
2055                         queryArgs <- list(new_uuid = new_uuid)
2056
2057                         body <- NULL
2058
2059                         response <- private$REST$http$exec("POST", url, headers, body,
2060                                                            queryArgs, private$numRetries)
2061                         resource <- private$REST$httpParser$parseJSONResponse(response)
2062
2063                         if(!is.null(resource$errors))
2064                                 stop(resource$errors)
2065
2066                         resource
2067                 },
2068
2069                 users.list = function(filters = NULL, where = NULL,
2070                         order = NULL, select = NULL, distinct = NULL,
2071                         limit = "100", offset = "0", count = "exact")
2072                 {
2073                         endPoint <- stringr::str_interp("users")
2074                         url <- paste0(private$host, endPoint)
2075                         headers <- list(Authorization = paste("OAuth2", private$token),
2076                                         "Content-Type" = "application/json")
2077                         queryArgs <- list(filters = filters, where = where,
2078                                                           order = order, select = select, distinct = distinct,
2079                                                           limit = limit, offset = offset, count = count)
2080
2081                         body <- NULL
2082
2083                         response <- private$REST$http$exec("GET", url, headers, body,
2084                                                            queryArgs, private$numRetries)
2085                         resource <- private$REST$httpParser$parseJSONResponse(response)
2086
2087                         if(!is.null(resource$errors))
2088                                 stop(resource$errors)
2089
2090                         resource
2091                 },
2092
2093                 api_client_authorizations.get = function(uuid)
2094                 {
2095                         endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
2096                         url <- paste0(private$host, endPoint)
2097                         headers <- list(Authorization = paste("OAuth2", private$token),
2098                                         "Content-Type" = "application/json")
2099                         queryArgs <- NULL
2100
2101                         body <- NULL
2102
2103                         response <- private$REST$http$exec("GET", url, headers, body,
2104                                                            queryArgs, private$numRetries)
2105                         resource <- private$REST$httpParser$parseJSONResponse(response)
2106
2107                         if(!is.null(resource$errors))
2108                                 stop(resource$errors)
2109
2110                         resource
2111                 },
2112
2113                 api_client_authorizations.create = function(apiclientauthorization,
2114                         ensure_unique_name = "false")
2115                 {
2116                         endPoint <- stringr::str_interp("api_client_authorizations")
2117                         url <- paste0(private$host, endPoint)
2118                         headers <- list(Authorization = paste("OAuth2", private$token),
2119                                         "Content-Type" = "application/json")
2120                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
2121
2122                         if(length(apiclientauthorization) > 0)
2123                                 body <- jsonlite::toJSON(list(apiclientauthorization = apiclientauthorization),
2124                                                          auto_unbox = TRUE)
2125                         else
2126                                 body <- NULL
2127
2128                         response <- private$REST$http$exec("POST", 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                 api_client_authorizations.update = function(apiclientauthorization, uuid)
2139                 {
2140                         endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
2141                         url <- paste0(private$host, endPoint)
2142                         headers <- list(Authorization = paste("OAuth2", private$token),
2143                                         "Content-Type" = "application/json")
2144                         queryArgs <- NULL
2145
2146                         if(length(apiclientauthorization) > 0)
2147                                 body <- jsonlite::toJSON(list(apiclientauthorization = apiclientauthorization),
2148                                                          auto_unbox = TRUE)
2149                         else
2150                                 body <- NULL
2151
2152                         response <- private$REST$http$exec("PUT", url, headers, body,
2153                                                            queryArgs, private$numRetries)
2154                         resource <- private$REST$httpParser$parseJSONResponse(response)
2155
2156                         if(!is.null(resource$errors))
2157                                 stop(resource$errors)
2158
2159                         resource
2160                 },
2161
2162                 api_client_authorizations.delete = function(uuid)
2163                 {
2164                         endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
2165                         url <- paste0(private$host, endPoint)
2166                         headers <- list(Authorization = paste("OAuth2", private$token),
2167                                         "Content-Type" = "application/json")
2168                         queryArgs <- NULL
2169
2170                         body <- NULL
2171
2172                         response <- private$REST$http$exec("DELETE", url, headers, body,
2173                                                            queryArgs, private$numRetries)
2174                         resource <- private$REST$httpParser$parseJSONResponse(response)
2175
2176                         if(!is.null(resource$errors))
2177                                 stop(resource$errors)
2178
2179                         resource
2180                 },
2181
2182                 api_client_authorizations.create_system_auth = function(api_client_id = NULL, scopes = NULL)
2183                 {
2184                         endPoint <- stringr::str_interp("api_client_authorizations/create_system_auth")
2185                         url <- paste0(private$host, endPoint)
2186                         headers <- list(Authorization = paste("OAuth2", private$token),
2187                                         "Content-Type" = "application/json")
2188                         queryArgs <- list(api_client_id = api_client_id,
2189                                                           scopes = scopes)
2190
2191                         body <- NULL
2192
2193                         response <- private$REST$http$exec("POST", url, headers, body,
2194                                                            queryArgs, private$numRetries)
2195                         resource <- private$REST$httpParser$parseJSONResponse(response)
2196
2197                         if(!is.null(resource$errors))
2198                                 stop(resource$errors)
2199
2200                         resource
2201                 },
2202
2203                 api_client_authorizations.current = function()
2204                 {
2205                         endPoint <- stringr::str_interp("api_client_authorizations/current")
2206                         url <- paste0(private$host, endPoint)
2207                         headers <- list(Authorization = paste("OAuth2", private$token),
2208                                         "Content-Type" = "application/json")
2209                         queryArgs <- NULL
2210
2211                         body <- NULL
2212
2213                         response <- private$REST$http$exec("GET", url, headers, body,
2214                                                            queryArgs, private$numRetries)
2215                         resource <- private$REST$httpParser$parseJSONResponse(response)
2216
2217                         if(!is.null(resource$errors))
2218                                 stop(resource$errors)
2219
2220                         resource
2221                 },
2222
2223                 api_client_authorizations.list = function(filters = NULL,
2224                         where = NULL, order = NULL, select = NULL,
2225                         distinct = NULL, limit = "100", offset = "0",
2226                         count = "exact")
2227                 {
2228                         endPoint <- stringr::str_interp("api_client_authorizations")
2229                         url <- paste0(private$host, endPoint)
2230                         headers <- list(Authorization = paste("OAuth2", private$token),
2231                                         "Content-Type" = "application/json")
2232                         queryArgs <- list(filters = filters, where = where,
2233                                                           order = order, select = select, distinct = distinct,
2234                                                           limit = limit, offset = offset, count = count)
2235
2236                         body <- NULL
2237
2238                         response <- private$REST$http$exec("GET", url, headers, body,
2239                                                            queryArgs, private$numRetries)
2240                         resource <- private$REST$httpParser$parseJSONResponse(response)
2241
2242                         if(!is.null(resource$errors))
2243                                 stop(resource$errors)
2244
2245                         resource
2246                 },
2247
2248                 containers.get = function(uuid)
2249                 {
2250                         endPoint <- stringr::str_interp("containers/${uuid}")
2251                         url <- paste0(private$host, endPoint)
2252                         headers <- list(Authorization = paste("OAuth2", private$token),
2253                                         "Content-Type" = "application/json")
2254                         queryArgs <- NULL
2255
2256                         body <- NULL
2257
2258                         response <- private$REST$http$exec("GET", url, headers, body,
2259                                                            queryArgs, private$numRetries)
2260                         resource <- private$REST$httpParser$parseJSONResponse(response)
2261
2262                         if(!is.null(resource$errors))
2263                                 stop(resource$errors)
2264
2265                         resource
2266                 },
2267
2268                 containers.create = function(container, ensure_unique_name = "false")
2269                 {
2270                         endPoint <- stringr::str_interp("containers")
2271                         url <- paste0(private$host, endPoint)
2272                         headers <- list(Authorization = paste("OAuth2", private$token),
2273                                         "Content-Type" = "application/json")
2274                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
2275
2276                         if(length(container) > 0)
2277                                 body <- jsonlite::toJSON(list(container = container),
2278                                                          auto_unbox = TRUE)
2279                         else
2280                                 body <- NULL
2281
2282                         response <- private$REST$http$exec("POST", url, headers, body,
2283                                                            queryArgs, private$numRetries)
2284                         resource <- private$REST$httpParser$parseJSONResponse(response)
2285
2286                         if(!is.null(resource$errors))
2287                                 stop(resource$errors)
2288
2289                         resource
2290                 },
2291
2292                 containers.update = function(container, uuid)
2293                 {
2294                         endPoint <- stringr::str_interp("containers/${uuid}")
2295                         url <- paste0(private$host, endPoint)
2296                         headers <- list(Authorization = paste("OAuth2", private$token),
2297                                         "Content-Type" = "application/json")
2298                         queryArgs <- NULL
2299
2300                         if(length(container) > 0)
2301                                 body <- jsonlite::toJSON(list(container = container),
2302                                                          auto_unbox = TRUE)
2303                         else
2304                                 body <- NULL
2305
2306                         response <- private$REST$http$exec("PUT", url, headers, body,
2307                                                            queryArgs, private$numRetries)
2308                         resource <- private$REST$httpParser$parseJSONResponse(response)
2309
2310                         if(!is.null(resource$errors))
2311                                 stop(resource$errors)
2312
2313                         resource
2314                 },
2315
2316                 containers.delete = function(uuid)
2317                 {
2318                         endPoint <- stringr::str_interp("containers/${uuid}")
2319                         url <- paste0(private$host, endPoint)
2320                         headers <- list(Authorization = paste("OAuth2", private$token),
2321                                         "Content-Type" = "application/json")
2322                         queryArgs <- NULL
2323
2324                         body <- NULL
2325
2326                         response <- private$REST$http$exec("DELETE", url, headers, body,
2327                                                            queryArgs, private$numRetries)
2328                         resource <- private$REST$httpParser$parseJSONResponse(response)
2329
2330                         if(!is.null(resource$errors))
2331                                 stop(resource$errors)
2332
2333                         resource
2334                 },
2335
2336                 containers.auth = function(uuid)
2337                 {
2338                         endPoint <- stringr::str_interp("containers/${uuid}/auth")
2339                         url <- paste0(private$host, endPoint)
2340                         headers <- list(Authorization = paste("OAuth2", private$token),
2341                                         "Content-Type" = "application/json")
2342                         queryArgs <- NULL
2343
2344                         body <- NULL
2345
2346                         response <- private$REST$http$exec("GET", url, headers, body,
2347                                                            queryArgs, private$numRetries)
2348                         resource <- private$REST$httpParser$parseJSONResponse(response)
2349
2350                         if(!is.null(resource$errors))
2351                                 stop(resource$errors)
2352
2353                         resource
2354                 },
2355
2356                 containers.lock = function(uuid)
2357                 {
2358                         endPoint <- stringr::str_interp("containers/${uuid}/lock")
2359                         url <- paste0(private$host, endPoint)
2360                         headers <- list(Authorization = paste("OAuth2", private$token),
2361                                         "Content-Type" = "application/json")
2362                         queryArgs <- NULL
2363
2364                         body <- NULL
2365
2366                         response <- private$REST$http$exec("POST", url, headers, body,
2367                                                            queryArgs, private$numRetries)
2368                         resource <- private$REST$httpParser$parseJSONResponse(response)
2369
2370                         if(!is.null(resource$errors))
2371                                 stop(resource$errors)
2372
2373                         resource
2374                 },
2375
2376                 containers.unlock = function(uuid)
2377                 {
2378                         endPoint <- stringr::str_interp("containers/${uuid}/unlock")
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("POST", url, headers, body,
2387                                                            queryArgs, private$numRetries)
2388                         resource <- private$REST$httpParser$parseJSONResponse(response)
2389
2390                         if(!is.null(resource$errors))
2391                                 stop(resource$errors)
2392
2393                         resource
2394                 },
2395
2396                 containers.secret_mounts = function(uuid)
2397                 {
2398                         endPoint <- stringr::str_interp("containers/${uuid}/secret_mounts")
2399                         url <- paste0(private$host, endPoint)
2400                         headers <- list(Authorization = paste("OAuth2", private$token),
2401                                         "Content-Type" = "application/json")
2402                         queryArgs <- NULL
2403
2404                         body <- NULL
2405
2406                         response <- private$REST$http$exec("GET", url, headers, body,
2407                                                            queryArgs, private$numRetries)
2408                         resource <- private$REST$httpParser$parseJSONResponse(response)
2409
2410                         if(!is.null(resource$errors))
2411                                 stop(resource$errors)
2412
2413                         resource
2414                 },
2415
2416                 containers.current = function()
2417                 {
2418                         endPoint <- stringr::str_interp("containers/current")
2419                         url <- paste0(private$host, endPoint)
2420                         headers <- list(Authorization = paste("OAuth2", private$token),
2421                                         "Content-Type" = "application/json")
2422                         queryArgs <- NULL
2423
2424                         body <- NULL
2425
2426                         response <- private$REST$http$exec("GET", url, headers, body,
2427                                                            queryArgs, private$numRetries)
2428                         resource <- private$REST$httpParser$parseJSONResponse(response)
2429
2430                         if(!is.null(resource$errors))
2431                                 stop(resource$errors)
2432
2433                         resource
2434                 },
2435
2436                 containers.list = function(filters = NULL,
2437                         where = NULL, order = NULL, select = NULL,
2438                         distinct = NULL, limit = "100", offset = "0",
2439                         count = "exact")
2440                 {
2441                         endPoint <- stringr::str_interp("containers")
2442                         url <- paste0(private$host, endPoint)
2443                         headers <- list(Authorization = paste("OAuth2", private$token),
2444                                         "Content-Type" = "application/json")
2445                         queryArgs <- list(filters = filters, where = where,
2446                                                           order = order, select = select, distinct = distinct,
2447                                                           limit = limit, offset = offset, count = count)
2448
2449                         body <- NULL
2450
2451                         response <- private$REST$http$exec("GET", url, headers, body,
2452                                                            queryArgs, private$numRetries)
2453                         resource <- private$REST$httpParser$parseJSONResponse(response)
2454
2455                         if(!is.null(resource$errors))
2456                                 stop(resource$errors)
2457
2458                         resource
2459                 },
2460
2461                 api_clients.get = function(uuid)
2462                 {
2463                         endPoint <- stringr::str_interp("api_clients/${uuid}")
2464                         url <- paste0(private$host, endPoint)
2465                         headers <- list(Authorization = paste("OAuth2", private$token),
2466                                         "Content-Type" = "application/json")
2467                         queryArgs <- NULL
2468
2469                         body <- NULL
2470
2471                         response <- private$REST$http$exec("GET", url, headers, body,
2472                                                            queryArgs, private$numRetries)
2473                         resource <- private$REST$httpParser$parseJSONResponse(response)
2474
2475                         if(!is.null(resource$errors))
2476                                 stop(resource$errors)
2477
2478                         resource
2479                 },
2480
2481                 api_clients.create = function(apiclient, ensure_unique_name = "false")
2482                 {
2483                         endPoint <- stringr::str_interp("api_clients")
2484                         url <- paste0(private$host, endPoint)
2485                         headers <- list(Authorization = paste("OAuth2", private$token),
2486                                         "Content-Type" = "application/json")
2487                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
2488
2489                         if(length(apiclient) > 0)
2490                                 body <- jsonlite::toJSON(list(apiclient = apiclient),
2491                                                          auto_unbox = TRUE)
2492                         else
2493                                 body <- NULL
2494
2495                         response <- private$REST$http$exec("POST", url, headers, body,
2496                                                            queryArgs, private$numRetries)
2497                         resource <- private$REST$httpParser$parseJSONResponse(response)
2498
2499                         if(!is.null(resource$errors))
2500                                 stop(resource$errors)
2501
2502                         resource
2503                 },
2504
2505                 api_clients.update = function(apiclient, uuid)
2506                 {
2507                         endPoint <- stringr::str_interp("api_clients/${uuid}")
2508                         url <- paste0(private$host, endPoint)
2509                         headers <- list(Authorization = paste("OAuth2", private$token),
2510                                         "Content-Type" = "application/json")
2511                         queryArgs <- NULL
2512
2513                         if(length(apiclient) > 0)
2514                                 body <- jsonlite::toJSON(list(apiclient = apiclient),
2515                                                          auto_unbox = TRUE)
2516                         else
2517                                 body <- NULL
2518
2519                         response <- private$REST$http$exec("PUT", url, headers, body,
2520                                                            queryArgs, private$numRetries)
2521                         resource <- private$REST$httpParser$parseJSONResponse(response)
2522
2523                         if(!is.null(resource$errors))
2524                                 stop(resource$errors)
2525
2526                         resource
2527                 },
2528
2529                 api_clients.delete = function(uuid)
2530                 {
2531                         endPoint <- stringr::str_interp("api_clients/${uuid}")
2532                         url <- paste0(private$host, endPoint)
2533                         headers <- list(Authorization = paste("OAuth2", private$token),
2534                                         "Content-Type" = "application/json")
2535                         queryArgs <- NULL
2536
2537                         body <- NULL
2538
2539                         response <- private$REST$http$exec("DELETE", url, headers, body,
2540                                                            queryArgs, private$numRetries)
2541                         resource <- private$REST$httpParser$parseJSONResponse(response)
2542
2543                         if(!is.null(resource$errors))
2544                                 stop(resource$errors)
2545
2546                         resource
2547                 },
2548
2549                 api_clients.list = function(filters = NULL,
2550                         where = NULL, order = NULL, select = NULL,
2551                         distinct = NULL, limit = "100", offset = "0",
2552                         count = "exact")
2553                 {
2554                         endPoint <- stringr::str_interp("api_clients")
2555                         url <- paste0(private$host, endPoint)
2556                         headers <- list(Authorization = paste("OAuth2", private$token),
2557                                         "Content-Type" = "application/json")
2558                         queryArgs <- list(filters = filters, where = where,
2559                                                           order = order, select = select, distinct = distinct,
2560                                                           limit = limit, offset = offset, count = count)
2561
2562                         body <- NULL
2563
2564                         response <- private$REST$http$exec("GET", url, headers, body,
2565                                                            queryArgs, private$numRetries)
2566                         resource <- private$REST$httpParser$parseJSONResponse(response)
2567
2568                         if(!is.null(resource$errors))
2569                                 stop(resource$errors)
2570
2571                         resource
2572                 },
2573
2574                 authorized_keys.get = function(uuid)
2575                 {
2576                         endPoint <- stringr::str_interp("authorized_keys/${uuid}")
2577                         url <- paste0(private$host, endPoint)
2578                         headers <- list(Authorization = paste("OAuth2", private$token),
2579                                         "Content-Type" = "application/json")
2580                         queryArgs <- NULL
2581
2582                         body <- NULL
2583
2584                         response <- private$REST$http$exec("GET", url, headers, body,
2585                                                            queryArgs, private$numRetries)
2586                         resource <- private$REST$httpParser$parseJSONResponse(response)
2587
2588                         if(!is.null(resource$errors))
2589                                 stop(resource$errors)
2590
2591                         resource
2592                 },
2593
2594                 authorized_keys.create = function(authorizedkey,
2595                         ensure_unique_name = "false")
2596                 {
2597                         endPoint <- stringr::str_interp("authorized_keys")
2598                         url <- paste0(private$host, endPoint)
2599                         headers <- list(Authorization = paste("OAuth2", private$token),
2600                                         "Content-Type" = "application/json")
2601                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
2602
2603                         if(length(authorizedkey) > 0)
2604                                 body <- jsonlite::toJSON(list(authorizedkey = authorizedkey),
2605                                                          auto_unbox = TRUE)
2606                         else
2607                                 body <- NULL
2608
2609                         response <- private$REST$http$exec("POST", url, headers, body,
2610                                                            queryArgs, private$numRetries)
2611                         resource <- private$REST$httpParser$parseJSONResponse(response)
2612
2613                         if(!is.null(resource$errors))
2614                                 stop(resource$errors)
2615
2616                         resource
2617                 },
2618
2619                 authorized_keys.update = function(authorizedkey, uuid)
2620                 {
2621                         endPoint <- stringr::str_interp("authorized_keys/${uuid}")
2622                         url <- paste0(private$host, endPoint)
2623                         headers <- list(Authorization = paste("OAuth2", private$token),
2624                                         "Content-Type" = "application/json")
2625                         queryArgs <- NULL
2626
2627                         if(length(authorizedkey) > 0)
2628                                 body <- jsonlite::toJSON(list(authorizedkey = authorizedkey),
2629                                                          auto_unbox = TRUE)
2630                         else
2631                                 body <- NULL
2632
2633                         response <- private$REST$http$exec("PUT", url, headers, body,
2634                                                            queryArgs, private$numRetries)
2635                         resource <- private$REST$httpParser$parseJSONResponse(response)
2636
2637                         if(!is.null(resource$errors))
2638                                 stop(resource$errors)
2639
2640                         resource
2641                 },
2642
2643                 authorized_keys.delete = function(uuid)
2644                 {
2645                         endPoint <- stringr::str_interp("authorized_keys/${uuid}")
2646                         url <- paste0(private$host, endPoint)
2647                         headers <- list(Authorization = paste("OAuth2", private$token),
2648                                         "Content-Type" = "application/json")
2649                         queryArgs <- NULL
2650
2651                         body <- NULL
2652
2653                         response <- private$REST$http$exec("DELETE", url, headers, body,
2654                                                            queryArgs, private$numRetries)
2655                         resource <- private$REST$httpParser$parseJSONResponse(response)
2656
2657                         if(!is.null(resource$errors))
2658                                 stop(resource$errors)
2659
2660                         resource
2661                 },
2662
2663                 authorized_keys.list = function(filters = NULL,
2664                         where = NULL, order = NULL, select = NULL,
2665                         distinct = NULL, limit = "100", offset = "0",
2666                         count = "exact")
2667                 {
2668                         endPoint <- stringr::str_interp("authorized_keys")
2669                         url <- paste0(private$host, endPoint)
2670                         headers <- list(Authorization = paste("OAuth2", private$token),
2671                                         "Content-Type" = "application/json")
2672                         queryArgs <- list(filters = filters, where = where,
2673                                                           order = order, select = select, distinct = distinct,
2674                                                           limit = limit, offset = offset, count = count)
2675
2676                         body <- NULL
2677
2678                         response <- private$REST$http$exec("GET", url, headers, body,
2679                                                            queryArgs, private$numRetries)
2680                         resource <- private$REST$httpParser$parseJSONResponse(response)
2681
2682                         if(!is.null(resource$errors))
2683                                 stop(resource$errors)
2684
2685                         resource
2686                 },
2687
2688                 container_requests.get = function(uuid)
2689                 {
2690                         endPoint <- stringr::str_interp("container_requests/${uuid}")
2691                         url <- paste0(private$host, endPoint)
2692                         headers <- list(Authorization = paste("OAuth2", private$token),
2693                                         "Content-Type" = "application/json")
2694                         queryArgs <- NULL
2695
2696                         body <- NULL
2697
2698                         response <- private$REST$http$exec("GET", url, headers, body,
2699                                                            queryArgs, private$numRetries)
2700                         resource <- private$REST$httpParser$parseJSONResponse(response)
2701
2702                         if(!is.null(resource$errors))
2703                                 stop(resource$errors)
2704
2705                         resource
2706                 },
2707
2708                 container_requests.create = function(containerrequest,
2709                         ensure_unique_name = "false")
2710                 {
2711                         endPoint <- stringr::str_interp("container_requests")
2712                         url <- paste0(private$host, endPoint)
2713                         headers <- list(Authorization = paste("OAuth2", private$token),
2714                                         "Content-Type" = "application/json")
2715                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
2716
2717                         if(length(containerrequest) > 0)
2718                                 body <- jsonlite::toJSON(list(containerrequest = containerrequest),
2719                                                          auto_unbox = TRUE)
2720                         else
2721                                 body <- NULL
2722
2723                         response <- private$REST$http$exec("POST", url, headers, body,
2724                                                            queryArgs, private$numRetries)
2725                         resource <- private$REST$httpParser$parseJSONResponse(response)
2726
2727                         if(!is.null(resource$errors))
2728                                 stop(resource$errors)
2729
2730                         resource
2731                 },
2732
2733                 container_requests.update = function(containerrequest, uuid)
2734                 {
2735                         endPoint <- stringr::str_interp("container_requests/${uuid}")
2736                         url <- paste0(private$host, endPoint)
2737                         headers <- list(Authorization = paste("OAuth2", private$token),
2738                                         "Content-Type" = "application/json")
2739                         queryArgs <- NULL
2740
2741                         if(length(containerrequest) > 0)
2742                                 body <- jsonlite::toJSON(list(containerrequest = containerrequest),
2743                                                          auto_unbox = TRUE)
2744                         else
2745                                 body <- NULL
2746
2747                         response <- private$REST$http$exec("PUT", url, headers, body,
2748                                                            queryArgs, private$numRetries)
2749                         resource <- private$REST$httpParser$parseJSONResponse(response)
2750
2751                         if(!is.null(resource$errors))
2752                                 stop(resource$errors)
2753
2754                         resource
2755                 },
2756
2757                 container_requests.delete = function(uuid)
2758                 {
2759                         endPoint <- stringr::str_interp("container_requests/${uuid}")
2760                         url <- paste0(private$host, endPoint)
2761                         headers <- list(Authorization = paste("OAuth2", private$token),
2762                                         "Content-Type" = "application/json")
2763                         queryArgs <- NULL
2764
2765                         body <- NULL
2766
2767                         response <- private$REST$http$exec("DELETE", url, headers, body,
2768                                                            queryArgs, private$numRetries)
2769                         resource <- private$REST$httpParser$parseJSONResponse(response)
2770
2771                         if(!is.null(resource$errors))
2772                                 stop(resource$errors)
2773
2774                         resource
2775                 },
2776
2777                 container_requests.list = function(filters = NULL,
2778                         where = NULL, order = NULL, select = NULL,
2779                         distinct = NULL, limit = "100", offset = "0",
2780                         count = "exact")
2781                 {
2782                         endPoint <- stringr::str_interp("container_requests")
2783                         url <- paste0(private$host, endPoint)
2784                         headers <- list(Authorization = paste("OAuth2", private$token),
2785                                         "Content-Type" = "application/json")
2786                         queryArgs <- list(filters = filters, where = where,
2787                                                           order = order, select = select, distinct = distinct,
2788                                                           limit = limit, offset = offset, count = count)
2789
2790                         body <- NULL
2791
2792                         response <- private$REST$http$exec("GET", url, headers, body,
2793                                                            queryArgs, private$numRetries)
2794                         resource <- private$REST$httpParser$parseJSONResponse(response)
2795
2796                         if(!is.null(resource$errors))
2797                                 stop(resource$errors)
2798
2799                         resource
2800                 },
2801
2802                 collections.get = function(uuid)
2803                 {
2804                         endPoint <- stringr::str_interp("collections/${uuid}")
2805                         url <- paste0(private$host, endPoint)
2806                         headers <- list(Authorization = paste("OAuth2", private$token),
2807                                         "Content-Type" = "application/json")
2808                         queryArgs <- NULL
2809
2810                         body <- NULL
2811
2812                         response <- private$REST$http$exec("GET", url, headers, body,
2813                                                            queryArgs, private$numRetries)
2814                         resource <- private$REST$httpParser$parseJSONResponse(response)
2815
2816                         if(!is.null(resource$errors))
2817                                 stop(resource$errors)
2818
2819                         resource
2820                 },
2821
2822                 collections.create = function(collection, ensure_unique_name = "false")
2823                 {
2824                         endPoint <- stringr::str_interp("collections")
2825                         url <- paste0(private$host, endPoint)
2826                         headers <- list(Authorization = paste("OAuth2", private$token),
2827                                         "Content-Type" = "application/json")
2828                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
2829
2830                         if(length(collection) > 0)
2831                                 body <- jsonlite::toJSON(list(collection = collection),
2832                                                          auto_unbox = TRUE)
2833                         else
2834                                 body <- NULL
2835
2836                         response <- private$REST$http$exec("POST", url, headers, body,
2837                                                            queryArgs, private$numRetries)
2838                         resource <- private$REST$httpParser$parseJSONResponse(response)
2839
2840                         if(!is.null(resource$errors))
2841                                 stop(resource$errors)
2842
2843                         resource
2844                 },
2845
2846                 collections.update = function(collection, uuid)
2847                 {
2848                         endPoint <- stringr::str_interp("collections/${uuid}")
2849                         url <- paste0(private$host, endPoint)
2850                         headers <- list(Authorization = paste("OAuth2", private$token),
2851                                         "Content-Type" = "application/json")
2852                         queryArgs <- NULL
2853
2854                         if(length(collection) > 0)
2855                                 body <- jsonlite::toJSON(list(collection = collection),
2856                                                          auto_unbox = TRUE)
2857                         else
2858                                 body <- NULL
2859
2860                         response <- private$REST$http$exec("PUT", url, headers, body,
2861                                                            queryArgs, private$numRetries)
2862                         resource <- private$REST$httpParser$parseJSONResponse(response)
2863
2864                         if(!is.null(resource$errors))
2865                                 stop(resource$errors)
2866
2867                         resource
2868                 },
2869
2870                 collections.delete = function(uuid)
2871                 {
2872                         endPoint <- stringr::str_interp("collections/${uuid}")
2873                         url <- paste0(private$host, endPoint)
2874                         headers <- list(Authorization = paste("OAuth2", private$token),
2875                                         "Content-Type" = "application/json")
2876                         queryArgs <- NULL
2877
2878                         body <- NULL
2879
2880                         response <- private$REST$http$exec("DELETE", url, headers, body,
2881                                                            queryArgs, private$numRetries)
2882                         resource <- private$REST$httpParser$parseJSONResponse(response)
2883
2884                         if(!is.null(resource$errors))
2885                                 stop(resource$errors)
2886
2887                         resource
2888                 },
2889
2890                 collections.provenance = function(uuid)
2891                 {
2892                         endPoint <- stringr::str_interp("collections/${uuid}/provenance")
2893                         url <- paste0(private$host, endPoint)
2894                         headers <- list(Authorization = paste("OAuth2", private$token),
2895                                         "Content-Type" = "application/json")
2896                         queryArgs <- NULL
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                 collections.used_by = function(uuid)
2911                 {
2912                         endPoint <- stringr::str_interp("collections/${uuid}/used_by")
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                 collections.trash = function(uuid)
2931                 {
2932                         endPoint <- stringr::str_interp("collections/${uuid}/trash")
2933                         url <- paste0(private$host, endPoint)
2934                         headers <- list(Authorization = paste("OAuth2", private$token),
2935                                         "Content-Type" = "application/json")
2936                         queryArgs <- NULL
2937
2938                         body <- NULL
2939
2940                         response <- private$REST$http$exec("POST", url, headers, body,
2941                                                            queryArgs, private$numRetries)
2942                         resource <- private$REST$httpParser$parseJSONResponse(response)
2943
2944                         if(!is.null(resource$errors))
2945                                 stop(resource$errors)
2946
2947                         resource
2948                 },
2949
2950                 collections.untrash = function(uuid)
2951                 {
2952                         endPoint <- stringr::str_interp("collections/${uuid}/untrash")
2953                         url <- paste0(private$host, endPoint)
2954                         headers <- list(Authorization = paste("OAuth2", private$token),
2955                                         "Content-Type" = "application/json")
2956                         queryArgs <- NULL
2957
2958                         body <- NULL
2959
2960                         response <- private$REST$http$exec("POST", url, headers, body,
2961                                                            queryArgs, private$numRetries)
2962                         resource <- private$REST$httpParser$parseJSONResponse(response)
2963
2964                         if(!is.null(resource$errors))
2965                                 stop(resource$errors)
2966
2967                         resource
2968                 },
2969
2970                 collections.list = function(filters = NULL,
2971                         where = NULL, order = NULL, select = NULL,
2972                         distinct = NULL, limit = "100", offset = "0",
2973                         count = "exact", include_trash = NULL)
2974                 {
2975                         endPoint <- stringr::str_interp("collections")
2976                         url <- paste0(private$host, endPoint)
2977                         headers <- list(Authorization = paste("OAuth2", private$token),
2978                                         "Content-Type" = "application/json")
2979                         queryArgs <- list(filters = filters, where = where,
2980                                                           order = order, select = select, distinct = distinct,
2981                                                           limit = limit, offset = offset, count = count,
2982                                                           include_trash = include_trash)
2983
2984                         body <- NULL
2985
2986                         response <- private$REST$http$exec("GET", url, headers, body,
2987                                                            queryArgs, private$numRetries)
2988                         resource <- private$REST$httpParser$parseJSONResponse(response)
2989
2990                         if(!is.null(resource$errors))
2991                                 stop(resource$errors)
2992
2993                         resource
2994                 },
2995
2996                 humans.get = function(uuid)
2997                 {
2998                         endPoint <- stringr::str_interp("humans/${uuid}")
2999                         url <- paste0(private$host, endPoint)
3000                         headers <- list(Authorization = paste("OAuth2", private$token),
3001                                         "Content-Type" = "application/json")
3002                         queryArgs <- NULL
3003
3004                         body <- NULL
3005
3006                         response <- private$REST$http$exec("GET", url, headers, body,
3007                                                            queryArgs, private$numRetries)
3008                         resource <- private$REST$httpParser$parseJSONResponse(response)
3009
3010                         if(!is.null(resource$errors))
3011                                 stop(resource$errors)
3012
3013                         resource
3014                 },
3015
3016                 humans.create = function(human, ensure_unique_name = "false")
3017                 {
3018                         endPoint <- stringr::str_interp("humans")
3019                         url <- paste0(private$host, endPoint)
3020                         headers <- list(Authorization = paste("OAuth2", private$token),
3021                                         "Content-Type" = "application/json")
3022                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
3023
3024                         if(length(human) > 0)
3025                                 body <- jsonlite::toJSON(list(human = human),
3026                                                          auto_unbox = TRUE)
3027                         else
3028                                 body <- NULL
3029
3030                         response <- private$REST$http$exec("POST", url, headers, body,
3031                                                            queryArgs, private$numRetries)
3032                         resource <- private$REST$httpParser$parseJSONResponse(response)
3033
3034                         if(!is.null(resource$errors))
3035                                 stop(resource$errors)
3036
3037                         resource
3038                 },
3039
3040                 humans.update = function(human, uuid)
3041                 {
3042                         endPoint <- stringr::str_interp("humans/${uuid}")
3043                         url <- paste0(private$host, endPoint)
3044                         headers <- list(Authorization = paste("OAuth2", private$token),
3045                                         "Content-Type" = "application/json")
3046                         queryArgs <- NULL
3047
3048                         if(length(human) > 0)
3049                                 body <- jsonlite::toJSON(list(human = human),
3050                                                          auto_unbox = TRUE)
3051                         else
3052                                 body <- NULL
3053
3054                         response <- private$REST$http$exec("PUT", url, headers, body,
3055                                                            queryArgs, private$numRetries)
3056                         resource <- private$REST$httpParser$parseJSONResponse(response)
3057
3058                         if(!is.null(resource$errors))
3059                                 stop(resource$errors)
3060
3061                         resource
3062                 },
3063
3064                 humans.delete = function(uuid)
3065                 {
3066                         endPoint <- stringr::str_interp("humans/${uuid}")
3067                         url <- paste0(private$host, endPoint)
3068                         headers <- list(Authorization = paste("OAuth2", private$token),
3069                                         "Content-Type" = "application/json")
3070                         queryArgs <- NULL
3071
3072                         body <- NULL
3073
3074                         response <- private$REST$http$exec("DELETE", url, headers, body,
3075                                                            queryArgs, private$numRetries)
3076                         resource <- private$REST$httpParser$parseJSONResponse(response)
3077
3078                         if(!is.null(resource$errors))
3079                                 stop(resource$errors)
3080
3081                         resource
3082                 },
3083
3084                 humans.list = function(filters = NULL, where = NULL,
3085                         order = NULL, select = NULL, distinct = NULL,
3086                         limit = "100", offset = "0", count = "exact")
3087                 {
3088                         endPoint <- stringr::str_interp("humans")
3089                         url <- paste0(private$host, endPoint)
3090                         headers <- list(Authorization = paste("OAuth2", private$token),
3091                                         "Content-Type" = "application/json")
3092                         queryArgs <- list(filters = filters, where = where,
3093                                                           order = order, select = select, distinct = distinct,
3094                                                           limit = limit, offset = offset, count = count)
3095
3096                         body <- NULL
3097
3098                         response <- private$REST$http$exec("GET", url, headers, body,
3099                                                            queryArgs, private$numRetries)
3100                         resource <- private$REST$httpParser$parseJSONResponse(response)
3101
3102                         if(!is.null(resource$errors))
3103                                 stop(resource$errors)
3104
3105                         resource
3106                 },
3107
3108                 job_tasks.get = function(uuid)
3109                 {
3110                         endPoint <- stringr::str_interp("job_tasks/${uuid}")
3111                         url <- paste0(private$host, endPoint)
3112                         headers <- list(Authorization = paste("OAuth2", private$token),
3113                                         "Content-Type" = "application/json")
3114                         queryArgs <- NULL
3115
3116                         body <- NULL
3117
3118                         response <- private$REST$http$exec("GET", url, headers, body,
3119                                                            queryArgs, private$numRetries)
3120                         resource <- private$REST$httpParser$parseJSONResponse(response)
3121
3122                         if(!is.null(resource$errors))
3123                                 stop(resource$errors)
3124
3125                         resource
3126                 },
3127
3128                 job_tasks.create = function(jobtask, ensure_unique_name = "false")
3129                 {
3130                         endPoint <- stringr::str_interp("job_tasks")
3131                         url <- paste0(private$host, endPoint)
3132                         headers <- list(Authorization = paste("OAuth2", private$token),
3133                                         "Content-Type" = "application/json")
3134                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
3135
3136                         if(length(jobtask) > 0)
3137                                 body <- jsonlite::toJSON(list(jobtask = jobtask),
3138                                                          auto_unbox = TRUE)
3139                         else
3140                                 body <- NULL
3141
3142                         response <- private$REST$http$exec("POST", url, headers, body,
3143                                                            queryArgs, private$numRetries)
3144                         resource <- private$REST$httpParser$parseJSONResponse(response)
3145
3146                         if(!is.null(resource$errors))
3147                                 stop(resource$errors)
3148
3149                         resource
3150                 },
3151
3152                 job_tasks.update = function(jobtask, uuid)
3153                 {
3154                         endPoint <- stringr::str_interp("job_tasks/${uuid}")
3155                         url <- paste0(private$host, endPoint)
3156                         headers <- list(Authorization = paste("OAuth2", private$token),
3157                                         "Content-Type" = "application/json")
3158                         queryArgs <- NULL
3159
3160                         if(length(jobtask) > 0)
3161                                 body <- jsonlite::toJSON(list(jobtask = jobtask),
3162                                                          auto_unbox = TRUE)
3163                         else
3164                                 body <- NULL
3165
3166                         response <- private$REST$http$exec("PUT", url, headers, body,
3167                                                            queryArgs, private$numRetries)
3168                         resource <- private$REST$httpParser$parseJSONResponse(response)
3169
3170                         if(!is.null(resource$errors))
3171                                 stop(resource$errors)
3172
3173                         resource
3174                 },
3175
3176                 job_tasks.delete = function(uuid)
3177                 {
3178                         endPoint <- stringr::str_interp("job_tasks/${uuid}")
3179                         url <- paste0(private$host, endPoint)
3180                         headers <- list(Authorization = paste("OAuth2", private$token),
3181                                         "Content-Type" = "application/json")
3182                         queryArgs <- NULL
3183
3184                         body <- NULL
3185
3186                         response <- private$REST$http$exec("DELETE", url, headers, body,
3187                                                            queryArgs, private$numRetries)
3188                         resource <- private$REST$httpParser$parseJSONResponse(response)
3189
3190                         if(!is.null(resource$errors))
3191                                 stop(resource$errors)
3192
3193                         resource
3194                 },
3195
3196                 job_tasks.list = function(filters = NULL,
3197                         where = NULL, order = NULL, select = NULL,
3198                         distinct = NULL, limit = "100", offset = "0",
3199                         count = "exact")
3200                 {
3201                         endPoint <- stringr::str_interp("job_tasks")
3202                         url <- paste0(private$host, endPoint)
3203                         headers <- list(Authorization = paste("OAuth2", private$token),
3204                                         "Content-Type" = "application/json")
3205                         queryArgs <- list(filters = filters, where = where,
3206                                                           order = order, select = select, distinct = distinct,
3207                                                           limit = limit, offset = offset, count = count)
3208
3209                         body <- NULL
3210
3211                         response <- private$REST$http$exec("GET", url, headers, body,
3212                                                            queryArgs, private$numRetries)
3213                         resource <- private$REST$httpParser$parseJSONResponse(response)
3214
3215                         if(!is.null(resource$errors))
3216                                 stop(resource$errors)
3217
3218                         resource
3219                 },
3220
3221                 links.get = function(uuid)
3222                 {
3223                         endPoint <- stringr::str_interp("links/${uuid}")
3224                         url <- paste0(private$host, endPoint)
3225                         headers <- list(Authorization = paste("OAuth2", private$token),
3226                                         "Content-Type" = "application/json")
3227                         queryArgs <- NULL
3228
3229                         body <- NULL
3230
3231                         response <- private$REST$http$exec("GET", url, headers, body,
3232                                                            queryArgs, private$numRetries)
3233                         resource <- private$REST$httpParser$parseJSONResponse(response)
3234
3235                         if(!is.null(resource$errors))
3236                                 stop(resource$errors)
3237
3238                         resource
3239                 },
3240
3241                 links.create = function(link, ensure_unique_name = "false")
3242                 {
3243                         endPoint <- stringr::str_interp("links")
3244                         url <- paste0(private$host, endPoint)
3245                         headers <- list(Authorization = paste("OAuth2", private$token),
3246                                         "Content-Type" = "application/json")
3247                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
3248
3249                         if(length(link) > 0)
3250                                 body <- jsonlite::toJSON(list(link = link),
3251                                                          auto_unbox = TRUE)
3252                         else
3253                                 body <- NULL
3254
3255                         response <- private$REST$http$exec("POST", url, headers, body,
3256                                                            queryArgs, private$numRetries)
3257                         resource <- private$REST$httpParser$parseJSONResponse(response)
3258
3259                         if(!is.null(resource$errors))
3260                                 stop(resource$errors)
3261
3262                         resource
3263                 },
3264
3265                 links.update = function(link, uuid)
3266                 {
3267                         endPoint <- stringr::str_interp("links/${uuid}")
3268                         url <- paste0(private$host, endPoint)
3269                         headers <- list(Authorization = paste("OAuth2", private$token),
3270                                         "Content-Type" = "application/json")
3271                         queryArgs <- NULL
3272
3273                         if(length(link) > 0)
3274                                 body <- jsonlite::toJSON(list(link = link),
3275                                                          auto_unbox = TRUE)
3276                         else
3277                                 body <- NULL
3278
3279                         response <- private$REST$http$exec("PUT", url, headers, body,
3280                                                            queryArgs, private$numRetries)
3281                         resource <- private$REST$httpParser$parseJSONResponse(response)
3282
3283                         if(!is.null(resource$errors))
3284                                 stop(resource$errors)
3285
3286                         resource
3287                 },
3288
3289                 links.delete = function(uuid)
3290                 {
3291                         endPoint <- stringr::str_interp("links/${uuid}")
3292                         url <- paste0(private$host, endPoint)
3293                         headers <- list(Authorization = paste("OAuth2", private$token),
3294                                         "Content-Type" = "application/json")
3295                         queryArgs <- NULL
3296
3297                         body <- NULL
3298
3299                         response <- private$REST$http$exec("DELETE", url, headers, body,
3300                                                            queryArgs, private$numRetries)
3301                         resource <- private$REST$httpParser$parseJSONResponse(response)
3302
3303                         if(!is.null(resource$errors))
3304                                 stop(resource$errors)
3305
3306                         resource
3307                 },
3308
3309                 links.list = function(filters = NULL, where = NULL,
3310                         order = NULL, select = NULL, distinct = NULL,
3311                         limit = "100", offset = "0", count = "exact")
3312                 {
3313                         endPoint <- stringr::str_interp("links")
3314                         url <- paste0(private$host, endPoint)
3315                         headers <- list(Authorization = paste("OAuth2", private$token),
3316                                         "Content-Type" = "application/json")
3317                         queryArgs <- list(filters = filters, where = where,
3318                                                           order = order, select = select, distinct = distinct,
3319                                                           limit = limit, offset = offset, count = count)
3320
3321                         body <- NULL
3322
3323                         response <- private$REST$http$exec("GET", url, headers, body,
3324                                                            queryArgs, private$numRetries)
3325                         resource <- private$REST$httpParser$parseJSONResponse(response)
3326
3327                         if(!is.null(resource$errors))
3328                                 stop(resource$errors)
3329
3330                         resource
3331                 },
3332
3333                 links.get_permissions = function(uuid)
3334                 {
3335                         endPoint <- stringr::str_interp("permissions/${uuid}")
3336                         url <- paste0(private$host, endPoint)
3337                         headers <- list(Authorization = paste("OAuth2", private$token),
3338                                         "Content-Type" = "application/json")
3339                         queryArgs <- NULL
3340
3341                         body <- NULL
3342
3343                         response <- private$REST$http$exec("GET", url, headers, body,
3344                                                            queryArgs, private$numRetries)
3345                         resource <- private$REST$httpParser$parseJSONResponse(response)
3346
3347                         if(!is.null(resource$errors))
3348                                 stop(resource$errors)
3349
3350                         resource
3351                 },
3352
3353                 jobs.get = function(uuid)
3354                 {
3355                         endPoint <- stringr::str_interp("jobs/${uuid}")
3356                         url <- paste0(private$host, endPoint)
3357                         headers <- list(Authorization = paste("OAuth2", private$token),
3358                                         "Content-Type" = "application/json")
3359                         queryArgs <- NULL
3360
3361                         body <- NULL
3362
3363                         response <- private$REST$http$exec("GET", url, headers, body,
3364                                                            queryArgs, private$numRetries)
3365                         resource <- private$REST$httpParser$parseJSONResponse(response)
3366
3367                         if(!is.null(resource$errors))
3368                                 stop(resource$errors)
3369
3370                         resource
3371                 },
3372
3373                 jobs.create = function(job, ensure_unique_name = "false",
3374                         find_or_create = "false", filters = NULL,
3375                         minimum_script_version = NULL, exclude_script_versions = NULL)
3376                 {
3377                         endPoint <- stringr::str_interp("jobs")
3378                         url <- paste0(private$host, endPoint)
3379                         headers <- list(Authorization = paste("OAuth2", private$token),
3380                                         "Content-Type" = "application/json")
3381                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
3382                                                           find_or_create = find_or_create, filters = filters,
3383                                                           minimum_script_version = minimum_script_version,
3384                                                           exclude_script_versions = exclude_script_versions)
3385
3386                         if(length(job) > 0)
3387                                 body <- jsonlite::toJSON(list(job = job),
3388                                                          auto_unbox = TRUE)
3389                         else
3390                                 body <- NULL
3391
3392                         response <- private$REST$http$exec("POST", url, headers, body,
3393                                                            queryArgs, private$numRetries)
3394                         resource <- private$REST$httpParser$parseJSONResponse(response)
3395
3396                         if(!is.null(resource$errors))
3397                                 stop(resource$errors)
3398
3399                         resource
3400                 },
3401
3402                 jobs.update = function(job, uuid)
3403                 {
3404                         endPoint <- stringr::str_interp("jobs/${uuid}")
3405                         url <- paste0(private$host, endPoint)
3406                         headers <- list(Authorization = paste("OAuth2", private$token),
3407                                         "Content-Type" = "application/json")
3408                         queryArgs <- NULL
3409
3410                         if(length(job) > 0)
3411                                 body <- jsonlite::toJSON(list(job = job),
3412                                                          auto_unbox = TRUE)
3413                         else
3414                                 body <- NULL
3415
3416                         response <- private$REST$http$exec("PUT", url, headers, body,
3417                                                            queryArgs, private$numRetries)
3418                         resource <- private$REST$httpParser$parseJSONResponse(response)
3419
3420                         if(!is.null(resource$errors))
3421                                 stop(resource$errors)
3422
3423                         resource
3424                 },
3425
3426                 jobs.delete = function(uuid)
3427                 {
3428                         endPoint <- stringr::str_interp("jobs/${uuid}")
3429                         url <- paste0(private$host, endPoint)
3430                         headers <- list(Authorization = paste("OAuth2", private$token),
3431                                         "Content-Type" = "application/json")
3432                         queryArgs <- NULL
3433
3434                         body <- NULL
3435
3436                         response <- private$REST$http$exec("DELETE", url, headers, body,
3437                                                            queryArgs, private$numRetries)
3438                         resource <- private$REST$httpParser$parseJSONResponse(response)
3439
3440                         if(!is.null(resource$errors))
3441                                 stop(resource$errors)
3442
3443                         resource
3444                 },
3445
3446                 jobs.queue = function(filters = NULL, where = NULL,
3447                         order = NULL, select = NULL, distinct = NULL,
3448                         limit = "100", offset = "0", count = "exact")
3449                 {
3450                         endPoint <- stringr::str_interp("jobs/queue")
3451                         url <- paste0(private$host, endPoint)
3452                         headers <- list(Authorization = paste("OAuth2", private$token),
3453                                         "Content-Type" = "application/json")
3454                         queryArgs <- list(filters = filters, where = where,
3455                                                           order = order, select = select, distinct = distinct,
3456                                                           limit = limit, offset = offset, count = count)
3457
3458                         body <- NULL
3459
3460                         response <- private$REST$http$exec("GET", url, headers, body,
3461                                                            queryArgs, private$numRetries)
3462                         resource <- private$REST$httpParser$parseJSONResponse(response)
3463
3464                         if(!is.null(resource$errors))
3465                                 stop(resource$errors)
3466
3467                         resource
3468                 },
3469
3470                 jobs.queue_size = function()
3471                 {
3472                         endPoint <- stringr::str_interp("jobs/queue_size")
3473                         url <- paste0(private$host, endPoint)
3474                         headers <- list(Authorization = paste("OAuth2", private$token),
3475                                         "Content-Type" = "application/json")
3476                         queryArgs <- NULL
3477
3478                         body <- NULL
3479
3480                         response <- private$REST$http$exec("GET", url, headers, body,
3481                                                            queryArgs, private$numRetries)
3482                         resource <- private$REST$httpParser$parseJSONResponse(response)
3483
3484                         if(!is.null(resource$errors))
3485                                 stop(resource$errors)
3486
3487                         resource
3488                 },
3489
3490                 jobs.cancel = function(uuid)
3491                 {
3492                         endPoint <- stringr::str_interp("jobs/${uuid}/cancel")
3493                         url <- paste0(private$host, endPoint)
3494                         headers <- list(Authorization = paste("OAuth2", private$token),
3495                                         "Content-Type" = "application/json")
3496                         queryArgs <- NULL
3497
3498                         body <- NULL
3499
3500                         response <- private$REST$http$exec("POST", url, headers, body,
3501                                                            queryArgs, private$numRetries)
3502                         resource <- private$REST$httpParser$parseJSONResponse(response)
3503
3504                         if(!is.null(resource$errors))
3505                                 stop(resource$errors)
3506
3507                         resource
3508                 },
3509
3510                 jobs.lock = function(uuid)
3511                 {
3512                         endPoint <- stringr::str_interp("jobs/${uuid}/lock")
3513                         url <- paste0(private$host, endPoint)
3514                         headers <- list(Authorization = paste("OAuth2", private$token),
3515                                         "Content-Type" = "application/json")
3516                         queryArgs <- NULL
3517
3518                         body <- NULL
3519
3520                         response <- private$REST$http$exec("POST", url, headers, body,
3521                                                            queryArgs, private$numRetries)
3522                         resource <- private$REST$httpParser$parseJSONResponse(response)
3523
3524                         if(!is.null(resource$errors))
3525                                 stop(resource$errors)
3526
3527                         resource
3528                 },
3529
3530                 jobs.list = function(filters = NULL, where = NULL,
3531                         order = NULL, select = NULL, distinct = NULL,
3532                         limit = "100", offset = "0", count = "exact")
3533                 {
3534                         endPoint <- stringr::str_interp("jobs")
3535                         url <- paste0(private$host, endPoint)
3536                         headers <- list(Authorization = paste("OAuth2", private$token),
3537                                         "Content-Type" = "application/json")
3538                         queryArgs <- list(filters = filters, where = where,
3539                                                           order = order, select = select, distinct = distinct,
3540                                                           limit = limit, offset = offset, count = count)
3541
3542                         body <- NULL
3543
3544                         response <- private$REST$http$exec("GET", url, headers, body,
3545                                                            queryArgs, private$numRetries)
3546                         resource <- private$REST$httpParser$parseJSONResponse(response)
3547
3548                         if(!is.null(resource$errors))
3549                                 stop(resource$errors)
3550
3551                         resource
3552                 },
3553
3554                 keep_disks.get = function(uuid)
3555                 {
3556                         endPoint <- stringr::str_interp("keep_disks/${uuid}")
3557                         url <- paste0(private$host, endPoint)
3558                         headers <- list(Authorization = paste("OAuth2", private$token),
3559                                         "Content-Type" = "application/json")
3560                         queryArgs <- NULL
3561
3562                         body <- NULL
3563
3564                         response <- private$REST$http$exec("GET", url, headers, body,
3565                                                            queryArgs, private$numRetries)
3566                         resource <- private$REST$httpParser$parseJSONResponse(response)
3567
3568                         if(!is.null(resource$errors))
3569                                 stop(resource$errors)
3570
3571                         resource
3572                 },
3573
3574                 keep_disks.create = function(keepdisk, ensure_unique_name = "false")
3575                 {
3576                         endPoint <- stringr::str_interp("keep_disks")
3577                         url <- paste0(private$host, endPoint)
3578                         headers <- list(Authorization = paste("OAuth2", private$token),
3579                                         "Content-Type" = "application/json")
3580                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
3581
3582                         if(length(keepdisk) > 0)
3583                                 body <- jsonlite::toJSON(list(keepdisk = keepdisk),
3584                                                          auto_unbox = TRUE)
3585                         else
3586                                 body <- NULL
3587
3588                         response <- private$REST$http$exec("POST", url, headers, body,
3589                                                            queryArgs, private$numRetries)
3590                         resource <- private$REST$httpParser$parseJSONResponse(response)
3591
3592                         if(!is.null(resource$errors))
3593                                 stop(resource$errors)
3594
3595                         resource
3596                 },
3597
3598                 keep_disks.update = function(keepdisk, uuid)
3599                 {
3600                         endPoint <- stringr::str_interp("keep_disks/${uuid}")
3601                         url <- paste0(private$host, endPoint)
3602                         headers <- list(Authorization = paste("OAuth2", private$token),
3603                                         "Content-Type" = "application/json")
3604                         queryArgs <- NULL
3605
3606                         if(length(keepdisk) > 0)
3607                                 body <- jsonlite::toJSON(list(keepdisk = keepdisk),
3608                                                          auto_unbox = TRUE)
3609                         else
3610                                 body <- NULL
3611
3612                         response <- private$REST$http$exec("PUT", url, headers, body,
3613                                                            queryArgs, private$numRetries)
3614                         resource <- private$REST$httpParser$parseJSONResponse(response)
3615
3616                         if(!is.null(resource$errors))
3617                                 stop(resource$errors)
3618
3619                         resource
3620                 },
3621
3622                 keep_disks.delete = function(uuid)
3623                 {
3624                         endPoint <- stringr::str_interp("keep_disks/${uuid}")
3625                         url <- paste0(private$host, endPoint)
3626                         headers <- list(Authorization = paste("OAuth2", private$token),
3627                                         "Content-Type" = "application/json")
3628                         queryArgs <- NULL
3629
3630                         body <- NULL
3631
3632                         response <- private$REST$http$exec("DELETE", url, headers, body,
3633                                                            queryArgs, private$numRetries)
3634                         resource <- private$REST$httpParser$parseJSONResponse(response)
3635
3636                         if(!is.null(resource$errors))
3637                                 stop(resource$errors)
3638
3639                         resource
3640                 },
3641
3642                 keep_disks.ping = function(uuid = NULL, ping_secret,
3643                         node_uuid = NULL, filesystem_uuid = NULL,
3644                         service_host = NULL, service_port, service_ssl_flag)
3645                 {
3646                         endPoint <- stringr::str_interp("keep_disks/ping")
3647                         url <- paste0(private$host, endPoint)
3648                         headers <- list(Authorization = paste("OAuth2", private$token),
3649                                         "Content-Type" = "application/json")
3650                         queryArgs <- list(uuid = uuid, ping_secret = ping_secret,
3651                                                           node_uuid = node_uuid, filesystem_uuid = filesystem_uuid,
3652                                                           service_host = service_host, service_port = service_port,
3653                                                           service_ssl_flag = service_ssl_flag)
3654
3655                         body <- NULL
3656
3657                         response <- private$REST$http$exec("POST", url, headers, body,
3658                                                            queryArgs, private$numRetries)
3659                         resource <- private$REST$httpParser$parseJSONResponse(response)
3660
3661                         if(!is.null(resource$errors))
3662                                 stop(resource$errors)
3663
3664                         resource
3665                 },
3666
3667                 keep_disks.list = function(filters = NULL,
3668                         where = NULL, order = NULL, select = NULL,
3669                         distinct = NULL, limit = "100", offset = "0",
3670                         count = "exact")
3671                 {
3672                         endPoint <- stringr::str_interp("keep_disks")
3673                         url <- paste0(private$host, endPoint)
3674                         headers <- list(Authorization = paste("OAuth2", private$token),
3675                                         "Content-Type" = "application/json")
3676                         queryArgs <- list(filters = filters, where = where,
3677                                                           order = order, select = select, distinct = distinct,
3678                                                           limit = limit, offset = offset, count = count)
3679
3680                         body <- NULL
3681
3682                         response <- private$REST$http$exec("GET", url, headers, body,
3683                                                            queryArgs, private$numRetries)
3684                         resource <- private$REST$httpParser$parseJSONResponse(response)
3685
3686                         if(!is.null(resource$errors))
3687                                 stop(resource$errors)
3688
3689                         resource
3690                 },
3691
3692                 keep_services.get = function(uuid)
3693                 {
3694                         endPoint <- stringr::str_interp("keep_services/${uuid}")
3695                         url <- paste0(private$host, endPoint)
3696                         headers <- list(Authorization = paste("OAuth2", private$token),
3697                                         "Content-Type" = "application/json")
3698                         queryArgs <- NULL
3699
3700                         body <- NULL
3701
3702                         response <- private$REST$http$exec("GET", url, headers, body,
3703                                                            queryArgs, private$numRetries)
3704                         resource <- private$REST$httpParser$parseJSONResponse(response)
3705
3706                         if(!is.null(resource$errors))
3707                                 stop(resource$errors)
3708
3709                         resource
3710                 },
3711
3712                 keep_services.create = function(keepservice,
3713                         ensure_unique_name = "false")
3714                 {
3715                         endPoint <- stringr::str_interp("keep_services")
3716                         url <- paste0(private$host, endPoint)
3717                         headers <- list(Authorization = paste("OAuth2", private$token),
3718                                         "Content-Type" = "application/json")
3719                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
3720
3721                         if(length(keepservice) > 0)
3722                                 body <- jsonlite::toJSON(list(keepservice = keepservice),
3723                                                          auto_unbox = TRUE)
3724                         else
3725                                 body <- NULL
3726
3727                         response <- private$REST$http$exec("POST", url, headers, body,
3728                                                            queryArgs, private$numRetries)
3729                         resource <- private$REST$httpParser$parseJSONResponse(response)
3730
3731                         if(!is.null(resource$errors))
3732                                 stop(resource$errors)
3733
3734                         resource
3735                 },
3736
3737                 keep_services.update = function(keepservice, uuid)
3738                 {
3739                         endPoint <- stringr::str_interp("keep_services/${uuid}")
3740                         url <- paste0(private$host, endPoint)
3741                         headers <- list(Authorization = paste("OAuth2", private$token),
3742                                         "Content-Type" = "application/json")
3743                         queryArgs <- NULL
3744
3745                         if(length(keepservice) > 0)
3746                                 body <- jsonlite::toJSON(list(keepservice = keepservice),
3747                                                          auto_unbox = TRUE)
3748                         else
3749                                 body <- NULL
3750
3751                         response <- private$REST$http$exec("PUT", url, headers, body,
3752                                                            queryArgs, private$numRetries)
3753                         resource <- private$REST$httpParser$parseJSONResponse(response)
3754
3755                         if(!is.null(resource$errors))
3756                                 stop(resource$errors)
3757
3758                         resource
3759                 },
3760
3761                 keep_services.delete = function(uuid)
3762                 {
3763                         endPoint <- stringr::str_interp("keep_services/${uuid}")
3764                         url <- paste0(private$host, endPoint)
3765                         headers <- list(Authorization = paste("OAuth2", private$token),
3766                                         "Content-Type" = "application/json")
3767                         queryArgs <- NULL
3768
3769                         body <- NULL
3770
3771                         response <- private$REST$http$exec("DELETE", url, headers, body,
3772                                                            queryArgs, private$numRetries)
3773                         resource <- private$REST$httpParser$parseJSONResponse(response)
3774
3775                         if(!is.null(resource$errors))
3776                                 stop(resource$errors)
3777
3778                         resource
3779                 },
3780
3781                 keep_services.accessible = function()
3782                 {
3783                         endPoint <- stringr::str_interp("keep_services/accessible")
3784                         url <- paste0(private$host, endPoint)
3785                         headers <- list(Authorization = paste("OAuth2", private$token),
3786                                         "Content-Type" = "application/json")
3787                         queryArgs <- NULL
3788
3789                         body <- NULL
3790
3791                         response <- private$REST$http$exec("GET", url, headers, body,
3792                                                            queryArgs, private$numRetries)
3793                         resource <- private$REST$httpParser$parseJSONResponse(response)
3794
3795                         if(!is.null(resource$errors))
3796                                 stop(resource$errors)
3797
3798                         resource
3799                 },
3800
3801                 keep_services.list = function(filters = NULL,
3802                         where = NULL, order = NULL, select = NULL,
3803                         distinct = NULL, limit = "100", offset = "0",
3804                         count = "exact")
3805                 {
3806                         endPoint <- stringr::str_interp("keep_services")
3807                         url <- paste0(private$host, endPoint)
3808                         headers <- list(Authorization = paste("OAuth2", private$token),
3809                                         "Content-Type" = "application/json")
3810                         queryArgs <- list(filters = filters, where = where,
3811                                                           order = order, select = select, distinct = distinct,
3812                                                           limit = limit, offset = offset, count = count)
3813
3814                         body <- NULL
3815
3816                         response <- private$REST$http$exec("GET", url, headers, body,
3817                                                            queryArgs, private$numRetries)
3818                         resource <- private$REST$httpParser$parseJSONResponse(response)
3819
3820                         if(!is.null(resource$errors))
3821                                 stop(resource$errors)
3822
3823                         resource
3824                 },
3825
3826                 pipeline_templates.get = function(uuid)
3827                 {
3828                         endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
3829                         url <- paste0(private$host, endPoint)
3830                         headers <- list(Authorization = paste("OAuth2", private$token),
3831                                         "Content-Type" = "application/json")
3832                         queryArgs <- NULL
3833
3834                         body <- NULL
3835
3836                         response <- private$REST$http$exec("GET", url, headers, body,
3837                                                            queryArgs, private$numRetries)
3838                         resource <- private$REST$httpParser$parseJSONResponse(response)
3839
3840                         if(!is.null(resource$errors))
3841                                 stop(resource$errors)
3842
3843                         resource
3844                 },
3845
3846                 pipeline_templates.create = function(pipelinetemplate,
3847                         ensure_unique_name = "false")
3848                 {
3849                         endPoint <- stringr::str_interp("pipeline_templates")
3850                         url <- paste0(private$host, endPoint)
3851                         headers <- list(Authorization = paste("OAuth2", private$token),
3852                                         "Content-Type" = "application/json")
3853                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
3854
3855                         if(length(pipelinetemplate) > 0)
3856                                 body <- jsonlite::toJSON(list(pipelinetemplate = pipelinetemplate),
3857                                                          auto_unbox = TRUE)
3858                         else
3859                                 body <- NULL
3860
3861                         response <- private$REST$http$exec("POST", url, headers, body,
3862                                                            queryArgs, private$numRetries)
3863                         resource <- private$REST$httpParser$parseJSONResponse(response)
3864
3865                         if(!is.null(resource$errors))
3866                                 stop(resource$errors)
3867
3868                         resource
3869                 },
3870
3871                 pipeline_templates.update = function(pipelinetemplate, uuid)
3872                 {
3873                         endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
3874                         url <- paste0(private$host, endPoint)
3875                         headers <- list(Authorization = paste("OAuth2", private$token),
3876                                         "Content-Type" = "application/json")
3877                         queryArgs <- NULL
3878
3879                         if(length(pipelinetemplate) > 0)
3880                                 body <- jsonlite::toJSON(list(pipelinetemplate = pipelinetemplate),
3881                                                          auto_unbox = TRUE)
3882                         else
3883                                 body <- NULL
3884
3885                         response <- private$REST$http$exec("PUT", url, headers, body,
3886                                                            queryArgs, private$numRetries)
3887                         resource <- private$REST$httpParser$parseJSONResponse(response)
3888
3889                         if(!is.null(resource$errors))
3890                                 stop(resource$errors)
3891
3892                         resource
3893                 },
3894
3895                 pipeline_templates.delete = function(uuid)
3896                 {
3897                         endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
3898                         url <- paste0(private$host, endPoint)
3899                         headers <- list(Authorization = paste("OAuth2", private$token),
3900                                         "Content-Type" = "application/json")
3901                         queryArgs <- NULL
3902
3903                         body <- NULL
3904
3905                         response <- private$REST$http$exec("DELETE", url, headers, body,
3906                                                            queryArgs, private$numRetries)
3907                         resource <- private$REST$httpParser$parseJSONResponse(response)
3908
3909                         if(!is.null(resource$errors))
3910                                 stop(resource$errors)
3911
3912                         resource
3913                 },
3914
3915                 pipeline_templates.list = function(filters = NULL,
3916                         where = NULL, order = NULL, select = NULL,
3917                         distinct = NULL, limit = "100", offset = "0",
3918                         count = "exact")
3919                 {
3920                         endPoint <- stringr::str_interp("pipeline_templates")
3921                         url <- paste0(private$host, endPoint)
3922                         headers <- list(Authorization = paste("OAuth2", private$token),
3923                                         "Content-Type" = "application/json")
3924                         queryArgs <- list(filters = filters, where = where,
3925                                                           order = order, select = select, distinct = distinct,
3926                                                           limit = limit, offset = offset, count = count)
3927
3928                         body <- NULL
3929
3930                         response <- private$REST$http$exec("GET", url, headers, body,
3931                                                            queryArgs, private$numRetries)
3932                         resource <- private$REST$httpParser$parseJSONResponse(response)
3933
3934                         if(!is.null(resource$errors))
3935                                 stop(resource$errors)
3936
3937                         resource
3938                 },
3939
3940                 pipeline_instances.get = function(uuid)
3941                 {
3942                         endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
3943                         url <- paste0(private$host, endPoint)
3944                         headers <- list(Authorization = paste("OAuth2", private$token),
3945                                         "Content-Type" = "application/json")
3946                         queryArgs <- NULL
3947
3948                         body <- NULL
3949
3950                         response <- private$REST$http$exec("GET", url, headers, body,
3951                                                            queryArgs, private$numRetries)
3952                         resource <- private$REST$httpParser$parseJSONResponse(response)
3953
3954                         if(!is.null(resource$errors))
3955                                 stop(resource$errors)
3956
3957                         resource
3958                 },
3959
3960                 pipeline_instances.create = function(pipelineinstance,
3961                         ensure_unique_name = "false")
3962                 {
3963                         endPoint <- stringr::str_interp("pipeline_instances")
3964                         url <- paste0(private$host, endPoint)
3965                         headers <- list(Authorization = paste("OAuth2", private$token),
3966                                         "Content-Type" = "application/json")
3967                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
3968
3969                         if(length(pipelineinstance) > 0)
3970                                 body <- jsonlite::toJSON(list(pipelineinstance = pipelineinstance),
3971                                                          auto_unbox = TRUE)
3972                         else
3973                                 body <- NULL
3974
3975                         response <- private$REST$http$exec("POST", url, headers, body,
3976                                                            queryArgs, private$numRetries)
3977                         resource <- private$REST$httpParser$parseJSONResponse(response)
3978
3979                         if(!is.null(resource$errors))
3980                                 stop(resource$errors)
3981
3982                         resource
3983                 },
3984
3985                 pipeline_instances.update = function(pipelineinstance, uuid)
3986                 {
3987                         endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
3988                         url <- paste0(private$host, endPoint)
3989                         headers <- list(Authorization = paste("OAuth2", private$token),
3990                                         "Content-Type" = "application/json")
3991                         queryArgs <- NULL
3992
3993                         if(length(pipelineinstance) > 0)
3994                                 body <- jsonlite::toJSON(list(pipelineinstance = pipelineinstance),
3995                                                          auto_unbox = TRUE)
3996                         else
3997                                 body <- NULL
3998
3999                         response <- private$REST$http$exec("PUT", url, headers, body,
4000                                                            queryArgs, private$numRetries)
4001                         resource <- private$REST$httpParser$parseJSONResponse(response)
4002
4003                         if(!is.null(resource$errors))
4004                                 stop(resource$errors)
4005
4006                         resource
4007                 },
4008
4009                 pipeline_instances.delete = function(uuid)
4010                 {
4011                         endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
4012                         url <- paste0(private$host, endPoint)
4013                         headers <- list(Authorization = paste("OAuth2", private$token),
4014                                         "Content-Type" = "application/json")
4015                         queryArgs <- NULL
4016
4017                         body <- NULL
4018
4019                         response <- private$REST$http$exec("DELETE", url, headers, body,
4020                                                            queryArgs, private$numRetries)
4021                         resource <- private$REST$httpParser$parseJSONResponse(response)
4022
4023                         if(!is.null(resource$errors))
4024                                 stop(resource$errors)
4025
4026                         resource
4027                 },
4028
4029                 pipeline_instances.cancel = function(uuid)
4030                 {
4031                         endPoint <- stringr::str_interp("pipeline_instances/${uuid}/cancel")
4032                         url <- paste0(private$host, endPoint)
4033                         headers <- list(Authorization = paste("OAuth2", private$token),
4034                                         "Content-Type" = "application/json")
4035                         queryArgs <- NULL
4036
4037                         body <- NULL
4038
4039                         response <- private$REST$http$exec("POST", url, headers, body,
4040                                                            queryArgs, private$numRetries)
4041                         resource <- private$REST$httpParser$parseJSONResponse(response)
4042
4043                         if(!is.null(resource$errors))
4044                                 stop(resource$errors)
4045
4046                         resource
4047                 },
4048
4049                 pipeline_instances.list = function(filters = NULL,
4050                         where = NULL, order = NULL, select = NULL,
4051                         distinct = NULL, limit = "100", offset = "0",
4052                         count = "exact")
4053                 {
4054                         endPoint <- stringr::str_interp("pipeline_instances")
4055                         url <- paste0(private$host, endPoint)
4056                         headers <- list(Authorization = paste("OAuth2", private$token),
4057                                         "Content-Type" = "application/json")
4058                         queryArgs <- list(filters = filters, where = where,
4059                                                           order = order, select = select, distinct = distinct,
4060                                                           limit = limit, offset = offset, count = count)
4061
4062                         body <- NULL
4063
4064                         response <- private$REST$http$exec("GET", url, headers, body,
4065                                                            queryArgs, private$numRetries)
4066                         resource <- private$REST$httpParser$parseJSONResponse(response)
4067
4068                         if(!is.null(resource$errors))
4069                                 stop(resource$errors)
4070
4071                         resource
4072                 },
4073
4074                 nodes.get = function(uuid)
4075                 {
4076                         endPoint <- stringr::str_interp("nodes/${uuid}")
4077                         url <- paste0(private$host, endPoint)
4078                         headers <- list(Authorization = paste("OAuth2", private$token),
4079                                         "Content-Type" = "application/json")
4080                         queryArgs <- NULL
4081
4082                         body <- NULL
4083
4084                         response <- private$REST$http$exec("GET", url, headers, body,
4085                                                            queryArgs, private$numRetries)
4086                         resource <- private$REST$httpParser$parseJSONResponse(response)
4087
4088                         if(!is.null(resource$errors))
4089                                 stop(resource$errors)
4090
4091                         resource
4092                 },
4093
4094                 nodes.create = function(node, ensure_unique_name = "false",
4095                         assign_slot = NULL)
4096                 {
4097                         endPoint <- stringr::str_interp("nodes")
4098                         url <- paste0(private$host, endPoint)
4099                         headers <- list(Authorization = paste("OAuth2", private$token),
4100                                         "Content-Type" = "application/json")
4101                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
4102                                                           assign_slot = assign_slot)
4103
4104                         if(length(node) > 0)
4105                                 body <- jsonlite::toJSON(list(node = node),
4106                                                          auto_unbox = TRUE)
4107                         else
4108                                 body <- NULL
4109
4110                         response <- private$REST$http$exec("POST", url, headers, body,
4111                                                            queryArgs, private$numRetries)
4112                         resource <- private$REST$httpParser$parseJSONResponse(response)
4113
4114                         if(!is.null(resource$errors))
4115                                 stop(resource$errors)
4116
4117                         resource
4118                 },
4119
4120                 nodes.update = function(node, uuid, assign_slot = NULL)
4121                 {
4122                         endPoint <- stringr::str_interp("nodes/${uuid}")
4123                         url <- paste0(private$host, endPoint)
4124                         headers <- list(Authorization = paste("OAuth2", private$token),
4125                                         "Content-Type" = "application/json")
4126                         queryArgs <- list(assign_slot = assign_slot)
4127
4128                         if(length(node) > 0)
4129                                 body <- jsonlite::toJSON(list(node = node),
4130                                                          auto_unbox = TRUE)
4131                         else
4132                                 body <- NULL
4133
4134                         response <- private$REST$http$exec("PUT", url, headers, body,
4135                                                            queryArgs, private$numRetries)
4136                         resource <- private$REST$httpParser$parseJSONResponse(response)
4137
4138                         if(!is.null(resource$errors))
4139                                 stop(resource$errors)
4140
4141                         resource
4142                 },
4143
4144                 nodes.delete = function(uuid)
4145                 {
4146                         endPoint <- stringr::str_interp("nodes/${uuid}")
4147                         url <- paste0(private$host, endPoint)
4148                         headers <- list(Authorization = paste("OAuth2", private$token),
4149                                         "Content-Type" = "application/json")
4150                         queryArgs <- NULL
4151
4152                         body <- NULL
4153
4154                         response <- private$REST$http$exec("DELETE", url, headers, body,
4155                                                            queryArgs, private$numRetries)
4156                         resource <- private$REST$httpParser$parseJSONResponse(response)
4157
4158                         if(!is.null(resource$errors))
4159                                 stop(resource$errors)
4160
4161                         resource
4162                 },
4163
4164                 nodes.ping = function(uuid, ping_secret)
4165                 {
4166                         endPoint <- stringr::str_interp("nodes/${uuid}/ping")
4167                         url <- paste0(private$host, endPoint)
4168                         headers <- list(Authorization = paste("OAuth2", private$token),
4169                                         "Content-Type" = "application/json")
4170                         queryArgs <- list(ping_secret = ping_secret)
4171
4172                         body <- NULL
4173
4174                         response <- private$REST$http$exec("POST", url, headers, body,
4175                                                            queryArgs, private$numRetries)
4176                         resource <- private$REST$httpParser$parseJSONResponse(response)
4177
4178                         if(!is.null(resource$errors))
4179                                 stop(resource$errors)
4180
4181                         resource
4182                 },
4183
4184                 nodes.list = function(filters = NULL, where = NULL,
4185                         order = NULL, select = NULL, distinct = NULL,
4186                         limit = "100", offset = "0", count = "exact")
4187                 {
4188                         endPoint <- stringr::str_interp("nodes")
4189                         url <- paste0(private$host, endPoint)
4190                         headers <- list(Authorization = paste("OAuth2", private$token),
4191                                         "Content-Type" = "application/json")
4192                         queryArgs <- list(filters = filters, where = where,
4193                                                           order = order, select = select, distinct = distinct,
4194                                                           limit = limit, offset = offset, count = count)
4195
4196                         body <- NULL
4197
4198                         response <- private$REST$http$exec("GET", url, headers, body,
4199                                                            queryArgs, private$numRetries)
4200                         resource <- private$REST$httpParser$parseJSONResponse(response)
4201
4202                         if(!is.null(resource$errors))
4203                                 stop(resource$errors)
4204
4205                         resource
4206                 },
4207
4208                 repositories.get = function(uuid)
4209                 {
4210                         endPoint <- stringr::str_interp("repositories/${uuid}")
4211                         url <- paste0(private$host, endPoint)
4212                         headers <- list(Authorization = paste("OAuth2", private$token),
4213                                         "Content-Type" = "application/json")
4214                         queryArgs <- NULL
4215
4216                         body <- NULL
4217
4218                         response <- private$REST$http$exec("GET", url, headers, body,
4219                                                            queryArgs, private$numRetries)
4220                         resource <- private$REST$httpParser$parseJSONResponse(response)
4221
4222                         if(!is.null(resource$errors))
4223                                 stop(resource$errors)
4224
4225                         resource
4226                 },
4227
4228                 repositories.create = function(repository, ensure_unique_name = "false")
4229                 {
4230                         endPoint <- stringr::str_interp("repositories")
4231                         url <- paste0(private$host, endPoint)
4232                         headers <- list(Authorization = paste("OAuth2", private$token),
4233                                         "Content-Type" = "application/json")
4234                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
4235
4236                         if(length(repository) > 0)
4237                                 body <- jsonlite::toJSON(list(repository = repository),
4238                                                          auto_unbox = TRUE)
4239                         else
4240                                 body <- NULL
4241
4242                         response <- private$REST$http$exec("POST", url, headers, body,
4243                                                            queryArgs, private$numRetries)
4244                         resource <- private$REST$httpParser$parseJSONResponse(response)
4245
4246                         if(!is.null(resource$errors))
4247                                 stop(resource$errors)
4248
4249                         resource
4250                 },
4251
4252                 repositories.update = function(repository, uuid)
4253                 {
4254                         endPoint <- stringr::str_interp("repositories/${uuid}")
4255                         url <- paste0(private$host, endPoint)
4256                         headers <- list(Authorization = paste("OAuth2", private$token),
4257                                         "Content-Type" = "application/json")
4258                         queryArgs <- NULL
4259
4260                         if(length(repository) > 0)
4261                                 body <- jsonlite::toJSON(list(repository = repository),
4262                                                          auto_unbox = TRUE)
4263                         else
4264                                 body <- NULL
4265
4266                         response <- private$REST$http$exec("PUT", 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                 repositories.delete = function(uuid)
4277                 {
4278                         endPoint <- stringr::str_interp("repositories/${uuid}")
4279                         url <- paste0(private$host, endPoint)
4280                         headers <- list(Authorization = paste("OAuth2", private$token),
4281                                         "Content-Type" = "application/json")
4282                         queryArgs <- NULL
4283
4284                         body <- NULL
4285
4286                         response <- private$REST$http$exec("DELETE", url, headers, body,
4287                                                            queryArgs, private$numRetries)
4288                         resource <- private$REST$httpParser$parseJSONResponse(response)
4289
4290                         if(!is.null(resource$errors))
4291                                 stop(resource$errors)
4292
4293                         resource
4294                 },
4295
4296                 repositories.get_all_permissions = function()
4297                 {
4298                         endPoint <- stringr::str_interp("repositories/get_all_permissions")
4299                         url <- paste0(private$host, endPoint)
4300                         headers <- list(Authorization = paste("OAuth2", private$token),
4301                                         "Content-Type" = "application/json")
4302                         queryArgs <- NULL
4303
4304                         body <- NULL
4305
4306                         response <- private$REST$http$exec("GET", url, headers, body,
4307                                                            queryArgs, private$numRetries)
4308                         resource <- private$REST$httpParser$parseJSONResponse(response)
4309
4310                         if(!is.null(resource$errors))
4311                                 stop(resource$errors)
4312
4313                         resource
4314                 },
4315
4316                 repositories.list = function(filters = NULL,
4317                         where = NULL, order = NULL, select = NULL,
4318                         distinct = NULL, limit = "100", offset = "0",
4319                         count = "exact")
4320                 {
4321                         endPoint <- stringr::str_interp("repositories")
4322                         url <- paste0(private$host, endPoint)
4323                         headers <- list(Authorization = paste("OAuth2", private$token),
4324                                         "Content-Type" = "application/json")
4325                         queryArgs <- list(filters = filters, where = where,
4326                                                           order = order, select = select, distinct = distinct,
4327                                                           limit = limit, offset = offset, count = count)
4328
4329                         body <- NULL
4330
4331                         response <- private$REST$http$exec("GET", url, headers, body,
4332                                                            queryArgs, private$numRetries)
4333                         resource <- private$REST$httpParser$parseJSONResponse(response)
4334
4335                         if(!is.null(resource$errors))
4336                                 stop(resource$errors)
4337
4338                         resource
4339                 },
4340
4341                 specimens.get = function(uuid)
4342                 {
4343                         endPoint <- stringr::str_interp("specimens/${uuid}")
4344                         url <- paste0(private$host, endPoint)
4345                         headers <- list(Authorization = paste("OAuth2", private$token),
4346                                         "Content-Type" = "application/json")
4347                         queryArgs <- NULL
4348
4349                         body <- NULL
4350
4351                         response <- private$REST$http$exec("GET", url, headers, body,
4352                                                            queryArgs, private$numRetries)
4353                         resource <- private$REST$httpParser$parseJSONResponse(response)
4354
4355                         if(!is.null(resource$errors))
4356                                 stop(resource$errors)
4357
4358                         resource
4359                 },
4360
4361                 specimens.create = function(specimen, ensure_unique_name = "false")
4362                 {
4363                         endPoint <- stringr::str_interp("specimens")
4364                         url <- paste0(private$host, endPoint)
4365                         headers <- list(Authorization = paste("OAuth2", private$token),
4366                                         "Content-Type" = "application/json")
4367                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
4368
4369                         if(length(specimen) > 0)
4370                                 body <- jsonlite::toJSON(list(specimen = specimen),
4371                                                          auto_unbox = TRUE)
4372                         else
4373                                 body <- NULL
4374
4375                         response <- private$REST$http$exec("POST", url, headers, body,
4376                                                            queryArgs, private$numRetries)
4377                         resource <- private$REST$httpParser$parseJSONResponse(response)
4378
4379                         if(!is.null(resource$errors))
4380                                 stop(resource$errors)
4381
4382                         resource
4383                 },
4384
4385                 specimens.update = function(specimen, uuid)
4386                 {
4387                         endPoint <- stringr::str_interp("specimens/${uuid}")
4388                         url <- paste0(private$host, endPoint)
4389                         headers <- list(Authorization = paste("OAuth2", private$token),
4390                                         "Content-Type" = "application/json")
4391                         queryArgs <- NULL
4392
4393                         if(length(specimen) > 0)
4394                                 body <- jsonlite::toJSON(list(specimen = specimen),
4395                                                          auto_unbox = TRUE)
4396                         else
4397                                 body <- NULL
4398
4399                         response <- private$REST$http$exec("PUT", url, headers, body,
4400                                                            queryArgs, private$numRetries)
4401                         resource <- private$REST$httpParser$parseJSONResponse(response)
4402
4403                         if(!is.null(resource$errors))
4404                                 stop(resource$errors)
4405
4406                         resource
4407                 },
4408
4409                 specimens.delete = function(uuid)
4410                 {
4411                         endPoint <- stringr::str_interp("specimens/${uuid}")
4412                         url <- paste0(private$host, endPoint)
4413                         headers <- list(Authorization = paste("OAuth2", private$token),
4414                                         "Content-Type" = "application/json")
4415                         queryArgs <- NULL
4416
4417                         body <- NULL
4418
4419                         response <- private$REST$http$exec("DELETE", url, headers, body,
4420                                                            queryArgs, private$numRetries)
4421                         resource <- private$REST$httpParser$parseJSONResponse(response)
4422
4423                         if(!is.null(resource$errors))
4424                                 stop(resource$errors)
4425
4426                         resource
4427                 },
4428
4429                 specimens.list = function(filters = NULL,
4430                         where = NULL, order = NULL, select = NULL,
4431                         distinct = NULL, limit = "100", offset = "0",
4432                         count = "exact")
4433                 {
4434                         endPoint <- stringr::str_interp("specimens")
4435                         url <- paste0(private$host, endPoint)
4436                         headers <- list(Authorization = paste("OAuth2", private$token),
4437                                         "Content-Type" = "application/json")
4438                         queryArgs <- list(filters = filters, where = where,
4439                                                           order = order, select = select, distinct = distinct,
4440                                                           limit = limit, offset = offset, count = count)
4441
4442                         body <- NULL
4443
4444                         response <- private$REST$http$exec("GET", url, headers, body,
4445                                                            queryArgs, private$numRetries)
4446                         resource <- private$REST$httpParser$parseJSONResponse(response)
4447
4448                         if(!is.null(resource$errors))
4449                                 stop(resource$errors)
4450
4451                         resource
4452                 },
4453
4454                 logs.get = function(uuid)
4455                 {
4456                         endPoint <- stringr::str_interp("logs/${uuid}")
4457                         url <- paste0(private$host, endPoint)
4458                         headers <- list(Authorization = paste("OAuth2", private$token),
4459                                         "Content-Type" = "application/json")
4460                         queryArgs <- NULL
4461
4462                         body <- NULL
4463
4464                         response <- private$REST$http$exec("GET", url, headers, body,
4465                                                            queryArgs, private$numRetries)
4466                         resource <- private$REST$httpParser$parseJSONResponse(response)
4467
4468                         if(!is.null(resource$errors))
4469                                 stop(resource$errors)
4470
4471                         resource
4472                 },
4473
4474                 logs.create = function(log, ensure_unique_name = "false")
4475                 {
4476                         endPoint <- stringr::str_interp("logs")
4477                         url <- paste0(private$host, endPoint)
4478                         headers <- list(Authorization = paste("OAuth2", private$token),
4479                                         "Content-Type" = "application/json")
4480                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
4481
4482                         if(length(log) > 0)
4483                                 body <- jsonlite::toJSON(list(log = log),
4484                                                          auto_unbox = TRUE)
4485                         else
4486                                 body <- NULL
4487
4488                         response <- private$REST$http$exec("POST", url, headers, body,
4489                                                            queryArgs, private$numRetries)
4490                         resource <- private$REST$httpParser$parseJSONResponse(response)
4491
4492                         if(!is.null(resource$errors))
4493                                 stop(resource$errors)
4494
4495                         resource
4496                 },
4497
4498                 logs.update = function(log, uuid)
4499                 {
4500                         endPoint <- stringr::str_interp("logs/${uuid}")
4501                         url <- paste0(private$host, endPoint)
4502                         headers <- list(Authorization = paste("OAuth2", private$token),
4503                                         "Content-Type" = "application/json")
4504                         queryArgs <- NULL
4505
4506                         if(length(log) > 0)
4507                                 body <- jsonlite::toJSON(list(log = log),
4508                                                          auto_unbox = TRUE)
4509                         else
4510                                 body <- NULL
4511
4512                         response <- private$REST$http$exec("PUT", url, headers, body,
4513                                                            queryArgs, private$numRetries)
4514                         resource <- private$REST$httpParser$parseJSONResponse(response)
4515
4516                         if(!is.null(resource$errors))
4517                                 stop(resource$errors)
4518
4519                         resource
4520                 },
4521
4522                 logs.delete = function(uuid)
4523                 {
4524                         endPoint <- stringr::str_interp("logs/${uuid}")
4525                         url <- paste0(private$host, endPoint)
4526                         headers <- list(Authorization = paste("OAuth2", private$token),
4527                                         "Content-Type" = "application/json")
4528                         queryArgs <- NULL
4529
4530                         body <- NULL
4531
4532                         response <- private$REST$http$exec("DELETE", url, headers, body,
4533                                                            queryArgs, private$numRetries)
4534                         resource <- private$REST$httpParser$parseJSONResponse(response)
4535
4536                         if(!is.null(resource$errors))
4537                                 stop(resource$errors)
4538
4539                         resource
4540                 },
4541
4542                 logs.list = function(filters = NULL, where = NULL,
4543                         order = NULL, select = NULL, distinct = NULL,
4544                         limit = "100", offset = "0", count = "exact")
4545                 {
4546                         endPoint <- stringr::str_interp("logs")
4547                         url <- paste0(private$host, endPoint)
4548                         headers <- list(Authorization = paste("OAuth2", private$token),
4549                                         "Content-Type" = "application/json")
4550                         queryArgs <- list(filters = filters, where = where,
4551                                                           order = order, select = select, distinct = distinct,
4552                                                           limit = limit, offset = offset, count = count)
4553
4554                         body <- NULL
4555
4556                         response <- private$REST$http$exec("GET", url, headers, body,
4557                                                            queryArgs, private$numRetries)
4558                         resource <- private$REST$httpParser$parseJSONResponse(response)
4559
4560                         if(!is.null(resource$errors))
4561                                 stop(resource$errors)
4562
4563                         resource
4564                 },
4565
4566                 traits.get = function(uuid)
4567                 {
4568                         endPoint <- stringr::str_interp("traits/${uuid}")
4569                         url <- paste0(private$host, endPoint)
4570                         headers <- list(Authorization = paste("OAuth2", private$token),
4571                                         "Content-Type" = "application/json")
4572                         queryArgs <- NULL
4573
4574                         body <- NULL
4575
4576                         response <- private$REST$http$exec("GET", url, headers, body,
4577                                                            queryArgs, private$numRetries)
4578                         resource <- private$REST$httpParser$parseJSONResponse(response)
4579
4580                         if(!is.null(resource$errors))
4581                                 stop(resource$errors)
4582
4583                         resource
4584                 },
4585
4586                 traits.create = function(trait, ensure_unique_name = "false")
4587                 {
4588                         endPoint <- stringr::str_interp("traits")
4589                         url <- paste0(private$host, endPoint)
4590                         headers <- list(Authorization = paste("OAuth2", private$token),
4591                                         "Content-Type" = "application/json")
4592                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
4593
4594                         if(length(trait) > 0)
4595                                 body <- jsonlite::toJSON(list(trait = trait),
4596                                                          auto_unbox = TRUE)
4597                         else
4598                                 body <- NULL
4599
4600                         response <- private$REST$http$exec("POST", url, headers, body,
4601                                                            queryArgs, private$numRetries)
4602                         resource <- private$REST$httpParser$parseJSONResponse(response)
4603
4604                         if(!is.null(resource$errors))
4605                                 stop(resource$errors)
4606
4607                         resource
4608                 },
4609
4610                 traits.update = function(trait, uuid)
4611                 {
4612                         endPoint <- stringr::str_interp("traits/${uuid}")
4613                         url <- paste0(private$host, endPoint)
4614                         headers <- list(Authorization = paste("OAuth2", private$token),
4615                                         "Content-Type" = "application/json")
4616                         queryArgs <- NULL
4617
4618                         if(length(trait) > 0)
4619                                 body <- jsonlite::toJSON(list(trait = trait),
4620                                                          auto_unbox = TRUE)
4621                         else
4622                                 body <- NULL
4623
4624                         response <- private$REST$http$exec("PUT", 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                 traits.delete = function(uuid)
4635                 {
4636                         endPoint <- stringr::str_interp("traits/${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("DELETE", 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                 traits.list = function(filters = NULL, where = NULL,
4655                         order = NULL, select = NULL, distinct = NULL,
4656                         limit = "100", offset = "0", count = "exact")
4657                 {
4658                         endPoint <- stringr::str_interp("traits")
4659                         url <- paste0(private$host, endPoint)
4660                         headers <- list(Authorization = paste("OAuth2", private$token),
4661                                         "Content-Type" = "application/json")
4662                         queryArgs <- list(filters = filters, where = where,
4663                                                           order = order, select = select, distinct = distinct,
4664                                                           limit = limit, offset = offset, count = count)
4665
4666                         body <- NULL
4667
4668                         response <- private$REST$http$exec("GET", 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                 virtual_machines.get = function(uuid)
4679                 {
4680                         endPoint <- stringr::str_interp("virtual_machines/${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                         body <- NULL
4687
4688                         response <- private$REST$http$exec("GET", url, headers, body,
4689                                                            queryArgs, private$numRetries)
4690                         resource <- private$REST$httpParser$parseJSONResponse(response)
4691
4692                         if(!is.null(resource$errors))
4693                                 stop(resource$errors)
4694
4695                         resource
4696                 },
4697
4698                 virtual_machines.create = function(virtualmachine,
4699                         ensure_unique_name = "false")
4700                 {
4701                         endPoint <- stringr::str_interp("virtual_machines")
4702                         url <- paste0(private$host, endPoint)
4703                         headers <- list(Authorization = paste("OAuth2", private$token),
4704                                         "Content-Type" = "application/json")
4705                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
4706
4707                         if(length(virtualmachine) > 0)
4708                                 body <- jsonlite::toJSON(list(virtualmachine = virtualmachine),
4709                                                          auto_unbox = TRUE)
4710                         else
4711                                 body <- NULL
4712
4713                         response <- private$REST$http$exec("POST", url, headers, body,
4714                                                            queryArgs, private$numRetries)
4715                         resource <- private$REST$httpParser$parseJSONResponse(response)
4716
4717                         if(!is.null(resource$errors))
4718                                 stop(resource$errors)
4719
4720                         resource
4721                 },
4722
4723                 virtual_machines.update = function(virtualmachine, uuid)
4724                 {
4725                         endPoint <- stringr::str_interp("virtual_machines/${uuid}")
4726                         url <- paste0(private$host, endPoint)
4727                         headers <- list(Authorization = paste("OAuth2", private$token),
4728                                         "Content-Type" = "application/json")
4729                         queryArgs <- NULL
4730
4731                         if(length(virtualmachine) > 0)
4732                                 body <- jsonlite::toJSON(list(virtualmachine = virtualmachine),
4733                                                          auto_unbox = TRUE)
4734                         else
4735                                 body <- NULL
4736
4737                         response <- private$REST$http$exec("PUT", 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                 virtual_machines.delete = function(uuid)
4748                 {
4749                         endPoint <- stringr::str_interp("virtual_machines/${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("DELETE", 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                 virtual_machines.logins = function(uuid)
4768                 {
4769                         endPoint <- stringr::str_interp("virtual_machines/${uuid}/logins")
4770                         url <- paste0(private$host, endPoint)
4771                         headers <- list(Authorization = paste("OAuth2", private$token),
4772                                         "Content-Type" = "application/json")
4773                         queryArgs <- NULL
4774
4775                         body <- NULL
4776
4777                         response <- private$REST$http$exec("GET", url, headers, body,
4778                                                            queryArgs, private$numRetries)
4779                         resource <- private$REST$httpParser$parseJSONResponse(response)
4780
4781                         if(!is.null(resource$errors))
4782                                 stop(resource$errors)
4783
4784                         resource
4785                 },
4786
4787                 virtual_machines.get_all_logins = function()
4788                 {
4789                         endPoint <- stringr::str_interp("virtual_machines/get_all_logins")
4790                         url <- paste0(private$host, endPoint)
4791                         headers <- list(Authorization = paste("OAuth2", private$token),
4792                                         "Content-Type" = "application/json")
4793                         queryArgs <- NULL
4794
4795                         body <- NULL
4796
4797                         response <- private$REST$http$exec("GET", url, headers, body,
4798                                                            queryArgs, private$numRetries)
4799                         resource <- private$REST$httpParser$parseJSONResponse(response)
4800
4801                         if(!is.null(resource$errors))
4802                                 stop(resource$errors)
4803
4804                         resource
4805                 },
4806
4807                 virtual_machines.list = function(filters = NULL,
4808                         where = NULL, order = NULL, select = NULL,
4809                         distinct = NULL, limit = "100", offset = "0",
4810                         count = "exact")
4811                 {
4812                         endPoint <- stringr::str_interp("virtual_machines")
4813                         url <- paste0(private$host, endPoint)
4814                         headers <- list(Authorization = paste("OAuth2", private$token),
4815                                         "Content-Type" = "application/json")
4816                         queryArgs <- list(filters = filters, where = where,
4817                                                           order = order, select = select, distinct = distinct,
4818                                                           limit = limit, offset = offset, count = count)
4819
4820                         body <- NULL
4821
4822                         response <- private$REST$http$exec("GET", url, headers, body,
4823                                                            queryArgs, private$numRetries)
4824                         resource <- private$REST$httpParser$parseJSONResponse(response)
4825
4826                         if(!is.null(resource$errors))
4827                                 stop(resource$errors)
4828
4829                         resource
4830                 },
4831
4832                 workflows.get = function(uuid)
4833                 {
4834                         endPoint <- stringr::str_interp("workflows/${uuid}")
4835                         url <- paste0(private$host, endPoint)
4836                         headers <- list(Authorization = paste("OAuth2", private$token),
4837                                         "Content-Type" = "application/json")
4838                         queryArgs <- NULL
4839
4840                         body <- NULL
4841
4842                         response <- private$REST$http$exec("GET", url, headers, body,
4843                                                            queryArgs, private$numRetries)
4844                         resource <- private$REST$httpParser$parseJSONResponse(response)
4845
4846                         if(!is.null(resource$errors))
4847                                 stop(resource$errors)
4848
4849                         resource
4850                 },
4851
4852                 workflows.create = function(workflow, ensure_unique_name = "false")
4853                 {
4854                         endPoint <- stringr::str_interp("workflows")
4855                         url <- paste0(private$host, endPoint)
4856                         headers <- list(Authorization = paste("OAuth2", private$token),
4857                                         "Content-Type" = "application/json")
4858                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
4859
4860                         if(length(workflow) > 0)
4861                                 body <- jsonlite::toJSON(list(workflow = workflow),
4862                                                          auto_unbox = TRUE)
4863                         else
4864                                 body <- NULL
4865
4866                         response <- private$REST$http$exec("POST", url, headers, body,
4867                                                            queryArgs, private$numRetries)
4868                         resource <- private$REST$httpParser$parseJSONResponse(response)
4869
4870                         if(!is.null(resource$errors))
4871                                 stop(resource$errors)
4872
4873                         resource
4874                 },
4875
4876                 workflows.update = function(workflow, uuid)
4877                 {
4878                         endPoint <- stringr::str_interp("workflows/${uuid}")
4879                         url <- paste0(private$host, endPoint)
4880                         headers <- list(Authorization = paste("OAuth2", private$token),
4881                                         "Content-Type" = "application/json")
4882                         queryArgs <- NULL
4883
4884                         if(length(workflow) > 0)
4885                                 body <- jsonlite::toJSON(list(workflow = workflow),
4886                                                          auto_unbox = TRUE)
4887                         else
4888                                 body <- NULL
4889
4890                         response <- private$REST$http$exec("PUT", url, headers, body,
4891                                                            queryArgs, private$numRetries)
4892                         resource <- private$REST$httpParser$parseJSONResponse(response)
4893
4894                         if(!is.null(resource$errors))
4895                                 stop(resource$errors)
4896
4897                         resource
4898                 },
4899
4900                 workflows.delete = function(uuid)
4901                 {
4902                         endPoint <- stringr::str_interp("workflows/${uuid}")
4903                         url <- paste0(private$host, endPoint)
4904                         headers <- list(Authorization = paste("OAuth2", private$token),
4905                                         "Content-Type" = "application/json")
4906                         queryArgs <- NULL
4907
4908                         body <- NULL
4909
4910                         response <- private$REST$http$exec("DELETE", url, headers, body,
4911                                                            queryArgs, private$numRetries)
4912                         resource <- private$REST$httpParser$parseJSONResponse(response)
4913
4914                         if(!is.null(resource$errors))
4915                                 stop(resource$errors)
4916
4917                         resource
4918                 },
4919
4920                 workflows.list = function(filters = NULL,
4921                         where = NULL, order = NULL, select = NULL,
4922                         distinct = NULL, limit = "100", offset = "0",
4923                         count = "exact")
4924                 {
4925                         endPoint <- stringr::str_interp("workflows")
4926                         url <- paste0(private$host, endPoint)
4927                         headers <- list(Authorization = paste("OAuth2", private$token),
4928                                         "Content-Type" = "application/json")
4929                         queryArgs <- list(filters = filters, where = where,
4930                                                           order = order, select = select, distinct = distinct,
4931                                                           limit = limit, offset = offset, count = count)
4932
4933                         body <- NULL
4934
4935                         response <- private$REST$http$exec("GET", url, headers, body,
4936                                                            queryArgs, private$numRetries)
4937                         resource <- private$REST$httpParser$parseJSONResponse(response)
4938
4939                         if(!is.null(resource$errors))
4940                                 stop(resource$errors)
4941
4942                         resource
4943                 },
4944
4945                 groups.get = function(uuid)
4946                 {
4947                         endPoint <- stringr::str_interp("groups/${uuid}")
4948                         url <- paste0(private$host, endPoint)
4949                         headers <- list(Authorization = paste("OAuth2", private$token),
4950                                         "Content-Type" = "application/json")
4951                         queryArgs <- NULL
4952
4953                         body <- NULL
4954
4955                         response <- private$REST$http$exec("GET", url, headers, body,
4956                                                            queryArgs, private$numRetries)
4957                         resource <- private$REST$httpParser$parseJSONResponse(response)
4958
4959                         if(!is.null(resource$errors))
4960                                 stop(resource$errors)
4961
4962                         resource
4963                 },
4964
4965                 groups.create = function(group, ensure_unique_name = "false")
4966                 {
4967                         endPoint <- stringr::str_interp("groups")
4968                         url <- paste0(private$host, endPoint)
4969                         headers <- list(Authorization = paste("OAuth2", private$token),
4970                                         "Content-Type" = "application/json")
4971                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
4972
4973                         if(length(group) > 0)
4974                                 body <- jsonlite::toJSON(list(group = group),
4975                                                          auto_unbox = TRUE)
4976                         else
4977                                 body <- NULL
4978
4979                         response <- private$REST$http$exec("POST", url, headers, body,
4980                                                            queryArgs, private$numRetries)
4981                         resource <- private$REST$httpParser$parseJSONResponse(response)
4982
4983                         if(!is.null(resource$errors))
4984                                 stop(resource$errors)
4985
4986                         resource
4987                 },
4988
4989                 groups.update = function(group, uuid)
4990                 {
4991                         endPoint <- stringr::str_interp("groups/${uuid}")
4992                         url <- paste0(private$host, endPoint)
4993                         headers <- list(Authorization = paste("OAuth2", private$token),
4994                                         "Content-Type" = "application/json")
4995                         queryArgs <- NULL
4996
4997                         if(length(group) > 0)
4998                                 body <- jsonlite::toJSON(list(group = group),
4999                                                          auto_unbox = TRUE)
5000                         else
5001                                 body <- NULL
5002
5003                         response <- private$REST$http$exec("PUT", url, headers, body,
5004                                                            queryArgs, private$numRetries)
5005                         resource <- private$REST$httpParser$parseJSONResponse(response)
5006
5007                         if(!is.null(resource$errors))
5008                                 stop(resource$errors)
5009
5010                         resource
5011                 },
5012
5013                 groups.delete = function(uuid)
5014                 {
5015                         endPoint <- stringr::str_interp("groups/${uuid}")
5016                         url <- paste0(private$host, endPoint)
5017                         headers <- list(Authorization = paste("OAuth2", private$token),
5018                                         "Content-Type" = "application/json")
5019                         queryArgs <- NULL
5020
5021                         body <- NULL
5022
5023                         response <- private$REST$http$exec("DELETE", url, headers, body,
5024                                                            queryArgs, private$numRetries)
5025                         resource <- private$REST$httpParser$parseJSONResponse(response)
5026
5027                         if(!is.null(resource$errors))
5028                                 stop(resource$errors)
5029
5030                         resource
5031                 },
5032
5033                 groups.contents = function(filters = NULL,
5034                         where = NULL, order = NULL, distinct = NULL,
5035                         limit = "100", offset = "0", count = "exact",
5036                         include_trash = NULL, uuid = NULL, recursive = NULL)
5037                 {
5038                         endPoint <- stringr::str_interp("groups/contents")
5039                         url <- paste0(private$host, endPoint)
5040                         headers <- list(Authorization = paste("OAuth2", private$token),
5041                                         "Content-Type" = "application/json")
5042                         queryArgs <- list(filters = filters, where = where,
5043                                                           order = order, distinct = distinct, limit = limit,
5044                                                           offset = offset, count = count, include_trash = include_trash,
5045                                                           uuid = uuid, recursive = recursive)
5046
5047                         body <- NULL
5048
5049                         response <- private$REST$http$exec("GET", url, headers, body,
5050                                                            queryArgs, private$numRetries)
5051                         resource <- private$REST$httpParser$parseJSONResponse(response)
5052
5053                         if(!is.null(resource$errors))
5054                                 stop(resource$errors)
5055
5056                         resource
5057                 },
5058
5059                 groups.trash = function(uuid)
5060                 {
5061                         endPoint <- stringr::str_interp("groups/${uuid}/trash")
5062                         url <- paste0(private$host, endPoint)
5063                         headers <- list(Authorization = paste("OAuth2", private$token),
5064                                         "Content-Type" = "application/json")
5065                         queryArgs <- NULL
5066
5067                         body <- NULL
5068
5069                         response <- private$REST$http$exec("POST", url, headers, body,
5070                                                            queryArgs, private$numRetries)
5071                         resource <- private$REST$httpParser$parseJSONResponse(response)
5072
5073                         if(!is.null(resource$errors))
5074                                 stop(resource$errors)
5075
5076                         resource
5077                 },
5078
5079                 groups.untrash = function(uuid)
5080                 {
5081                         endPoint <- stringr::str_interp("groups/${uuid}/untrash")
5082                         url <- paste0(private$host, endPoint)
5083                         headers <- list(Authorization = paste("OAuth2", private$token),
5084                                         "Content-Type" = "application/json")
5085                         queryArgs <- NULL
5086
5087                         body <- NULL
5088
5089                         response <- private$REST$http$exec("POST", url, headers, body,
5090                                                            queryArgs, private$numRetries)
5091                         resource <- private$REST$httpParser$parseJSONResponse(response)
5092
5093                         if(!is.null(resource$errors))
5094                                 stop(resource$errors)
5095
5096                         resource
5097                 },
5098
5099                 groups.list = function(filters = NULL, where = NULL,
5100                         order = NULL, select = NULL, distinct = NULL,
5101                         limit = "100", offset = "0", count = "exact",
5102                         include_trash = NULL)
5103                 {
5104                         endPoint <- stringr::str_interp("groups")
5105                         url <- paste0(private$host, endPoint)
5106                         headers <- list(Authorization = paste("OAuth2", private$token),
5107                                         "Content-Type" = "application/json")
5108                         queryArgs <- list(filters = filters, where = where,
5109                                                           order = order, select = select, distinct = distinct,
5110                                                           limit = limit, offset = offset, count = count,
5111                                                           include_trash = include_trash)
5112
5113                         body <- NULL
5114
5115                         response <- private$REST$http$exec("GET", url, headers, body,
5116                                                            queryArgs, private$numRetries)
5117                         resource <- private$REST$httpParser$parseJSONResponse(response)
5118
5119                         if(!is.null(resource$errors))
5120                                 stop(resource$errors)
5121
5122                         resource
5123                 },
5124
5125                 user_agreements.get = function(uuid)
5126                 {
5127                         endPoint <- stringr::str_interp("user_agreements/${uuid}")
5128                         url <- paste0(private$host, endPoint)
5129                         headers <- list(Authorization = paste("OAuth2", private$token),
5130                                         "Content-Type" = "application/json")
5131                         queryArgs <- NULL
5132
5133                         body <- NULL
5134
5135                         response <- private$REST$http$exec("GET", url, headers, body,
5136                                                            queryArgs, private$numRetries)
5137                         resource <- private$REST$httpParser$parseJSONResponse(response)
5138
5139                         if(!is.null(resource$errors))
5140                                 stop(resource$errors)
5141
5142                         resource
5143                 },
5144
5145                 user_agreements.create = function(useragreement,
5146                         ensure_unique_name = "false")
5147                 {
5148                         endPoint <- stringr::str_interp("user_agreements")
5149                         url <- paste0(private$host, endPoint)
5150                         headers <- list(Authorization = paste("OAuth2", private$token),
5151                                         "Content-Type" = "application/json")
5152                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
5153
5154                         if(length(useragreement) > 0)
5155                                 body <- jsonlite::toJSON(list(useragreement = useragreement),
5156                                                          auto_unbox = TRUE)
5157                         else
5158                                 body <- NULL
5159
5160                         response <- private$REST$http$exec("POST", url, headers, body,
5161                                                            queryArgs, private$numRetries)
5162                         resource <- private$REST$httpParser$parseJSONResponse(response)
5163
5164                         if(!is.null(resource$errors))
5165                                 stop(resource$errors)
5166
5167                         resource
5168                 },
5169
5170                 user_agreements.update = function(useragreement, uuid)
5171                 {
5172                         endPoint <- stringr::str_interp("user_agreements/${uuid}")
5173                         url <- paste0(private$host, endPoint)
5174                         headers <- list(Authorization = paste("OAuth2", private$token),
5175                                         "Content-Type" = "application/json")
5176                         queryArgs <- NULL
5177
5178                         if(length(useragreement) > 0)
5179                                 body <- jsonlite::toJSON(list(useragreement = useragreement),
5180                                                          auto_unbox = TRUE)
5181                         else
5182                                 body <- NULL
5183
5184                         response <- private$REST$http$exec("PUT", url, headers, body,
5185                                                            queryArgs, private$numRetries)
5186                         resource <- private$REST$httpParser$parseJSONResponse(response)
5187
5188                         if(!is.null(resource$errors))
5189                                 stop(resource$errors)
5190
5191                         resource
5192                 },
5193
5194                 user_agreements.delete = function(uuid)
5195                 {
5196                         endPoint <- stringr::str_interp("user_agreements/${uuid}")
5197                         url <- paste0(private$host, endPoint)
5198                         headers <- list(Authorization = paste("OAuth2", private$token),
5199                                         "Content-Type" = "application/json")
5200                         queryArgs <- NULL
5201
5202                         body <- NULL
5203
5204                         response <- private$REST$http$exec("DELETE", url, headers, body,
5205                                                            queryArgs, private$numRetries)
5206                         resource <- private$REST$httpParser$parseJSONResponse(response)
5207
5208                         if(!is.null(resource$errors))
5209                                 stop(resource$errors)
5210
5211                         resource
5212                 },
5213
5214                 user_agreements.signatures = function()
5215                 {
5216                         endPoint <- stringr::str_interp("user_agreements/signatures")
5217                         url <- paste0(private$host, endPoint)
5218                         headers <- list(Authorization = paste("OAuth2", private$token),
5219                                         "Content-Type" = "application/json")
5220                         queryArgs <- NULL
5221
5222                         body <- NULL
5223
5224                         response <- private$REST$http$exec("GET", url, headers, body,
5225                                                            queryArgs, private$numRetries)
5226                         resource <- private$REST$httpParser$parseJSONResponse(response)
5227
5228                         if(!is.null(resource$errors))
5229                                 stop(resource$errors)
5230
5231                         resource
5232                 },
5233
5234                 user_agreements.sign = function()
5235                 {
5236                         endPoint <- stringr::str_interp("user_agreements/sign")
5237                         url <- paste0(private$host, endPoint)
5238                         headers <- list(Authorization = paste("OAuth2", private$token),
5239                                         "Content-Type" = "application/json")
5240                         queryArgs <- NULL
5241
5242                         body <- NULL
5243
5244                         response <- private$REST$http$exec("POST", url, headers, body,
5245                                                            queryArgs, private$numRetries)
5246                         resource <- private$REST$httpParser$parseJSONResponse(response)
5247
5248                         if(!is.null(resource$errors))
5249                                 stop(resource$errors)
5250
5251                         resource
5252                 },
5253
5254                 user_agreements.list = function(filters = NULL,
5255                         where = NULL, order = NULL, select = NULL,
5256                         distinct = NULL, limit = "100", offset = "0",
5257                         count = "exact")
5258                 {
5259                         endPoint <- stringr::str_interp("user_agreements")
5260                         url <- paste0(private$host, endPoint)
5261                         headers <- list(Authorization = paste("OAuth2", private$token),
5262                                         "Content-Type" = "application/json")
5263                         queryArgs <- list(filters = filters, where = where,
5264                                                           order = order, select = select, distinct = distinct,
5265                                                           limit = limit, offset = offset, count = count)
5266
5267                         body <- NULL
5268
5269                         response <- private$REST$http$exec("GET", url, headers, body,
5270                                                            queryArgs, private$numRetries)
5271                         resource <- private$REST$httpParser$parseJSONResponse(response)
5272
5273                         if(!is.null(resource$errors))
5274                                 stop(resource$errors)
5275
5276                         resource
5277                 },
5278
5279                 user_agreements.new = function()
5280                 {
5281                         endPoint <- stringr::str_interp("user_agreements/new")
5282                         url <- paste0(private$host, endPoint)
5283                         headers <- list(Authorization = paste("OAuth2", private$token),
5284                                         "Content-Type" = "application/json")
5285                         queryArgs <- NULL
5286
5287                         body <- NULL
5288
5289                         response <- private$REST$http$exec("GET", url, headers, body,
5290                                                            queryArgs, private$numRetries)
5291                         resource <- private$REST$httpParser$parseJSONResponse(response)
5292
5293                         if(!is.null(resource$errors))
5294                                 stop(resource$errors)
5295
5296                         resource
5297                 },
5298
5299                 getHostName = function() private$host,
5300                 getToken = function() private$token,
5301                 setRESTService = function(newREST) private$REST <- newREST,
5302                 getRESTService = function() private$REST
5303         ),
5304
5305         private = list(
5306
5307                 token = NULL,
5308                 host = NULL,
5309                 REST = NULL,
5310                 numRetries = NULL
5311         ),
5312
5313         cloneable = FALSE
5314 )