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