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.index is a method defined in Arvados class.
  10 #'
  11 #' @usage arv$users.index(filters = NULL,
  12 #'      where = NULL, order = NULL, select = NULL,
  13 #'      distinct = NULL, limit = "100", offset = "0",
  14 #'      count = "exact")
  15 #' @param filters
  16 #' @param where
  17 #' @param order
  18 #' @param select
  19 #' @param distinct
  20 #' @param limit
  21 #' @param offset
  22 #' @param count
  23 #' @return UserList object.
  24 #' @name users.index
  25 NULL
  26
  27 #' users.create is a method defined in Arvados class.
  28 #'
  29 #' @usage arv$users.create(user, ensure_unique_name = "false")
  30 #' @param user User object.
  31 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
  32 #' @return User object.
  33 #' @name users.create
  34 NULL
  35
  36 #' users.update is a method defined in Arvados class.
  37 #'
  38 #' @usage arv$users.update(user, uuid)
  39 #' @param user User object.
  40 #' @param uuid The UUID of the User in question.
  41 #' @return User object.
  42 #' @name users.update
  43 NULL
  44
  45 #' users.delete is a method defined in Arvados class.
  46 #'
  47 #' @usage arv$users.delete(uuid)
  48 #' @param uuid The UUID of the User in question.
  49 #' @return User object.
  50 #' @name users.delete
  51 NULL
  52
  53 #' users.current is a method defined in Arvados class.
  54 #'
  55 #' @usage arv$users.current(NULL)
  56 #' @return User object.
  57 #' @name users.current
  58 NULL
  59
  60 #' users.system is a method defined in Arvados class.
  61 #'
  62 #' @usage arv$users.system(NULL)
  63 #' @return User object.
  64 #' @name users.system
  65 NULL
  66
  67 #' users.activate is a method defined in Arvados class.
  68 #'
  69 #' @usage arv$users.activate(uuid)
  70 #' @param uuid
  71 #' @return User object.
  72 #' @name users.activate
  73 NULL
  74
  75 #' users.setup is a method defined in Arvados class.
  76 #'
  77 #' @usage arv$users.setup(user = NULL, openid_prefix = NULL,
  78 #'      repo_name = NULL, vm_uuid = NULL, send_notification_email = "false")
  79 #' @param user
  80 #' @param openid_prefix
  81 #' @param repo_name
  82 #' @param vm_uuid
  83 #' @param send_notification_email
  84 #' @return User object.
  85 #' @name users.setup
  86 NULL
  87
  88 #' users.unsetup is a method defined in Arvados class.
  89 #'
  90 #' @usage arv$users.unsetup(uuid)
  91 #' @param uuid
  92 #' @return User object.
  93 #' @name users.unsetup
  94 NULL
  95
  96 #' users.update_uuid is a method defined in Arvados class.
  97 #'
  98 #' @usage arv$users.update_uuid(uuid, new_uuid)
  99 #' @param uuid
 100 #' @param new_uuid
 101 #' @return User object.
 102 #' @name users.update_uuid
 103 NULL
 104
 105 #' users.list is a method defined in Arvados class.
 106 #'
 107 #' @usage arv$users.list(filters = NULL,
 108 #'      where = NULL, order = NULL, select = NULL,
 109 #'      distinct = NULL, limit = "100", offset = "0",
 110 #'      count = "exact")
 111 #' @param filters
 112 #' @param where
 113 #' @param order
 114 #' @param select
 115 #' @param distinct
 116 #' @param limit
 117 #' @param offset
 118 #' @param count
 119 #' @return UserList object.
 120 #' @name users.list
 121 NULL
 122
 123 #' users.show is a method defined in Arvados class.
 124 #'
 125 #' @usage arv$users.show(uuid)
 126 #' @param uuid
 127 #' @return User object.
 128 #' @name users.show
 129 NULL
 130
 131 #' users.destroy is a method defined in Arvados class.
 132 #'
 133 #' @usage arv$users.destroy(uuid)
 134 #' @param uuid
 135 #' @return User object.
 136 #' @name users.destroy
 137 NULL
 138
 139 #' api_client_authorizations.get is a method defined in Arvados class.
 140 #'
 141 #' @usage arv$api_client_authorizations.get(uuid)
 142 #' @param uuid The UUID of the ApiClientAuthorization in question.
 143 #' @return ApiClientAuthorization object.
 144 #' @name api_client_authorizations.get
 145 NULL
 146
 147 #' api_client_authorizations.index is a method defined in Arvados class.
 148 #'
 149 #' @usage arv$api_client_authorizations.index(filters = NULL,
 150 #'      where = NULL, order = NULL, select = NULL,
 151 #'      distinct = NULL, limit = "100", offset = "0",
 152 #'      count = "exact")
 153 #' @param filters
 154 #' @param where
 155 #' @param order
 156 #' @param select
 157 #' @param distinct
 158 #' @param limit
 159 #' @param offset
 160 #' @param count
 161 #' @return ApiClientAuthorizationList object.
 162 #' @name api_client_authorizations.index
 163 NULL
 164
 165 #' api_client_authorizations.create is a method defined in Arvados class.
 166 #'
 167 #' @usage arv$api_client_authorizations.create(api_client_authorization,
 168 #'      ensure_unique_name = "false")
 169 #' @param apiClientAuthorization ApiClientAuthorization object.
 170 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 171 #' @return ApiClientAuthorization object.
 172 #' @name api_client_authorizations.create
 173 NULL
 174
 175 #' api_client_authorizations.update is a method defined in Arvados class.
 176 #'
 177 #' @usage arv$api_client_authorizations.update(api_client_authorization,
 178 #'      uuid)
 179 #' @param apiClientAuthorization ApiClientAuthorization object.
 180 #' @param uuid The UUID of the ApiClientAuthorization in question.
 181 #' @return ApiClientAuthorization object.
 182 #' @name api_client_authorizations.update
 183 NULL
 184
 185 #' api_client_authorizations.delete is a method defined in Arvados class.
 186 #'
 187 #' @usage arv$api_client_authorizations.delete(uuid)
 188 #' @param uuid The UUID of the ApiClientAuthorization in question.
 189 #' @return ApiClientAuthorization object.
 190 #' @name api_client_authorizations.delete
 191 NULL
 192
 193 #' api_client_authorizations.create_system_auth is a method defined in Arvados class.
 194 #'
 195 #' @usage arv$api_client_authorizations.create_system_auth(api_client_id = NULL,
 196 #'      scopes = NULL)
 197 #' @param api_client_id
 198 #' @param scopes
 199 #' @return ApiClientAuthorization object.
 200 #' @name api_client_authorizations.create_system_auth
 201 NULL
 202
 203 #' api_client_authorizations.current is a method defined in Arvados class.
 204 #'
 205 #' @usage arv$api_client_authorizations.current(NULL)
 206 #' @return ApiClientAuthorization object.
 207 #' @name api_client_authorizations.current
 208 NULL
 209
 210 #' api_client_authorizations.list is a method defined in Arvados class.
 211 #'
 212 #' @usage arv$api_client_authorizations.list(filters = NULL,
 213 #'      where = NULL, order = NULL, select = NULL,
 214 #'      distinct = NULL, limit = "100", offset = "0",
 215 #'      count = "exact")
 216 #' @param filters
 217 #' @param where
 218 #' @param order
 219 #' @param select
 220 #' @param distinct
 221 #' @param limit
 222 #' @param offset
 223 #' @param count
 224 #' @return ApiClientAuthorizationList object.
 225 #' @name api_client_authorizations.list
 226 NULL
 227
 228 #' api_client_authorizations.show is a method defined in Arvados class.
 229 #'
 230 #' @usage arv$api_client_authorizations.show(uuid)
 231 #' @param uuid
 232 #' @return ApiClientAuthorization object.
 233 #' @name api_client_authorizations.show
 234 NULL
 235
 236 #' api_client_authorizations.destroy is a method defined in Arvados class.
 237 #'
 238 #' @usage arv$api_client_authorizations.destroy(uuid)
 239 #' @param uuid
 240 #' @return ApiClientAuthorization object.
 241 #' @name api_client_authorizations.destroy
 242 NULL
 243
 244 #' api_clients.get is a method defined in Arvados class.
 245 #'
 246 #' @usage arv$api_clients.get(uuid)
 247 #' @param uuid The UUID of the ApiClient in question.
 248 #' @return ApiClient object.
 249 #' @name api_clients.get
 250 NULL
 251
 252 #' api_clients.index is a method defined in Arvados class.
 253 #'
 254 #' @usage arv$api_clients.index(filters = NULL,
 255 #'      where = NULL, order = NULL, select = NULL,
 256 #'      distinct = NULL, limit = "100", offset = "0",
 257 #'      count = "exact")
 258 #' @param filters
 259 #' @param where
 260 #' @param order
 261 #' @param select
 262 #' @param distinct
 263 #' @param limit
 264 #' @param offset
 265 #' @param count
 266 #' @return ApiClientList object.
 267 #' @name api_clients.index
 268 NULL
 269
 270 #' api_clients.create is a method defined in Arvados class.
 271 #'
 272 #' @usage arv$api_clients.create(api_client,
 273 #'      ensure_unique_name = "false")
 274 #' @param apiClient ApiClient object.
 275 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 276 #' @return ApiClient object.
 277 #' @name api_clients.create
 278 NULL
 279
 280 #' api_clients.update is a method defined in Arvados class.
 281 #'
 282 #' @usage arv$api_clients.update(api_client,
 283 #'      uuid)
 284 #' @param apiClient ApiClient object.
 285 #' @param uuid The UUID of the ApiClient in question.
 286 #' @return ApiClient object.
 287 #' @name api_clients.update
 288 NULL
 289
 290 #' api_clients.delete is a method defined in Arvados class.
 291 #'
 292 #' @usage arv$api_clients.delete(uuid)
 293 #' @param uuid The UUID of the ApiClient in question.
 294 #' @return ApiClient object.
 295 #' @name api_clients.delete
 296 NULL
 297
 298 #' api_clients.list is a method defined in Arvados class.
 299 #'
 300 #' @usage arv$api_clients.list(filters = NULL,
 301 #'      where = NULL, order = NULL, select = NULL,
 302 #'      distinct = NULL, limit = "100", offset = "0",
 303 #'      count = "exact")
 304 #' @param filters
 305 #' @param where
 306 #' @param order
 307 #' @param select
 308 #' @param distinct
 309 #' @param limit
 310 #' @param offset
 311 #' @param count
 312 #' @return ApiClientList object.
 313 #' @name api_clients.list
 314 NULL
 315
 316 #' api_clients.show is a method defined in Arvados class.
 317 #'
 318 #' @usage arv$api_clients.show(uuid)
 319 #' @param uuid
 320 #' @return ApiClient object.
 321 #' @name api_clients.show
 322 NULL
 323
 324 #' api_clients.destroy is a method defined in Arvados class.
 325 #'
 326 #' @usage arv$api_clients.destroy(uuid)
 327 #' @param uuid
 328 #' @return ApiClient object.
 329 #' @name api_clients.destroy
 330 NULL
 331
 332 #' container_requests.get is a method defined in Arvados class.
 333 #'
 334 #' @usage arv$container_requests.get(uuid)
 335 #' @param uuid The UUID of the ContainerRequest in question.
 336 #' @return ContainerRequest object.
 337 #' @name container_requests.get
 338 NULL
 339
 340 #' container_requests.index is a method defined in Arvados class.
 341 #'
 342 #' @usage arv$container_requests.index(filters = NULL,
 343 #'      where = NULL, order = NULL, select = NULL,
 344 #'      distinct = NULL, limit = "100", offset = "0",
 345 #'      count = "exact")
 346 #' @param filters
 347 #' @param where
 348 #' @param order
 349 #' @param select
 350 #' @param distinct
 351 #' @param limit
 352 #' @param offset
 353 #' @param count
 354 #' @return ContainerRequestList object.
 355 #' @name container_requests.index
 356 NULL
 357
 358 #' container_requests.create is a method defined in Arvados class.
 359 #'
 360 #' @usage arv$container_requests.create(container_request,
 361 #'      ensure_unique_name = "false")
 362 #' @param containerRequest ContainerRequest object.
 363 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 364 #' @return ContainerRequest object.
 365 #' @name container_requests.create
 366 NULL
 367
 368 #' container_requests.update is a method defined in Arvados class.
 369 #'
 370 #' @usage arv$container_requests.update(container_request,
 371 #'      uuid)
 372 #' @param containerRequest ContainerRequest object.
 373 #' @param uuid The UUID of the ContainerRequest in question.
 374 #' @return ContainerRequest object.
 375 #' @name container_requests.update
 376 NULL
 377
 378 #' container_requests.delete is a method defined in Arvados class.
 379 #'
 380 #' @usage arv$container_requests.delete(uuid)
 381 #' @param uuid The UUID of the ContainerRequest in question.
 382 #' @return ContainerRequest object.
 383 #' @name container_requests.delete
 384 NULL
 385
 386 #' container_requests.list is a method defined in Arvados class.
 387 #'
 388 #' @usage arv$container_requests.list(filters = NULL,
 389 #'      where = NULL, order = NULL, select = NULL,
 390 #'      distinct = NULL, limit = "100", offset = "0",
 391 #'      count = "exact")
 392 #' @param filters
 393 #' @param where
 394 #' @param order
 395 #' @param select
 396 #' @param distinct
 397 #' @param limit
 398 #' @param offset
 399 #' @param count
 400 #' @return ContainerRequestList object.
 401 #' @name container_requests.list
 402 NULL
 403
 404 #' container_requests.show is a method defined in Arvados class.
 405 #'
 406 #' @usage arv$container_requests.show(uuid)
 407 #' @param uuid
 408 #' @return ContainerRequest object.
 409 #' @name container_requests.show
 410 NULL
 411
 412 #' container_requests.destroy is a method defined in Arvados class.
 413 #'
 414 #' @usage arv$container_requests.destroy(uuid)
 415 #' @param uuid
 416 #' @return ContainerRequest object.
 417 #' @name container_requests.destroy
 418 NULL
 419
 420 #' authorized_keys.get is a method defined in Arvados class.
 421 #'
 422 #' @usage arv$authorized_keys.get(uuid)
 423 #' @param uuid The UUID of the AuthorizedKey in question.
 424 #' @return AuthorizedKey object.
 425 #' @name authorized_keys.get
 426 NULL
 427
 428 #' authorized_keys.index is a method defined in Arvados class.
 429 #'
 430 #' @usage arv$authorized_keys.index(filters = NULL,
 431 #'      where = NULL, order = NULL, select = NULL,
 432 #'      distinct = NULL, limit = "100", offset = "0",
 433 #'      count = "exact")
 434 #' @param filters
 435 #' @param where
 436 #' @param order
 437 #' @param select
 438 #' @param distinct
 439 #' @param limit
 440 #' @param offset
 441 #' @param count
 442 #' @return AuthorizedKeyList object.
 443 #' @name authorized_keys.index
 444 NULL
 445
 446 #' authorized_keys.create is a method defined in Arvados class.
 447 #'
 448 #' @usage arv$authorized_keys.create(authorized_key,
 449 #'      ensure_unique_name = "false")
 450 #' @param authorizedKey AuthorizedKey object.
 451 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 452 #' @return AuthorizedKey object.
 453 #' @name authorized_keys.create
 454 NULL
 455
 456 #' authorized_keys.update is a method defined in Arvados class.
 457 #'
 458 #' @usage arv$authorized_keys.update(authorized_key,
 459 #'      uuid)
 460 #' @param authorizedKey AuthorizedKey object.
 461 #' @param uuid The UUID of the AuthorizedKey in question.
 462 #' @return AuthorizedKey object.
 463 #' @name authorized_keys.update
 464 NULL
 465
 466 #' authorized_keys.delete is a method defined in Arvados class.
 467 #'
 468 #' @usage arv$authorized_keys.delete(uuid)
 469 #' @param uuid The UUID of the AuthorizedKey in question.
 470 #' @return AuthorizedKey object.
 471 #' @name authorized_keys.delete
 472 NULL
 473
 474 #' authorized_keys.list is a method defined in Arvados class.
 475 #'
 476 #' @usage arv$authorized_keys.list(filters = NULL,
 477 #'      where = NULL, order = NULL, select = NULL,
 478 #'      distinct = NULL, limit = "100", offset = "0",
 479 #'      count = "exact")
 480 #' @param filters
 481 #' @param where
 482 #' @param order
 483 #' @param select
 484 #' @param distinct
 485 #' @param limit
 486 #' @param offset
 487 #' @param count
 488 #' @return AuthorizedKeyList object.
 489 #' @name authorized_keys.list
 490 NULL
 491
 492 #' authorized_keys.show is a method defined in Arvados class.
 493 #'
 494 #' @usage arv$authorized_keys.show(uuid)
 495 #' @param uuid
 496 #' @return AuthorizedKey object.
 497 #' @name authorized_keys.show
 498 NULL
 499
 500 #' authorized_keys.destroy is a method defined in Arvados class.
 501 #'
 502 #' @usage arv$authorized_keys.destroy(uuid)
 503 #' @param uuid
 504 #' @return AuthorizedKey object.
 505 #' @name authorized_keys.destroy
 506 NULL
 507
 508 #' collections.get is a method defined in Arvados class.
 509 #'
 510 #' @usage arv$collections.get(uuid)
 511 #' @param uuid The UUID of the Collection in question.
 512 #' @return Collection object.
 513 #' @name collections.get
 514 NULL
 515
 516 #' collections.index is a method defined in Arvados class.
 517 #'
 518 #' @usage arv$collections.index(filters = NULL,
 519 #'      where = NULL, order = NULL, select = NULL,
 520 #'      distinct = NULL, limit = "100", offset = "0",
 521 #'      count = "exact", include_trash = NULL)
 522 #' @param filters
 523 #' @param where
 524 #' @param order
 525 #' @param select
 526 #' @param distinct
 527 #' @param limit
 528 #' @param offset
 529 #' @param count
 530 #' @param include_trash Include collections whose is_trashed attribute is true.
 531 #' @return CollectionList object.
 532 #' @name collections.index
 533 NULL
 534
 535 #' collections.create is a method defined in Arvados class.
 536 #'
 537 #' @usage arv$collections.create(collection,
 538 #'      ensure_unique_name = "false")
 539 #' @param collection Collection object.
 540 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 541 #' @return Collection object.
 542 #' @name collections.create
 543 NULL
 544
 545 #' collections.update is a method defined in Arvados class.
 546 #'
 547 #' @usage arv$collections.update(collection,
 548 #'      uuid)
 549 #' @param collection Collection object.
 550 #' @param uuid The UUID of the Collection in question.
 551 #' @return Collection object.
 552 #' @name collections.update
 553 NULL
 554
 555 #' collections.delete is a method defined in Arvados class.
 556 #'
 557 #' @usage arv$collections.delete(uuid)
 558 #' @param uuid The UUID of the Collection in question.
 559 #' @return Collection object.
 560 #' @name collections.delete
 561 NULL
 562
 563 #' collections.provenance is a method defined in Arvados class.
 564 #'
 565 #' @usage arv$collections.provenance(uuid)
 566 #' @param uuid
 567 #' @return Collection object.
 568 #' @name collections.provenance
 569 NULL
 570
 571 #' collections.used_by is a method defined in Arvados class.
 572 #'
 573 #' @usage arv$collections.used_by(uuid)
 574 #' @param uuid
 575 #' @return Collection object.
 576 #' @name collections.used_by
 577 NULL
 578
 579 #' collections.trash is a method defined in Arvados class.
 580 #'
 581 #' @usage arv$collections.trash(uuid)
 582 #' @param uuid
 583 #' @return Collection object.
 584 #' @name collections.trash
 585 NULL
 586
 587 #' collections.untrash is a method defined in Arvados class.
 588 #'
 589 #' @usage arv$collections.untrash(uuid)
 590 #' @param uuid
 591 #' @return Collection object.
 592 #' @name collections.untrash
 593 NULL
 594
 595 #' collections.list is a method defined in Arvados class.
 596 #'
 597 #' @usage arv$collections.list(filters = NULL,
 598 #'      where = NULL, order = NULL, select = NULL,
 599 #'      distinct = NULL, limit = "100", offset = "0",
 600 #'      count = "exact", include_trash = NULL)
 601 #' @param filters
 602 #' @param where
 603 #' @param order
 604 #' @param select
 605 #' @param distinct
 606 #' @param limit
 607 #' @param offset
 608 #' @param count
 609 #' @param include_trash Include collections whose is_trashed attribute is true.
 610 #' @return CollectionList object.
 611 #' @name collections.list
 612 NULL
 613
 614 #' collections.show is a method defined in Arvados class.
 615 #'
 616 #' @usage arv$collections.show(uuid)
 617 #' @param uuid
 618 #' @return Collection object.
 619 #' @name collections.show
 620 NULL
 621
 622 #' collections.destroy is a method defined in Arvados class.
 623 #'
 624 #' @usage arv$collections.destroy(uuid)
 625 #' @param uuid
 626 #' @return Collection object.
 627 #' @name collections.destroy
 628 NULL
 629
 630 #' containers.get is a method defined in Arvados class.
 631 #'
 632 #' @usage arv$containers.get(uuid)
 633 #' @param uuid The UUID of the Container in question.
 634 #' @return Container object.
 635 #' @name containers.get
 636 NULL
 637
 638 #' containers.index is a method defined in Arvados class.
 639 #'
 640 #' @usage arv$containers.index(filters = NULL,
 641 #'      where = NULL, order = NULL, select = NULL,
 642 #'      distinct = NULL, limit = "100", offset = "0",
 643 #'      count = "exact")
 644 #' @param filters
 645 #' @param where
 646 #' @param order
 647 #' @param select
 648 #' @param distinct
 649 #' @param limit
 650 #' @param offset
 651 #' @param count
 652 #' @return ContainerList object.
 653 #' @name containers.index
 654 NULL
 655
 656 #' containers.create is a method defined in Arvados class.
 657 #'
 658 #' @usage arv$containers.create(container,
 659 #'      ensure_unique_name = "false")
 660 #' @param container Container object.
 661 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 662 #' @return Container object.
 663 #' @name containers.create
 664 NULL
 665
 666 #' containers.update is a method defined in Arvados class.
 667 #'
 668 #' @usage arv$containers.update(container,
 669 #'      uuid)
 670 #' @param container Container object.
 671 #' @param uuid The UUID of the Container in question.
 672 #' @return Container object.
 673 #' @name containers.update
 674 NULL
 675
 676 #' containers.delete is a method defined in Arvados class.
 677 #'
 678 #' @usage arv$containers.delete(uuid)
 679 #' @param uuid The UUID of the Container in question.
 680 #' @return Container object.
 681 #' @name containers.delete
 682 NULL
 683
 684 #' containers.auth is a method defined in Arvados class.
 685 #'
 686 #' @usage arv$containers.auth(uuid)
 687 #' @param uuid
 688 #' @return Container object.
 689 #' @name containers.auth
 690 NULL
 691
 692 #' containers.lock is a method defined in Arvados class.
 693 #'
 694 #' @usage arv$containers.lock(uuid)
 695 #' @param uuid
 696 #' @return Container object.
 697 #' @name containers.lock
 698 NULL
 699
 700 #' containers.unlock is a method defined in Arvados class.
 701 #'
 702 #' @usage arv$containers.unlock(uuid)
 703 #' @param uuid
 704 #' @return Container object.
 705 #' @name containers.unlock
 706 NULL
 707
 708 #' containers.current is a method defined in Arvados class.
 709 #'
 710 #' @usage arv$containers.current(NULL)
 711 #' @return Container object.
 712 #' @name containers.current
 713 NULL
 714
 715 #' containers.list is a method defined in Arvados class.
 716 #'
 717 #' @usage arv$containers.list(filters = NULL,
 718 #'      where = NULL, order = NULL, select = NULL,
 719 #'      distinct = NULL, limit = "100", offset = "0",
 720 #'      count = "exact")
 721 #' @param filters
 722 #' @param where
 723 #' @param order
 724 #' @param select
 725 #' @param distinct
 726 #' @param limit
 727 #' @param offset
 728 #' @param count
 729 #' @return ContainerList object.
 730 #' @name containers.list
 731 NULL
 732
 733 #' containers.show is a method defined in Arvados class.
 734 #'
 735 #' @usage arv$containers.show(uuid)
 736 #' @param uuid
 737 #' @return Container object.
 738 #' @name containers.show
 739 NULL
 740
 741 #' containers.destroy is a method defined in Arvados class.
 742 #'
 743 #' @usage arv$containers.destroy(uuid)
 744 #' @param uuid
 745 #' @return Container object.
 746 #' @name containers.destroy
 747 NULL
 748
 749 #' humans.get is a method defined in Arvados class.
 750 #'
 751 #' @usage arv$humans.get(uuid)
 752 #' @param uuid The UUID of the Human in question.
 753 #' @return Human object.
 754 #' @name humans.get
 755 NULL
 756
 757 #' humans.index is a method defined in Arvados class.
 758 #'
 759 #' @usage arv$humans.index(filters = NULL,
 760 #'      where = NULL, order = NULL, select = NULL,
 761 #'      distinct = NULL, limit = "100", offset = "0",
 762 #'      count = "exact")
 763 #' @param filters
 764 #' @param where
 765 #' @param order
 766 #' @param select
 767 #' @param distinct
 768 #' @param limit
 769 #' @param offset
 770 #' @param count
 771 #' @return HumanList object.
 772 #' @name humans.index
 773 NULL
 774
 775 #' humans.create is a method defined in Arvados class.
 776 #'
 777 #' @usage arv$humans.create(human, ensure_unique_name = "false")
 778 #' @param human Human object.
 779 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 780 #' @return Human object.
 781 #' @name humans.create
 782 NULL
 783
 784 #' humans.update is a method defined in Arvados class.
 785 #'
 786 #' @usage arv$humans.update(human, uuid)
 787 #' @param human Human object.
 788 #' @param uuid The UUID of the Human in question.
 789 #' @return Human object.
 790 #' @name humans.update
 791 NULL
 792
 793 #' humans.delete is a method defined in Arvados class.
 794 #'
 795 #' @usage arv$humans.delete(uuid)
 796 #' @param uuid The UUID of the Human in question.
 797 #' @return Human object.
 798 #' @name humans.delete
 799 NULL
 800
 801 #' humans.list is a method defined in Arvados class.
 802 #'
 803 #' @usage arv$humans.list(filters = NULL,
 804 #'      where = NULL, order = NULL, select = NULL,
 805 #'      distinct = NULL, limit = "100", offset = "0",
 806 #'      count = "exact")
 807 #' @param filters
 808 #' @param where
 809 #' @param order
 810 #' @param select
 811 #' @param distinct
 812 #' @param limit
 813 #' @param offset
 814 #' @param count
 815 #' @return HumanList object.
 816 #' @name humans.list
 817 NULL
 818
 819 #' humans.show is a method defined in Arvados class.
 820 #'
 821 #' @usage arv$humans.show(uuid)
 822 #' @param uuid
 823 #' @return Human object.
 824 #' @name humans.show
 825 NULL
 826
 827 #' humans.destroy is a method defined in Arvados class.
 828 #'
 829 #' @usage arv$humans.destroy(uuid)
 830 #' @param uuid
 831 #' @return Human object.
 832 #' @name humans.destroy
 833 NULL
 834
 835 #' job_tasks.get is a method defined in Arvados class.
 836 #'
 837 #' @usage arv$job_tasks.get(uuid)
 838 #' @param uuid The UUID of the JobTask in question.
 839 #' @return JobTask object.
 840 #' @name job_tasks.get
 841 NULL
 842
 843 #' job_tasks.index is a method defined in Arvados class.
 844 #'
 845 #' @usage arv$job_tasks.index(filters = NULL,
 846 #'      where = NULL, order = NULL, select = NULL,
 847 #'      distinct = NULL, limit = "100", offset = "0",
 848 #'      count = "exact")
 849 #' @param filters
 850 #' @param where
 851 #' @param order
 852 #' @param select
 853 #' @param distinct
 854 #' @param limit
 855 #' @param offset
 856 #' @param count
 857 #' @return JobTaskList object.
 858 #' @name job_tasks.index
 859 NULL
 860
 861 #' job_tasks.create is a method defined in Arvados class.
 862 #'
 863 #' @usage arv$job_tasks.create(job_task,
 864 #'      ensure_unique_name = "false")
 865 #' @param jobTask JobTask object.
 866 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 867 #' @return JobTask object.
 868 #' @name job_tasks.create
 869 NULL
 870
 871 #' job_tasks.update is a method defined in Arvados class.
 872 #'
 873 #' @usage arv$job_tasks.update(job_task,
 874 #'      uuid)
 875 #' @param jobTask JobTask object.
 876 #' @param uuid The UUID of the JobTask in question.
 877 #' @return JobTask object.
 878 #' @name job_tasks.update
 879 NULL
 880
 881 #' job_tasks.delete is a method defined in Arvados class.
 882 #'
 883 #' @usage arv$job_tasks.delete(uuid)
 884 #' @param uuid The UUID of the JobTask in question.
 885 #' @return JobTask object.
 886 #' @name job_tasks.delete
 887 NULL
 888
 889 #' job_tasks.list is a method defined in Arvados class.
 890 #'
 891 #' @usage arv$job_tasks.list(filters = NULL,
 892 #'      where = NULL, order = NULL, select = NULL,
 893 #'      distinct = NULL, limit = "100", offset = "0",
 894 #'      count = "exact")
 895 #' @param filters
 896 #' @param where
 897 #' @param order
 898 #' @param select
 899 #' @param distinct
 900 #' @param limit
 901 #' @param offset
 902 #' @param count
 903 #' @return JobTaskList object.
 904 #' @name job_tasks.list
 905 NULL
 906
 907 #' job_tasks.show is a method defined in Arvados class.
 908 #'
 909 #' @usage arv$job_tasks.show(uuid)
 910 #' @param uuid
 911 #' @return JobTask object.
 912 #' @name job_tasks.show
 913 NULL
 914
 915 #' job_tasks.destroy is a method defined in Arvados class.
 916 #'
 917 #' @usage arv$job_tasks.destroy(uuid)
 918 #' @param uuid
 919 #' @return JobTask object.
 920 #' @name job_tasks.destroy
 921 NULL
 922
 923 #' links.get is a method defined in Arvados class.
 924 #'
 925 #' @usage arv$links.get(uuid)
 926 #' @param uuid The UUID of the Link in question.
 927 #' @return Link object.
 928 #' @name links.get
 929 NULL
 930
 931 #' links.index is a method defined in Arvados class.
 932 #'
 933 #' @usage arv$links.index(filters = NULL,
 934 #'      where = NULL, order = NULL, select = NULL,
 935 #'      distinct = NULL, limit = "100", offset = "0",
 936 #'      count = "exact")
 937 #' @param filters
 938 #' @param where
 939 #' @param order
 940 #' @param select
 941 #' @param distinct
 942 #' @param limit
 943 #' @param offset
 944 #' @param count
 945 #' @return LinkList object.
 946 #' @name links.index
 947 NULL
 948
 949 #' links.create is a method defined in Arvados class.
 950 #'
 951 #' @usage arv$links.create(link, ensure_unique_name = "false")
 952 #' @param link Link object.
 953 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
 954 #' @return Link object.
 955 #' @name links.create
 956 NULL
 957
 958 #' links.update is a method defined in Arvados class.
 959 #'
 960 #' @usage arv$links.update(link, uuid)
 961 #' @param link Link object.
 962 #' @param uuid The UUID of the Link in question.
 963 #' @return Link object.
 964 #' @name links.update
 965 NULL
 966
 967 #' links.delete is a method defined in Arvados class.
 968 #'
 969 #' @usage arv$links.delete(uuid)
 970 #' @param uuid The UUID of the Link in question.
 971 #' @return Link object.
 972 #' @name links.delete
 973 NULL
 974
 975 #' links.list is a method defined in Arvados class.
 976 #'
 977 #' @usage arv$links.list(filters = NULL,
 978 #'      where = NULL, order = NULL, select = NULL,
 979 #'      distinct = NULL, limit = "100", offset = "0",
 980 #'      count = "exact")
 981 #' @param filters
 982 #' @param where
 983 #' @param order
 984 #' @param select
 985 #' @param distinct
 986 #' @param limit
 987 #' @param offset
 988 #' @param count
 989 #' @return LinkList object.
 990 #' @name links.list
 991 NULL
 992
 993 #' links.show is a method defined in Arvados class.
 994 #'
 995 #' @usage arv$links.show(uuid)
 996 #' @param uuid
 997 #' @return Link object.
 998 #' @name links.show
 999 NULL
1000
1001 #' links.destroy is a method defined in Arvados class.
1002 #'
1003 #' @usage arv$links.destroy(uuid)
1004 #' @param uuid
1005 #' @return Link object.
1006 #' @name links.destroy
1007 NULL
1008
1009 #' links.get_permissions is a method defined in Arvados class.
1010 #'
1011 #' @usage arv$links.get_permissions(uuid)
1012 #' @param uuid
1013 #' @return Link object.
1014 #' @name links.get_permissions
1015 NULL
1016
1017 #' jobs.get is a method defined in Arvados class.
1018 #'
1019 #' @usage arv$jobs.get(uuid)
1020 #' @param uuid The UUID of the Job in question.
1021 #' @return Job object.
1022 #' @name jobs.get
1023 NULL
1024
1025 #' jobs.index is a method defined in Arvados class.
1026 #'
1027 #' @usage arv$jobs.index(filters = NULL,
1028 #'      where = NULL, order = NULL, select = NULL,
1029 #'      distinct = NULL, limit = "100", offset = "0",
1030 #'      count = "exact")
1031 #' @param filters
1032 #' @param where
1033 #' @param order
1034 #' @param select
1035 #' @param distinct
1036 #' @param limit
1037 #' @param offset
1038 #' @param count
1039 #' @return JobList object.
1040 #' @name jobs.index
1041 NULL
1042
1043 #' jobs.create is a method defined in Arvados class.
1044 #'
1045 #' @usage arv$jobs.create(job, ensure_unique_name = "false",
1046 #'      find_or_create = "false", filters = NULL,
1047 #'      minimum_script_version = NULL, exclude_script_versions = NULL)
1048 #' @param job Job object.
1049 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1050 #' @param find_or_create
1051 #' @param filters
1052 #' @param minimum_script_version
1053 #' @param exclude_script_versions
1054 #' @return Job object.
1055 #' @name jobs.create
1056 NULL
1057
1058 #' jobs.update is a method defined in Arvados class.
1059 #'
1060 #' @usage arv$jobs.update(job, uuid)
1061 #' @param job Job object.
1062 #' @param uuid The UUID of the Job in question.
1063 #' @return Job object.
1064 #' @name jobs.update
1065 NULL
1066
1067 #' jobs.delete is a method defined in Arvados class.
1068 #'
1069 #' @usage arv$jobs.delete(uuid)
1070 #' @param uuid The UUID of the Job in question.
1071 #' @return Job object.
1072 #' @name jobs.delete
1073 NULL
1074
1075 #' jobs.queue is a method defined in Arvados class.
1076 #'
1077 #' @usage arv$jobs.queue(filters = NULL,
1078 #'      where = NULL, order = NULL, select = NULL,
1079 #'      distinct = NULL, limit = "100", offset = "0",
1080 #'      count = "exact")
1081 #' @param filters
1082 #' @param where
1083 #' @param order
1084 #' @param select
1085 #' @param distinct
1086 #' @param limit
1087 #' @param offset
1088 #' @param count
1089 #' @return Job object.
1090 #' @name jobs.queue
1091 NULL
1092
1093 #' jobs.queue_size is a method defined in Arvados class.
1094 #'
1095 #' @usage arv$jobs.queue_size(NULL)
1096 #' @return Job object.
1097 #' @name jobs.queue_size
1098 NULL
1099
1100 #' jobs.cancel is a method defined in Arvados class.
1101 #'
1102 #' @usage arv$jobs.cancel(uuid)
1103 #' @param uuid
1104 #' @return Job object.
1105 #' @name jobs.cancel
1106 NULL
1107
1108 #' jobs.lock is a method defined in Arvados class.
1109 #'
1110 #' @usage arv$jobs.lock(uuid)
1111 #' @param uuid
1112 #' @return Job object.
1113 #' @name jobs.lock
1114 NULL
1115
1116 #' jobs.list is a method defined in Arvados class.
1117 #'
1118 #' @usage arv$jobs.list(filters = NULL, where = NULL,
1119 #'      order = NULL, select = NULL, distinct = NULL,
1120 #'      limit = "100", offset = "0", count = "exact")
1121 #' @param filters
1122 #' @param where
1123 #' @param order
1124 #' @param select
1125 #' @param distinct
1126 #' @param limit
1127 #' @param offset
1128 #' @param count
1129 #' @return JobList object.
1130 #' @name jobs.list
1131 NULL
1132
1133 #' jobs.show is a method defined in Arvados class.
1134 #'
1135 #' @usage arv$jobs.show(uuid)
1136 #' @param uuid
1137 #' @return Job object.
1138 #' @name jobs.show
1139 NULL
1140
1141 #' jobs.destroy is a method defined in Arvados class.
1142 #'
1143 #' @usage arv$jobs.destroy(uuid)
1144 #' @param uuid
1145 #' @return Job object.
1146 #' @name jobs.destroy
1147 NULL
1148
1149 #' keep_disks.get is a method defined in Arvados class.
1150 #'
1151 #' @usage arv$keep_disks.get(uuid)
1152 #' @param uuid The UUID of the KeepDisk in question.
1153 #' @return KeepDisk object.
1154 #' @name keep_disks.get
1155 NULL
1156
1157 #' keep_disks.index is a method defined in Arvados class.
1158 #'
1159 #' @usage arv$keep_disks.index(filters = NULL,
1160 #'      where = NULL, order = NULL, select = NULL,
1161 #'      distinct = NULL, limit = "100", offset = "0",
1162 #'      count = "exact")
1163 #' @param filters
1164 #' @param where
1165 #' @param order
1166 #' @param select
1167 #' @param distinct
1168 #' @param limit
1169 #' @param offset
1170 #' @param count
1171 #' @return KeepDiskList object.
1172 #' @name keep_disks.index
1173 NULL
1174
1175 #' keep_disks.create is a method defined in Arvados class.
1176 #'
1177 #' @usage arv$keep_disks.create(keep_disk,
1178 #'      ensure_unique_name = "false")
1179 #' @param keepDisk KeepDisk object.
1180 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1181 #' @return KeepDisk object.
1182 #' @name keep_disks.create
1183 NULL
1184
1185 #' keep_disks.update is a method defined in Arvados class.
1186 #'
1187 #' @usage arv$keep_disks.update(keep_disk,
1188 #'      uuid)
1189 #' @param keepDisk KeepDisk object.
1190 #' @param uuid The UUID of the KeepDisk in question.
1191 #' @return KeepDisk object.
1192 #' @name keep_disks.update
1193 NULL
1194
1195 #' keep_disks.delete is a method defined in Arvados class.
1196 #'
1197 #' @usage arv$keep_disks.delete(uuid)
1198 #' @param uuid The UUID of the KeepDisk in question.
1199 #' @return KeepDisk object.
1200 #' @name keep_disks.delete
1201 NULL
1202
1203 #' keep_disks.ping is a method defined in Arvados class.
1204 #'
1205 #' @usage arv$keep_disks.ping(uuid = NULL,
1206 #'      ping_secret, node_uuid = NULL, filesystem_uuid = NULL,
1207 #'      service_host = NULL, service_port, service_ssl_flag)
1208 #' @param uuid
1209 #' @param ping_secret
1210 #' @param node_uuid
1211 #' @param filesystem_uuid
1212 #' @param service_host
1213 #' @param service_port
1214 #' @param service_ssl_flag
1215 #' @return KeepDisk object.
1216 #' @name keep_disks.ping
1217 NULL
1218
1219 #' keep_disks.list is a method defined in Arvados class.
1220 #'
1221 #' @usage arv$keep_disks.list(filters = NULL,
1222 #'      where = NULL, order = NULL, select = NULL,
1223 #'      distinct = NULL, limit = "100", offset = "0",
1224 #'      count = "exact")
1225 #' @param filters
1226 #' @param where
1227 #' @param order
1228 #' @param select
1229 #' @param distinct
1230 #' @param limit
1231 #' @param offset
1232 #' @param count
1233 #' @return KeepDiskList object.
1234 #' @name keep_disks.list
1235 NULL
1236
1237 #' keep_disks.show is a method defined in Arvados class.
1238 #'
1239 #' @usage arv$keep_disks.show(uuid)
1240 #' @param uuid
1241 #' @return KeepDisk object.
1242 #' @name keep_disks.show
1243 NULL
1244
1245 #' keep_disks.destroy is a method defined in Arvados class.
1246 #'
1247 #' @usage arv$keep_disks.destroy(uuid)
1248 #' @param uuid
1249 #' @return KeepDisk object.
1250 #' @name keep_disks.destroy
1251 NULL
1252
1253 #' keep_services.get is a method defined in Arvados class.
1254 #'
1255 #' @usage arv$keep_services.get(uuid)
1256 #' @param uuid The UUID of the KeepService in question.
1257 #' @return KeepService object.
1258 #' @name keep_services.get
1259 NULL
1260
1261 #' keep_services.index is a method defined in Arvados class.
1262 #'
1263 #' @usage arv$keep_services.index(filters = NULL,
1264 #'      where = NULL, order = NULL, select = NULL,
1265 #'      distinct = NULL, limit = "100", offset = "0",
1266 #'      count = "exact")
1267 #' @param filters
1268 #' @param where
1269 #' @param order
1270 #' @param select
1271 #' @param distinct
1272 #' @param limit
1273 #' @param offset
1274 #' @param count
1275 #' @return KeepServiceList object.
1276 #' @name keep_services.index
1277 NULL
1278
1279 #' keep_services.create is a method defined in Arvados class.
1280 #'
1281 #' @usage arv$keep_services.create(keep_service,
1282 #'      ensure_unique_name = "false")
1283 #' @param keepService KeepService object.
1284 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1285 #' @return KeepService object.
1286 #' @name keep_services.create
1287 NULL
1288
1289 #' keep_services.update is a method defined in Arvados class.
1290 #'
1291 #' @usage arv$keep_services.update(keep_service,
1292 #'      uuid)
1293 #' @param keepService KeepService object.
1294 #' @param uuid The UUID of the KeepService in question.
1295 #' @return KeepService object.
1296 #' @name keep_services.update
1297 NULL
1298
1299 #' keep_services.delete is a method defined in Arvados class.
1300 #'
1301 #' @usage arv$keep_services.delete(uuid)
1302 #' @param uuid The UUID of the KeepService in question.
1303 #' @return KeepService object.
1304 #' @name keep_services.delete
1305 NULL
1306
1307 #' keep_services.accessible is a method defined in Arvados class.
1308 #'
1309 #' @usage arv$keep_services.accessible(NULL)
1310 #' @return KeepService object.
1311 #' @name keep_services.accessible
1312 NULL
1313
1314 #' keep_services.list is a method defined in Arvados class.
1315 #'
1316 #' @usage arv$keep_services.list(filters = NULL,
1317 #'      where = NULL, order = NULL, select = NULL,
1318 #'      distinct = NULL, limit = "100", offset = "0",
1319 #'      count = "exact")
1320 #' @param filters
1321 #' @param where
1322 #' @param order
1323 #' @param select
1324 #' @param distinct
1325 #' @param limit
1326 #' @param offset
1327 #' @param count
1328 #' @return KeepServiceList object.
1329 #' @name keep_services.list
1330 NULL
1331
1332 #' keep_services.show is a method defined in Arvados class.
1333 #'
1334 #' @usage arv$keep_services.show(uuid)
1335 #' @param uuid
1336 #' @return KeepService object.
1337 #' @name keep_services.show
1338 NULL
1339
1340 #' keep_services.destroy is a method defined in Arvados class.
1341 #'
1342 #' @usage arv$keep_services.destroy(uuid)
1343 #' @param uuid
1344 #' @return KeepService object.
1345 #' @name keep_services.destroy
1346 NULL
1347
1348 #' pipeline_templates.get is a method defined in Arvados class.
1349 #'
1350 #' @usage arv$pipeline_templates.get(uuid)
1351 #' @param uuid The UUID of the PipelineTemplate in question.
1352 #' @return PipelineTemplate object.
1353 #' @name pipeline_templates.get
1354 NULL
1355
1356 #' pipeline_templates.index is a method defined in Arvados class.
1357 #'
1358 #' @usage arv$pipeline_templates.index(filters = NULL,
1359 #'      where = NULL, order = NULL, select = NULL,
1360 #'      distinct = NULL, limit = "100", offset = "0",
1361 #'      count = "exact")
1362 #' @param filters
1363 #' @param where
1364 #' @param order
1365 #' @param select
1366 #' @param distinct
1367 #' @param limit
1368 #' @param offset
1369 #' @param count
1370 #' @return PipelineTemplateList object.
1371 #' @name pipeline_templates.index
1372 NULL
1373
1374 #' pipeline_templates.create is a method defined in Arvados class.
1375 #'
1376 #' @usage arv$pipeline_templates.create(pipeline_template,
1377 #'      ensure_unique_name = "false")
1378 #' @param pipelineTemplate PipelineTemplate object.
1379 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1380 #' @return PipelineTemplate object.
1381 #' @name pipeline_templates.create
1382 NULL
1383
1384 #' pipeline_templates.update is a method defined in Arvados class.
1385 #'
1386 #' @usage arv$pipeline_templates.update(pipeline_template,
1387 #'      uuid)
1388 #' @param pipelineTemplate PipelineTemplate object.
1389 #' @param uuid The UUID of the PipelineTemplate in question.
1390 #' @return PipelineTemplate object.
1391 #' @name pipeline_templates.update
1392 NULL
1393
1394 #' pipeline_templates.delete is a method defined in Arvados class.
1395 #'
1396 #' @usage arv$pipeline_templates.delete(uuid)
1397 #' @param uuid The UUID of the PipelineTemplate in question.
1398 #' @return PipelineTemplate object.
1399 #' @name pipeline_templates.delete
1400 NULL
1401
1402 #' pipeline_templates.list is a method defined in Arvados class.
1403 #'
1404 #' @usage arv$pipeline_templates.list(filters = NULL,
1405 #'      where = NULL, order = NULL, select = NULL,
1406 #'      distinct = NULL, limit = "100", offset = "0",
1407 #'      count = "exact")
1408 #' @param filters
1409 #' @param where
1410 #' @param order
1411 #' @param select
1412 #' @param distinct
1413 #' @param limit
1414 #' @param offset
1415 #' @param count
1416 #' @return PipelineTemplateList object.
1417 #' @name pipeline_templates.list
1418 NULL
1419
1420 #' pipeline_templates.show is a method defined in Arvados class.
1421 #'
1422 #' @usage arv$pipeline_templates.show(uuid)
1423 #' @param uuid
1424 #' @return PipelineTemplate object.
1425 #' @name pipeline_templates.show
1426 NULL
1427
1428 #' pipeline_templates.destroy is a method defined in Arvados class.
1429 #'
1430 #' @usage arv$pipeline_templates.destroy(uuid)
1431 #' @param uuid
1432 #' @return PipelineTemplate object.
1433 #' @name pipeline_templates.destroy
1434 NULL
1435
1436 #' pipeline_instances.get is a method defined in Arvados class.
1437 #'
1438 #' @usage arv$pipeline_instances.get(uuid)
1439 #' @param uuid The UUID of the PipelineInstance in question.
1440 #' @return PipelineInstance object.
1441 #' @name pipeline_instances.get
1442 NULL
1443
1444 #' pipeline_instances.index is a method defined in Arvados class.
1445 #'
1446 #' @usage arv$pipeline_instances.index(filters = NULL,
1447 #'      where = NULL, order = NULL, select = NULL,
1448 #'      distinct = NULL, limit = "100", offset = "0",
1449 #'      count = "exact")
1450 #' @param filters
1451 #' @param where
1452 #' @param order
1453 #' @param select
1454 #' @param distinct
1455 #' @param limit
1456 #' @param offset
1457 #' @param count
1458 #' @return PipelineInstanceList object.
1459 #' @name pipeline_instances.index
1460 NULL
1461
1462 #' pipeline_instances.create is a method defined in Arvados class.
1463 #'
1464 #' @usage arv$pipeline_instances.create(pipeline_instance,
1465 #'      ensure_unique_name = "false")
1466 #' @param pipelineInstance PipelineInstance object.
1467 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1468 #' @return PipelineInstance object.
1469 #' @name pipeline_instances.create
1470 NULL
1471
1472 #' pipeline_instances.update is a method defined in Arvados class.
1473 #'
1474 #' @usage arv$pipeline_instances.update(pipeline_instance,
1475 #'      uuid)
1476 #' @param pipelineInstance PipelineInstance object.
1477 #' @param uuid The UUID of the PipelineInstance in question.
1478 #' @return PipelineInstance object.
1479 #' @name pipeline_instances.update
1480 NULL
1481
1482 #' pipeline_instances.delete is a method defined in Arvados class.
1483 #'
1484 #' @usage arv$pipeline_instances.delete(uuid)
1485 #' @param uuid The UUID of the PipelineInstance in question.
1486 #' @return PipelineInstance object.
1487 #' @name pipeline_instances.delete
1488 NULL
1489
1490 #' pipeline_instances.cancel is a method defined in Arvados class.
1491 #'
1492 #' @usage arv$pipeline_instances.cancel(uuid)
1493 #' @param uuid
1494 #' @return PipelineInstance object.
1495 #' @name pipeline_instances.cancel
1496 NULL
1497
1498 #' pipeline_instances.list is a method defined in Arvados class.
1499 #'
1500 #' @usage arv$pipeline_instances.list(filters = NULL,
1501 #'      where = NULL, order = NULL, select = NULL,
1502 #'      distinct = NULL, limit = "100", offset = "0",
1503 #'      count = "exact")
1504 #' @param filters
1505 #' @param where
1506 #' @param order
1507 #' @param select
1508 #' @param distinct
1509 #' @param limit
1510 #' @param offset
1511 #' @param count
1512 #' @return PipelineInstanceList object.
1513 #' @name pipeline_instances.list
1514 NULL
1515
1516 #' pipeline_instances.show is a method defined in Arvados class.
1517 #'
1518 #' @usage arv$pipeline_instances.show(uuid)
1519 #' @param uuid
1520 #' @return PipelineInstance object.
1521 #' @name pipeline_instances.show
1522 NULL
1523
1524 #' pipeline_instances.destroy is a method defined in Arvados class.
1525 #'
1526 #' @usage arv$pipeline_instances.destroy(uuid)
1527 #' @param uuid
1528 #' @return PipelineInstance object.
1529 #' @name pipeline_instances.destroy
1530 NULL
1531
1532 #' nodes.get is a method defined in Arvados class.
1533 #'
1534 #' @usage arv$nodes.get(uuid)
1535 #' @param uuid The UUID of the Node in question.
1536 #' @return Node object.
1537 #' @name nodes.get
1538 NULL
1539
1540 #' nodes.index is a method defined in Arvados class.
1541 #'
1542 #' @usage arv$nodes.index(filters = NULL,
1543 #'      where = NULL, order = NULL, select = NULL,
1544 #'      distinct = NULL, limit = "100", offset = "0",
1545 #'      count = "exact")
1546 #' @param filters
1547 #' @param where
1548 #' @param order
1549 #' @param select
1550 #' @param distinct
1551 #' @param limit
1552 #' @param offset
1553 #' @param count
1554 #' @return NodeList object.
1555 #' @name nodes.index
1556 NULL
1557
1558 #' nodes.create is a method defined in Arvados class.
1559 #'
1560 #' @usage arv$nodes.create(node, ensure_unique_name = "false",
1561 #'      assign_slot = NULL)
1562 #' @param node Node object.
1563 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1564 #' @param assign_slot assign slot and hostname
1565 #' @return Node object.
1566 #' @name nodes.create
1567 NULL
1568
1569 #' nodes.update is a method defined in Arvados class.
1570 #'
1571 #' @usage arv$nodes.update(node, uuid, assign_slot = NULL)
1572 #' @param node Node object.
1573 #' @param uuid The UUID of the Node in question.
1574 #' @param assign_slot assign slot and hostname
1575 #' @return Node object.
1576 #' @name nodes.update
1577 NULL
1578
1579 #' nodes.delete is a method defined in Arvados class.
1580 #'
1581 #' @usage arv$nodes.delete(uuid)
1582 #' @param uuid The UUID of the Node in question.
1583 #' @return Node object.
1584 #' @name nodes.delete
1585 NULL
1586
1587 #' nodes.ping is a method defined in Arvados class.
1588 #'
1589 #' @usage arv$nodes.ping(uuid, ping_secret)
1590 #' @param uuid
1591 #' @param ping_secret
1592 #' @return Node object.
1593 #' @name nodes.ping
1594 NULL
1595
1596 #' nodes.list is a method defined in Arvados class.
1597 #'
1598 #' @usage arv$nodes.list(filters = NULL,
1599 #'      where = NULL, order = NULL, select = NULL,
1600 #'      distinct = NULL, limit = "100", offset = "0",
1601 #'      count = "exact")
1602 #' @param filters
1603 #' @param where
1604 #' @param order
1605 #' @param select
1606 #' @param distinct
1607 #' @param limit
1608 #' @param offset
1609 #' @param count
1610 #' @return NodeList object.
1611 #' @name nodes.list
1612 NULL
1613
1614 #' nodes.show is a method defined in Arvados class.
1615 #'
1616 #' @usage arv$nodes.show(uuid)
1617 #' @param uuid
1618 #' @return Node object.
1619 #' @name nodes.show
1620 NULL
1621
1622 #' nodes.destroy is a method defined in Arvados class.
1623 #'
1624 #' @usage arv$nodes.destroy(uuid)
1625 #' @param uuid
1626 #' @return Node object.
1627 #' @name nodes.destroy
1628 NULL
1629
1630 #' repositories.get is a method defined in Arvados class.
1631 #'
1632 #' @usage arv$repositories.get(uuid)
1633 #' @param uuid The UUID of the Repository in question.
1634 #' @return Repository object.
1635 #' @name repositories.get
1636 NULL
1637
1638 #' repositories.index is a method defined in Arvados class.
1639 #'
1640 #' @usage arv$repositories.index(filters = NULL,
1641 #'      where = NULL, order = NULL, select = NULL,
1642 #'      distinct = NULL, limit = "100", offset = "0",
1643 #'      count = "exact")
1644 #' @param filters
1645 #' @param where
1646 #' @param order
1647 #' @param select
1648 #' @param distinct
1649 #' @param limit
1650 #' @param offset
1651 #' @param count
1652 #' @return RepositoryList object.
1653 #' @name repositories.index
1654 NULL
1655
1656 #' repositories.create is a method defined in Arvados class.
1657 #'
1658 #' @usage arv$repositories.create(repository,
1659 #'      ensure_unique_name = "false")
1660 #' @param repository Repository object.
1661 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1662 #' @return Repository object.
1663 #' @name repositories.create
1664 NULL
1665
1666 #' repositories.update is a method defined in Arvados class.
1667 #'
1668 #' @usage arv$repositories.update(repository,
1669 #'      uuid)
1670 #' @param repository Repository object.
1671 #' @param uuid The UUID of the Repository in question.
1672 #' @return Repository object.
1673 #' @name repositories.update
1674 NULL
1675
1676 #' repositories.delete is a method defined in Arvados class.
1677 #'
1678 #' @usage arv$repositories.delete(uuid)
1679 #' @param uuid The UUID of the Repository in question.
1680 #' @return Repository object.
1681 #' @name repositories.delete
1682 NULL
1683
1684 #' repositories.get_all_permissions is a method defined in Arvados class.
1685 #'
1686 #' @usage arv$repositories.get_all_permissions(NULL)
1687 #' @return Repository object.
1688 #' @name repositories.get_all_permissions
1689 NULL
1690
1691 #' repositories.list is a method defined in Arvados class.
1692 #'
1693 #' @usage arv$repositories.list(filters = NULL,
1694 #'      where = NULL, order = NULL, select = NULL,
1695 #'      distinct = NULL, limit = "100", offset = "0",
1696 #'      count = "exact")
1697 #' @param filters
1698 #' @param where
1699 #' @param order
1700 #' @param select
1701 #' @param distinct
1702 #' @param limit
1703 #' @param offset
1704 #' @param count
1705 #' @return RepositoryList object.
1706 #' @name repositories.list
1707 NULL
1708
1709 #' repositories.show is a method defined in Arvados class.
1710 #'
1711 #' @usage arv$repositories.show(uuid)
1712 #' @param uuid
1713 #' @return Repository object.
1714 #' @name repositories.show
1715 NULL
1716
1717 #' repositories.destroy is a method defined in Arvados class.
1718 #'
1719 #' @usage arv$repositories.destroy(uuid)
1720 #' @param uuid
1721 #' @return Repository object.
1722 #' @name repositories.destroy
1723 NULL
1724
1725 #' specimens.get is a method defined in Arvados class.
1726 #'
1727 #' @usage arv$specimens.get(uuid)
1728 #' @param uuid The UUID of the Specimen in question.
1729 #' @return Specimen object.
1730 #' @name specimens.get
1731 NULL
1732
1733 #' specimens.index is a method defined in Arvados class.
1734 #'
1735 #' @usage arv$specimens.index(filters = NULL,
1736 #'      where = NULL, order = NULL, select = NULL,
1737 #'      distinct = NULL, limit = "100", offset = "0",
1738 #'      count = "exact")
1739 #' @param filters
1740 #' @param where
1741 #' @param order
1742 #' @param select
1743 #' @param distinct
1744 #' @param limit
1745 #' @param offset
1746 #' @param count
1747 #' @return SpecimenList object.
1748 #' @name specimens.index
1749 NULL
1750
1751 #' specimens.create is a method defined in Arvados class.
1752 #'
1753 #' @usage arv$specimens.create(specimen,
1754 #'      ensure_unique_name = "false")
1755 #' @param specimen Specimen object.
1756 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1757 #' @return Specimen object.
1758 #' @name specimens.create
1759 NULL
1760
1761 #' specimens.update is a method defined in Arvados class.
1762 #'
1763 #' @usage arv$specimens.update(specimen,
1764 #'      uuid)
1765 #' @param specimen Specimen object.
1766 #' @param uuid The UUID of the Specimen in question.
1767 #' @return Specimen object.
1768 #' @name specimens.update
1769 NULL
1770
1771 #' specimens.delete is a method defined in Arvados class.
1772 #'
1773 #' @usage arv$specimens.delete(uuid)
1774 #' @param uuid The UUID of the Specimen in question.
1775 #' @return Specimen object.
1776 #' @name specimens.delete
1777 NULL
1778
1779 #' specimens.list is a method defined in Arvados class.
1780 #'
1781 #' @usage arv$specimens.list(filters = NULL,
1782 #'      where = NULL, order = NULL, select = NULL,
1783 #'      distinct = NULL, limit = "100", offset = "0",
1784 #'      count = "exact")
1785 #' @param filters
1786 #' @param where
1787 #' @param order
1788 #' @param select
1789 #' @param distinct
1790 #' @param limit
1791 #' @param offset
1792 #' @param count
1793 #' @return SpecimenList object.
1794 #' @name specimens.list
1795 NULL
1796
1797 #' specimens.show is a method defined in Arvados class.
1798 #'
1799 #' @usage arv$specimens.show(uuid)
1800 #' @param uuid
1801 #' @return Specimen object.
1802 #' @name specimens.show
1803 NULL
1804
1805 #' specimens.destroy is a method defined in Arvados class.
1806 #'
1807 #' @usage arv$specimens.destroy(uuid)
1808 #' @param uuid
1809 #' @return Specimen object.
1810 #' @name specimens.destroy
1811 NULL
1812
1813 #' logs.get is a method defined in Arvados class.
1814 #'
1815 #' @usage arv$logs.get(uuid)
1816 #' @param uuid The UUID of the Log in question.
1817 #' @return Log object.
1818 #' @name logs.get
1819 NULL
1820
1821 #' logs.index is a method defined in Arvados class.
1822 #'
1823 #' @usage arv$logs.index(filters = NULL,
1824 #'      where = NULL, order = NULL, select = NULL,
1825 #'      distinct = NULL, limit = "100", offset = "0",
1826 #'      count = "exact")
1827 #' @param filters
1828 #' @param where
1829 #' @param order
1830 #' @param select
1831 #' @param distinct
1832 #' @param limit
1833 #' @param offset
1834 #' @param count
1835 #' @return LogList object.
1836 #' @name logs.index
1837 NULL
1838
1839 #' logs.create is a method defined in Arvados class.
1840 #'
1841 #' @usage arv$logs.create(log, ensure_unique_name = "false")
1842 #' @param log Log object.
1843 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1844 #' @return Log object.
1845 #' @name logs.create
1846 NULL
1847
1848 #' logs.update is a method defined in Arvados class.
1849 #'
1850 #' @usage arv$logs.update(log, uuid)
1851 #' @param log Log object.
1852 #' @param uuid The UUID of the Log in question.
1853 #' @return Log object.
1854 #' @name logs.update
1855 NULL
1856
1857 #' logs.delete is a method defined in Arvados class.
1858 #'
1859 #' @usage arv$logs.delete(uuid)
1860 #' @param uuid The UUID of the Log in question.
1861 #' @return Log object.
1862 #' @name logs.delete
1863 NULL
1864
1865 #' logs.list is a method defined in Arvados class.
1866 #'
1867 #' @usage arv$logs.list(filters = NULL, where = NULL,
1868 #'      order = NULL, select = NULL, distinct = NULL,
1869 #'      limit = "100", offset = "0", count = "exact")
1870 #' @param filters
1871 #' @param where
1872 #' @param order
1873 #' @param select
1874 #' @param distinct
1875 #' @param limit
1876 #' @param offset
1877 #' @param count
1878 #' @return LogList object.
1879 #' @name logs.list
1880 NULL
1881
1882 #' logs.show is a method defined in Arvados class.
1883 #'
1884 #' @usage arv$logs.show(uuid)
1885 #' @param uuid
1886 #' @return Log object.
1887 #' @name logs.show
1888 NULL
1889
1890 #' logs.destroy is a method defined in Arvados class.
1891 #'
1892 #' @usage arv$logs.destroy(uuid)
1893 #' @param uuid
1894 #' @return Log object.
1895 #' @name logs.destroy
1896 NULL
1897
1898 #' traits.get is a method defined in Arvados class.
1899 #'
1900 #' @usage arv$traits.get(uuid)
1901 #' @param uuid The UUID of the Trait in question.
1902 #' @return Trait object.
1903 #' @name traits.get
1904 NULL
1905
1906 #' traits.index is a method defined in Arvados class.
1907 #'
1908 #' @usage arv$traits.index(filters = NULL,
1909 #'      where = NULL, order = NULL, select = NULL,
1910 #'      distinct = NULL, limit = "100", offset = "0",
1911 #'      count = "exact")
1912 #' @param filters
1913 #' @param where
1914 #' @param order
1915 #' @param select
1916 #' @param distinct
1917 #' @param limit
1918 #' @param offset
1919 #' @param count
1920 #' @return TraitList object.
1921 #' @name traits.index
1922 NULL
1923
1924 #' traits.create is a method defined in Arvados class.
1925 #'
1926 #' @usage arv$traits.create(trait, ensure_unique_name = "false")
1927 #' @param trait Trait object.
1928 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
1929 #' @return Trait object.
1930 #' @name traits.create
1931 NULL
1932
1933 #' traits.update is a method defined in Arvados class.
1934 #'
1935 #' @usage arv$traits.update(trait, uuid)
1936 #' @param trait Trait object.
1937 #' @param uuid The UUID of the Trait in question.
1938 #' @return Trait object.
1939 #' @name traits.update
1940 NULL
1941
1942 #' traits.delete is a method defined in Arvados class.
1943 #'
1944 #' @usage arv$traits.delete(uuid)
1945 #' @param uuid The UUID of the Trait in question.
1946 #' @return Trait object.
1947 #' @name traits.delete
1948 NULL
1949
1950 #' traits.list is a method defined in Arvados class.
1951 #'
1952 #' @usage arv$traits.list(filters = NULL,
1953 #'      where = NULL, order = NULL, select = NULL,
1954 #'      distinct = NULL, limit = "100", offset = "0",
1955 #'      count = "exact")
1956 #' @param filters
1957 #' @param where
1958 #' @param order
1959 #' @param select
1960 #' @param distinct
1961 #' @param limit
1962 #' @param offset
1963 #' @param count
1964 #' @return TraitList object.
1965 #' @name traits.list
1966 NULL
1967
1968 #' traits.show is a method defined in Arvados class.
1969 #'
1970 #' @usage arv$traits.show(uuid)
1971 #' @param uuid
1972 #' @return Trait object.
1973 #' @name traits.show
1974 NULL
1975
1976 #' traits.destroy is a method defined in Arvados class.
1977 #'
1978 #' @usage arv$traits.destroy(uuid)
1979 #' @param uuid
1980 #' @return Trait object.
1981 #' @name traits.destroy
1982 NULL
1983
1984 #' virtual_machines.get is a method defined in Arvados class.
1985 #'
1986 #' @usage arv$virtual_machines.get(uuid)
1987 #' @param uuid The UUID of the VirtualMachine in question.
1988 #' @return VirtualMachine object.
1989 #' @name virtual_machines.get
1990 NULL
1991
1992 #' virtual_machines.index is a method defined in Arvados class.
1993 #'
1994 #' @usage arv$virtual_machines.index(filters = NULL,
1995 #'      where = NULL, order = NULL, select = NULL,
1996 #'      distinct = NULL, limit = "100", offset = "0",
1997 #'      count = "exact")
1998 #' @param filters
1999 #' @param where
2000 #' @param order
2001 #' @param select
2002 #' @param distinct
2003 #' @param limit
2004 #' @param offset
2005 #' @param count
2006 #' @return VirtualMachineList object.
2007 #' @name virtual_machines.index
2008 NULL
2009
2010 #' virtual_machines.create is a method defined in Arvados class.
2011 #'
2012 #' @usage arv$virtual_machines.create(virtual_machine,
2013 #'      ensure_unique_name = "false")
2014 #' @param virtualMachine VirtualMachine object.
2015 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
2016 #' @return VirtualMachine object.
2017 #' @name virtual_machines.create
2018 NULL
2019
2020 #' virtual_machines.update is a method defined in Arvados class.
2021 #'
2022 #' @usage arv$virtual_machines.update(virtual_machine,
2023 #'      uuid)
2024 #' @param virtualMachine VirtualMachine object.
2025 #' @param uuid The UUID of the VirtualMachine in question.
2026 #' @return VirtualMachine object.
2027 #' @name virtual_machines.update
2028 NULL
2029
2030 #' virtual_machines.delete is a method defined in Arvados class.
2031 #'
2032 #' @usage arv$virtual_machines.delete(uuid)
2033 #' @param uuid The UUID of the VirtualMachine in question.
2034 #' @return VirtualMachine object.
2035 #' @name virtual_machines.delete
2036 NULL
2037
2038 #' virtual_machines.logins is a method defined in Arvados class.
2039 #'
2040 #' @usage arv$virtual_machines.logins(uuid)
2041 #' @param uuid
2042 #' @return VirtualMachine object.
2043 #' @name virtual_machines.logins
2044 NULL
2045
2046 #' virtual_machines.get_all_logins is a method defined in Arvados class.
2047 #'
2048 #' @usage arv$virtual_machines.get_all_logins(NULL)
2049 #' @return VirtualMachine object.
2050 #' @name virtual_machines.get_all_logins
2051 NULL
2052
2053 #' virtual_machines.list is a method defined in Arvados class.
2054 #'
2055 #' @usage arv$virtual_machines.list(filters = NULL,
2056 #'      where = NULL, order = NULL, select = NULL,
2057 #'      distinct = NULL, limit = "100", offset = "0",
2058 #'      count = "exact")
2059 #' @param filters
2060 #' @param where
2061 #' @param order
2062 #' @param select
2063 #' @param distinct
2064 #' @param limit
2065 #' @param offset
2066 #' @param count
2067 #' @return VirtualMachineList object.
2068 #' @name virtual_machines.list
2069 NULL
2070
2071 #' virtual_machines.show is a method defined in Arvados class.
2072 #'
2073 #' @usage arv$virtual_machines.show(uuid)
2074 #' @param uuid
2075 #' @return VirtualMachine object.
2076 #' @name virtual_machines.show
2077 NULL
2078
2079 #' virtual_machines.destroy is a method defined in Arvados class.
2080 #'
2081 #' @usage arv$virtual_machines.destroy(uuid)
2082 #' @param uuid
2083 #' @return VirtualMachine object.
2084 #' @name virtual_machines.destroy
2085 NULL
2086
2087 #' workflows.get is a method defined in Arvados class.
2088 #'
2089 #' @usage arv$workflows.get(uuid)
2090 #' @param uuid The UUID of the Workflow in question.
2091 #' @return Workflow object.
2092 #' @name workflows.get
2093 NULL
2094
2095 #' workflows.index is a method defined in Arvados class.
2096 #'
2097 #' @usage arv$workflows.index(filters = NULL,
2098 #'      where = NULL, order = NULL, select = NULL,
2099 #'      distinct = NULL, limit = "100", offset = "0",
2100 #'      count = "exact")
2101 #' @param filters
2102 #' @param where
2103 #' @param order
2104 #' @param select
2105 #' @param distinct
2106 #' @param limit
2107 #' @param offset
2108 #' @param count
2109 #' @return WorkflowList object.
2110 #' @name workflows.index
2111 NULL
2112
2113 #' workflows.create is a method defined in Arvados class.
2114 #'
2115 #' @usage arv$workflows.create(workflow,
2116 #'      ensure_unique_name = "false")
2117 #' @param workflow Workflow object.
2118 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
2119 #' @return Workflow object.
2120 #' @name workflows.create
2121 NULL
2122
2123 #' workflows.update is a method defined in Arvados class.
2124 #'
2125 #' @usage arv$workflows.update(workflow,
2126 #'      uuid)
2127 #' @param workflow Workflow object.
2128 #' @param uuid The UUID of the Workflow in question.
2129 #' @return Workflow object.
2130 #' @name workflows.update
2131 NULL
2132
2133 #' workflows.delete is a method defined in Arvados class.
2134 #'
2135 #' @usage arv$workflows.delete(uuid)
2136 #' @param uuid The UUID of the Workflow in question.
2137 #' @return Workflow object.
2138 #' @name workflows.delete
2139 NULL
2140
2141 #' workflows.list is a method defined in Arvados class.
2142 #'
2143 #' @usage arv$workflows.list(filters = NULL,
2144 #'      where = NULL, order = NULL, select = NULL,
2145 #'      distinct = NULL, limit = "100", offset = "0",
2146 #'      count = "exact")
2147 #' @param filters
2148 #' @param where
2149 #' @param order
2150 #' @param select
2151 #' @param distinct
2152 #' @param limit
2153 #' @param offset
2154 #' @param count
2155 #' @return WorkflowList object.
2156 #' @name workflows.list
2157 NULL
2158
2159 #' workflows.show is a method defined in Arvados class.
2160 #'
2161 #' @usage arv$workflows.show(uuid)
2162 #' @param uuid
2163 #' @return Workflow object.
2164 #' @name workflows.show
2165 NULL
2166
2167 #' workflows.destroy is a method defined in Arvados class.
2168 #'
2169 #' @usage arv$workflows.destroy(uuid)
2170 #' @param uuid
2171 #' @return Workflow object.
2172 #' @name workflows.destroy
2173 NULL
2174
2175 #' groups.get is a method defined in Arvados class.
2176 #'
2177 #' @usage arv$groups.get(uuid)
2178 #' @param uuid The UUID of the Group in question.
2179 #' @return Group object.
2180 #' @name groups.get
2181 NULL
2182
2183 #' groups.index is a method defined in Arvados class.
2184 #'
2185 #' @usage arv$groups.index(filters = NULL,
2186 #'      where = NULL, order = NULL, select = NULL,
2187 #'      distinct = NULL, limit = "100", offset = "0",
2188 #'      count = "exact", include_trash = NULL)
2189 #' @param filters
2190 #' @param where
2191 #' @param order
2192 #' @param select
2193 #' @param distinct
2194 #' @param limit
2195 #' @param offset
2196 #' @param count
2197 #' @param include_trash Include items whose is_trashed attribute is true.
2198 #' @return GroupList object.
2199 #' @name groups.index
2200 NULL
2201
2202 #' groups.create is a method defined in Arvados class.
2203 #'
2204 #' @usage arv$groups.create(group, ensure_unique_name = "false")
2205 #' @param group Group object.
2206 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
2207 #' @return Group object.
2208 #' @name groups.create
2209 NULL
2210
2211 #' groups.update is a method defined in Arvados class.
2212 #'
2213 #' @usage arv$groups.update(group, uuid)
2214 #' @param group Group object.
2215 #' @param uuid The UUID of the Group in question.
2216 #' @return Group object.
2217 #' @name groups.update
2218 NULL
2219
2220 #' groups.delete is a method defined in Arvados class.
2221 #'
2222 #' @usage arv$groups.delete(uuid)
2223 #' @param uuid The UUID of the Group in question.
2224 #' @return Group object.
2225 #' @name groups.delete
2226 NULL
2227
2228 #' groups.contents is a method defined in Arvados class.
2229 #'
2230 #' @usage arv$groups.contents(filters = NULL,
2231 #'      where = NULL, order = NULL, distinct = NULL,
2232 #'      limit = "100", offset = "0", count = "exact",
2233 #'      include_trash = NULL, uuid = NULL, recursive = NULL)
2234 #' @param filters
2235 #' @param where
2236 #' @param order
2237 #' @param distinct
2238 #' @param limit
2239 #' @param offset
2240 #' @param count
2241 #' @param include_trash Include items whose is_trashed attribute is true.
2242 #' @param uuid
2243 #' @param recursive Include contents from child groups recursively.
2244 #' @return Group object.
2245 #' @name groups.contents
2246 NULL
2247
2248 #' groups.trash is a method defined in Arvados class.
2249 #'
2250 #' @usage arv$groups.trash(uuid)
2251 #' @param uuid
2252 #' @return Group object.
2253 #' @name groups.trash
2254 NULL
2255
2256 #' groups.untrash is a method defined in Arvados class.
2257 #'
2258 #' @usage arv$groups.untrash(uuid)
2259 #' @param uuid
2260 #' @return Group object.
2261 #' @name groups.untrash
2262 NULL
2263
2264 #' groups.list is a method defined in Arvados class.
2265 #'
2266 #' @usage arv$groups.list(filters = NULL,
2267 #'      where = NULL, order = NULL, select = NULL,
2268 #'      distinct = NULL, limit = "100", offset = "0",
2269 #'      count = "exact", include_trash = NULL)
2270 #' @param filters
2271 #' @param where
2272 #' @param order
2273 #' @param select
2274 #' @param distinct
2275 #' @param limit
2276 #' @param offset
2277 #' @param count
2278 #' @param include_trash Include items whose is_trashed attribute is true.
2279 #' @return GroupList object.
2280 #' @name groups.list
2281 NULL
2282
2283 #' groups.show is a method defined in Arvados class.
2284 #'
2285 #' @usage arv$groups.show(uuid)
2286 #' @param uuid
2287 #' @return Group object.
2288 #' @name groups.show
2289 NULL
2290
2291 #' groups.destroy is a method defined in Arvados class.
2292 #'
2293 #' @usage arv$groups.destroy(uuid)
2294 #' @param uuid
2295 #' @return Group object.
2296 #' @name groups.destroy
2297 NULL
2298
2299 #' user_agreements.get is a method defined in Arvados class.
2300 #'
2301 #' @usage arv$user_agreements.get(uuid)
2302 #' @param uuid The UUID of the UserAgreement in question.
2303 #' @return UserAgreement object.
2304 #' @name user_agreements.get
2305 NULL
2306
2307 #' user_agreements.index is a method defined in Arvados class.
2308 #'
2309 #' @usage arv$user_agreements.index(filters = NULL,
2310 #'      where = NULL, order = NULL, select = NULL,
2311 #'      distinct = NULL, limit = "100", offset = "0",
2312 #'      count = "exact")
2313 #' @param filters
2314 #' @param where
2315 #' @param order
2316 #' @param select
2317 #' @param distinct
2318 #' @param limit
2319 #' @param offset
2320 #' @param count
2321 #' @return UserAgreementList object.
2322 #' @name user_agreements.index
2323 NULL
2324
2325 #' user_agreements.create is a method defined in Arvados class.
2326 #'
2327 #' @usage arv$user_agreements.create(user_agreement,
2328 #'      ensure_unique_name = "false")
2329 #' @param userAgreement UserAgreement object.
2330 #' @param ensure_unique_name Adjust name to ensure uniqueness instead of returning an error on (owner_uuid, name) collision.
2331 #' @return UserAgreement object.
2332 #' @name user_agreements.create
2333 NULL
2334
2335 #' user_agreements.update is a method defined in Arvados class.
2336 #'
2337 #' @usage arv$user_agreements.update(user_agreement,
2338 #'      uuid)
2339 #' @param userAgreement UserAgreement object.
2340 #' @param uuid The UUID of the UserAgreement in question.
2341 #' @return UserAgreement object.
2342 #' @name user_agreements.update
2343 NULL
2344
2345 #' user_agreements.delete is a method defined in Arvados class.
2346 #'
2347 #' @usage arv$user_agreements.delete(uuid)
2348 #' @param uuid The UUID of the UserAgreement in question.
2349 #' @return UserAgreement object.
2350 #' @name user_agreements.delete
2351 NULL
2352
2353 #' user_agreements.signatures is a method defined in Arvados class.
2354 #'
2355 #' @usage arv$user_agreements.signatures(NULL)
2356 #' @return UserAgreement object.
2357 #' @name user_agreements.signatures
2358 NULL
2359
2360 #' user_agreements.sign is a method defined in Arvados class.
2361 #'
2362 #' @usage arv$user_agreements.sign(NULL)
2363 #' @return UserAgreement object.
2364 #' @name user_agreements.sign
2365 NULL
2366
2367 #' user_agreements.list is a method defined in Arvados class.
2368 #'
2369 #' @usage arv$user_agreements.list(filters = NULL,
2370 #'      where = NULL, order = NULL, select = NULL,
2371 #'      distinct = NULL, limit = "100", offset = "0",
2372 #'      count = "exact")
2373 #' @param filters
2374 #' @param where
2375 #' @param order
2376 #' @param select
2377 #' @param distinct
2378 #' @param limit
2379 #' @param offset
2380 #' @param count
2381 #' @return UserAgreementList object.
2382 #' @name user_agreements.list
2383 NULL
2384
2385 #' user_agreements.new is a method defined in Arvados class.
2386 #'
2387 #' @usage arv$user_agreements.new(NULL)
2388 #' @return UserAgreement object.
2389 #' @name user_agreements.new
2390 NULL
2391
2392 #' user_agreements.show is a method defined in Arvados class.
2393 #'
2394 #' @usage arv$user_agreements.show(uuid)
2395 #' @param uuid
2396 #' @return UserAgreement object.
2397 #' @name user_agreements.show
2398 NULL
2399
2400 #' user_agreements.destroy is a method defined in Arvados class.
2401 #'
2402 #' @usage arv$user_agreements.destroy(uuid)
2403 #' @param uuid
2404 #' @return UserAgreement object.
2405 #' @name user_agreements.destroy
2406 NULL
2407
2408 #' @export
2409 Arvados <- R6::R6Class(
2410
2411         "Arvados",
2412
2413         public = list(
2414
2415                 initialize = function(authToken = NULL, hostName = NULL, numRetries = 0)
2416                 {
2417                         if(!is.null(hostName))
2418                                 Sys.setenv(ARVADOS_API_HOST = hostName)
2419
2420                         if(!is.null(authToken))
2421                                 Sys.setenv(ARVADOS_API_TOKEN = authToken)
2422
2423                         hostName <- Sys.getenv("ARVADOS_API_HOST")
2424                         token    <- Sys.getenv("ARVADOS_API_TOKEN")
2425
2426                         if(hostName == "" | token == "")
2427                                 stop(paste("Please provide host name and authentification token",
2428                                                    "or set ARVADOS_API_HOST and ARVADOS_API_TOKEN",
2429                                                    "environment variables."))
2430
2431                         private$token <- token
2432                         private$host  <- paste0("https://", hostName, "/arvados/v1/")
2433                         private$numRetries <- numRetries
2434                         private$REST <- RESTService$new(token, hostName,
2435                                                         HttpRequest$new(), HttpParser$new(),
2436                                                         numRetries)
2437
2438                 },
2439
2440                 users.get = function(uuid)
2441                 {
2442                         endPoint <- stringr::str_interp("users/${uuid}")
2443                         url <- paste0(private$host, endPoint)
2444                         headers <- list(Authorization = paste("OAuth2", private$token),
2445                                         "Content-Type" = "application/json")
2446                         queryArgs <- list(uuid = uuid)
2447                         body <- NULL
2448
2449                         response <- private$REST$http$exec("GET", url, headers, body,
2450                                                            queryArgs, private$numRetries)
2451                         resource <- private$REST$httpParser$parseJSONResponse(response)
2452
2453                         if(!is.null(resource$errors))
2454                                 stop(resource$errors)
2455
2456                         result <- User$new(uuid = resource$uuid,
2457                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
2458                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
2459                                 modified_by_user_uuid = resource$modified_by_user_uuid,
2460                                 modified_at = resource$modified_at, email = resource$email,
2461                                 first_name = resource$first_name, last_name = resource$last_name,
2462                                 identity_url = resource$identity_url, is_admin = resource$is_admin,
2463                                 prefs = resource$prefs, updated_at = resource$updated_at,
2464                                 default_owner_uuid = resource$default_owner_uuid,
2465                                 is_active = resource$is_active, username = resource$username)
2466
2467                         if(result$isEmpty())
2468                                 resource
2469                         else
2470                                 result
2471                 },
2472
2473                 users.index = function(filters = NULL, where = NULL,
2474                         order = NULL, select = NULL, distinct = NULL,
2475                         limit = "100", offset = "0", count = "exact")
2476                 {
2477                         endPoint <- stringr::str_interp("users")
2478                         url <- paste0(private$host, endPoint)
2479                         headers <- list(Authorization = paste("OAuth2", private$token),
2480                                         "Content-Type" = "application/json")
2481                         queryArgs <- list(filters = filters, where = where,
2482                                 order = order, select = select, distinct = distinct,
2483                                 limit = limit, offset = offset, count = count)
2484                         body <- NULL
2485
2486                         response <- private$REST$http$exec("GET", url, headers, body,
2487                                                            queryArgs, private$numRetries)
2488                         resource <- private$REST$httpParser$parseJSONResponse(response)
2489
2490                         if(!is.null(resource$errors))
2491                                 stop(resource$errors)
2492
2493                         result <- UserList$new(kind = resource$kind,
2494                                 etag = resource$etag, items = resource$items,
2495                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
2496                                 selfLink = resource$selfLink)
2497
2498                         if(result$isEmpty())
2499                                 resource
2500                         else
2501                                 result
2502                 },
2503
2504                 users.create = function(user, ensure_unique_name = "false")
2505                 {
2506                         endPoint <- stringr::str_interp("users")
2507                         url <- paste0(private$host, endPoint)
2508                         headers <- list(Authorization = paste("OAuth2", private$token),
2509                                         "Content-Type" = "application/json")
2510                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
2511                         body <- user$toJSON()
2512
2513                         response <- private$REST$http$exec("POST", url, headers, body,
2514                                                            queryArgs, private$numRetries)
2515                         resource <- private$REST$httpParser$parseJSONResponse(response)
2516
2517                         if(!is.null(resource$errors))
2518                                 stop(resource$errors)
2519
2520                         result <- User$new(uuid = resource$uuid,
2521                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
2522                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
2523                                 modified_by_user_uuid = resource$modified_by_user_uuid,
2524                                 modified_at = resource$modified_at, email = resource$email,
2525                                 first_name = resource$first_name, last_name = resource$last_name,
2526                                 identity_url = resource$identity_url, is_admin = resource$is_admin,
2527                                 prefs = resource$prefs, updated_at = resource$updated_at,
2528                                 default_owner_uuid = resource$default_owner_uuid,
2529                                 is_active = resource$is_active, username = resource$username)
2530
2531                         if(result$isEmpty())
2532                                 resource
2533                         else
2534                                 result
2535                 },
2536
2537                 users.update = function(user, uuid)
2538                 {
2539                         endPoint <- stringr::str_interp("users/${uuid}")
2540                         url <- paste0(private$host, endPoint)
2541                         headers <- list(Authorization = paste("OAuth2", private$token),
2542                                         "Content-Type" = "application/json")
2543                         queryArgs <- list(uuid = uuid)
2544                         body <- user$toJSON()
2545
2546                         response <- private$REST$http$exec("PUT", url, headers, body,
2547                                                            queryArgs, private$numRetries)
2548                         resource <- private$REST$httpParser$parseJSONResponse(response)
2549
2550                         if(!is.null(resource$errors))
2551                                 stop(resource$errors)
2552
2553                         result <- User$new(uuid = resource$uuid,
2554                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
2555                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
2556                                 modified_by_user_uuid = resource$modified_by_user_uuid,
2557                                 modified_at = resource$modified_at, email = resource$email,
2558                                 first_name = resource$first_name, last_name = resource$last_name,
2559                                 identity_url = resource$identity_url, is_admin = resource$is_admin,
2560                                 prefs = resource$prefs, updated_at = resource$updated_at,
2561                                 default_owner_uuid = resource$default_owner_uuid,
2562                                 is_active = resource$is_active, username = resource$username)
2563
2564                         if(result$isEmpty())
2565                                 resource
2566                         else
2567                                 result
2568                 },
2569
2570                 users.delete = function(uuid)
2571                 {
2572                         endPoint <- stringr::str_interp("users/${uuid}")
2573                         url <- paste0(private$host, endPoint)
2574                         headers <- list(Authorization = paste("OAuth2", private$token),
2575                                         "Content-Type" = "application/json")
2576                         queryArgs <- list(uuid = uuid)
2577                         body <- NULL
2578
2579                         response <- private$REST$http$exec("DELETE", url, headers, body,
2580                                                            queryArgs, private$numRetries)
2581                         resource <- private$REST$httpParser$parseJSONResponse(response)
2582
2583                         if(!is.null(resource$errors))
2584                                 stop(resource$errors)
2585
2586                         result <- User$new(uuid = resource$uuid,
2587                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
2588                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
2589                                 modified_by_user_uuid = resource$modified_by_user_uuid,
2590                                 modified_at = resource$modified_at, email = resource$email,
2591                                 first_name = resource$first_name, last_name = resource$last_name,
2592                                 identity_url = resource$identity_url, is_admin = resource$is_admin,
2593                                 prefs = resource$prefs, updated_at = resource$updated_at,
2594                                 default_owner_uuid = resource$default_owner_uuid,
2595                                 is_active = resource$is_active, username = resource$username)
2596
2597                         if(result$isEmpty())
2598                                 resource
2599                         else
2600                                 result
2601                 },
2602
2603                 users.current = function()
2604                 {
2605                         endPoint <- stringr::str_interp("users/current")
2606                         url <- paste0(private$host, endPoint)
2607                         headers <- list(Authorization = paste("OAuth2", private$token),
2608                                         "Content-Type" = "application/json")
2609                         queryArgs <- NULL
2610                         body <- NULL
2611
2612                         response <- private$REST$http$exec("GET", url, headers, body,
2613                                                            queryArgs, private$numRetries)
2614                         resource <- private$REST$httpParser$parseJSONResponse(response)
2615
2616                         if(!is.null(resource$errors))
2617                                 stop(resource$errors)
2618
2619                         result <- User$new(uuid = resource$uuid,
2620                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
2621                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
2622                                 modified_by_user_uuid = resource$modified_by_user_uuid,
2623                                 modified_at = resource$modified_at, email = resource$email,
2624                                 first_name = resource$first_name, last_name = resource$last_name,
2625                                 identity_url = resource$identity_url, is_admin = resource$is_admin,
2626                                 prefs = resource$prefs, updated_at = resource$updated_at,
2627                                 default_owner_uuid = resource$default_owner_uuid,
2628                                 is_active = resource$is_active, username = resource$username)
2629
2630                         if(result$isEmpty())
2631                                 resource
2632                         else
2633                                 result
2634                 },
2635
2636                 users.system = function()
2637                 {
2638                         endPoint <- stringr::str_interp("users/system")
2639                         url <- paste0(private$host, endPoint)
2640                         headers <- list(Authorization = paste("OAuth2", private$token),
2641                                         "Content-Type" = "application/json")
2642                         queryArgs <- NULL
2643                         body <- NULL
2644
2645                         response <- private$REST$http$exec("GET", url, headers, body,
2646                                                            queryArgs, private$numRetries)
2647                         resource <- private$REST$httpParser$parseJSONResponse(response)
2648
2649                         if(!is.null(resource$errors))
2650                                 stop(resource$errors)
2651
2652                         result <- User$new(uuid = resource$uuid,
2653                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
2654                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
2655                                 modified_by_user_uuid = resource$modified_by_user_uuid,
2656                                 modified_at = resource$modified_at, email = resource$email,
2657                                 first_name = resource$first_name, last_name = resource$last_name,
2658                                 identity_url = resource$identity_url, is_admin = resource$is_admin,
2659                                 prefs = resource$prefs, updated_at = resource$updated_at,
2660                                 default_owner_uuid = resource$default_owner_uuid,
2661                                 is_active = resource$is_active, username = resource$username)
2662
2663                         if(result$isEmpty())
2664                                 resource
2665                         else
2666                                 result
2667                 },
2668
2669                 users.activate = function(uuid)
2670                 {
2671                         endPoint <- stringr::str_interp("users/${uuid}/activate")
2672                         url <- paste0(private$host, endPoint)
2673                         headers <- list(Authorization = paste("OAuth2", private$token),
2674                                         "Content-Type" = "application/json")
2675                         queryArgs <- list(uuid = uuid)
2676                         body <- NULL
2677
2678                         response <- private$REST$http$exec("POST", url, headers, body,
2679                                                            queryArgs, private$numRetries)
2680                         resource <- private$REST$httpParser$parseJSONResponse(response)
2681
2682                         if(!is.null(resource$errors))
2683                                 stop(resource$errors)
2684
2685                         result <- User$new(uuid = resource$uuid,
2686                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
2687                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
2688                                 modified_by_user_uuid = resource$modified_by_user_uuid,
2689                                 modified_at = resource$modified_at, email = resource$email,
2690                                 first_name = resource$first_name, last_name = resource$last_name,
2691                                 identity_url = resource$identity_url, is_admin = resource$is_admin,
2692                                 prefs = resource$prefs, updated_at = resource$updated_at,
2693                                 default_owner_uuid = resource$default_owner_uuid,
2694                                 is_active = resource$is_active, username = resource$username)
2695
2696                         if(result$isEmpty())
2697                                 resource
2698                         else
2699                                 result
2700                 },
2701
2702                 users.setup = function(user = NULL, openid_prefix = NULL,
2703                         repo_name = NULL, vm_uuid = NULL, send_notification_email = "false")
2704                 {
2705                         endPoint <- stringr::str_interp("users/setup")
2706                         url <- paste0(private$host, endPoint)
2707                         headers <- list(Authorization = paste("OAuth2", private$token),
2708                                         "Content-Type" = "application/json")
2709                         queryArgs <- list(user = user, openid_prefix = openid_prefix,
2710                                 repo_name = repo_name, vm_uuid = vm_uuid,
2711                                 send_notification_email = send_notification_email)
2712                         body <- NULL
2713
2714                         response <- private$REST$http$exec("POST", url, headers, body,
2715                                                            queryArgs, private$numRetries)
2716                         resource <- private$REST$httpParser$parseJSONResponse(response)
2717
2718                         if(!is.null(resource$errors))
2719                                 stop(resource$errors)
2720
2721                         result <- User$new(uuid = resource$uuid,
2722                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
2723                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
2724                                 modified_by_user_uuid = resource$modified_by_user_uuid,
2725                                 modified_at = resource$modified_at, email = resource$email,
2726                                 first_name = resource$first_name, last_name = resource$last_name,
2727                                 identity_url = resource$identity_url, is_admin = resource$is_admin,
2728                                 prefs = resource$prefs, updated_at = resource$updated_at,
2729                                 default_owner_uuid = resource$default_owner_uuid,
2730                                 is_active = resource$is_active, username = resource$username)
2731
2732                         if(result$isEmpty())
2733                                 resource
2734                         else
2735                                 result
2736                 },
2737
2738                 users.unsetup = function(uuid)
2739                 {
2740                         endPoint <- stringr::str_interp("users/${uuid}/unsetup")
2741                         url <- paste0(private$host, endPoint)
2742                         headers <- list(Authorization = paste("OAuth2", private$token),
2743                                         "Content-Type" = "application/json")
2744                         queryArgs <- list(uuid = uuid)
2745                         body <- NULL
2746
2747                         response <- private$REST$http$exec("POST", url, headers, body,
2748                                                            queryArgs, private$numRetries)
2749                         resource <- private$REST$httpParser$parseJSONResponse(response)
2750
2751                         if(!is.null(resource$errors))
2752                                 stop(resource$errors)
2753
2754                         result <- User$new(uuid = resource$uuid,
2755                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
2756                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
2757                                 modified_by_user_uuid = resource$modified_by_user_uuid,
2758                                 modified_at = resource$modified_at, email = resource$email,
2759                                 first_name = resource$first_name, last_name = resource$last_name,
2760                                 identity_url = resource$identity_url, is_admin = resource$is_admin,
2761                                 prefs = resource$prefs, updated_at = resource$updated_at,
2762                                 default_owner_uuid = resource$default_owner_uuid,
2763                                 is_active = resource$is_active, username = resource$username)
2764
2765                         if(result$isEmpty())
2766                                 resource
2767                         else
2768                                 result
2769                 },
2770
2771                 users.update_uuid = function(uuid, new_uuid)
2772                 {
2773                         endPoint <- stringr::str_interp("users/${uuid}/update_uuid")
2774                         url <- paste0(private$host, endPoint)
2775                         headers <- list(Authorization = paste("OAuth2", private$token),
2776                                         "Content-Type" = "application/json")
2777                         queryArgs <- list(uuid = uuid, new_uuid = new_uuid)
2778                         body <- NULL
2779
2780                         response <- private$REST$http$exec("POST", url, headers, body,
2781                                                            queryArgs, private$numRetries)
2782                         resource <- private$REST$httpParser$parseJSONResponse(response)
2783
2784                         if(!is.null(resource$errors))
2785                                 stop(resource$errors)
2786
2787                         result <- User$new(uuid = resource$uuid,
2788                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
2789                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
2790                                 modified_by_user_uuid = resource$modified_by_user_uuid,
2791                                 modified_at = resource$modified_at, email = resource$email,
2792                                 first_name = resource$first_name, last_name = resource$last_name,
2793                                 identity_url = resource$identity_url, is_admin = resource$is_admin,
2794                                 prefs = resource$prefs, updated_at = resource$updated_at,
2795                                 default_owner_uuid = resource$default_owner_uuid,
2796                                 is_active = resource$is_active, username = resource$username)
2797
2798                         if(result$isEmpty())
2799                                 resource
2800                         else
2801                                 result
2802                 },
2803
2804                 users.list = function(filters = NULL, where = NULL,
2805                         order = NULL, select = NULL, distinct = NULL,
2806                         limit = "100", offset = "0", count = "exact")
2807                 {
2808                         endPoint <- stringr::str_interp("users")
2809                         url <- paste0(private$host, endPoint)
2810                         headers <- list(Authorization = paste("OAuth2", private$token),
2811                                         "Content-Type" = "application/json")
2812                         queryArgs <- list(filters = filters, where = where,
2813                                 order = order, select = select, distinct = distinct,
2814                                 limit = limit, offset = offset, count = count)
2815                         body <- NULL
2816
2817                         response <- private$REST$http$exec("GET", url, headers, body,
2818                                                            queryArgs, private$numRetries)
2819                         resource <- private$REST$httpParser$parseJSONResponse(response)
2820
2821                         if(!is.null(resource$errors))
2822                                 stop(resource$errors)
2823
2824                         result <- UserList$new(kind = resource$kind,
2825                                 etag = resource$etag, items = resource$items,
2826                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
2827                                 selfLink = resource$selfLink)
2828
2829                         if(result$isEmpty())
2830                                 resource
2831                         else
2832                                 result
2833                 },
2834
2835                 users.show = function(uuid)
2836                 {
2837                         endPoint <- stringr::str_interp("users/${uuid}")
2838                         url <- paste0(private$host, endPoint)
2839                         headers <- list(Authorization = paste("OAuth2", private$token),
2840                                         "Content-Type" = "application/json")
2841                         queryArgs <- list(uuid = uuid)
2842                         body <- NULL
2843
2844                         response <- private$REST$http$exec("GET", url, headers, body,
2845                                                            queryArgs, private$numRetries)
2846                         resource <- private$REST$httpParser$parseJSONResponse(response)
2847
2848                         if(!is.null(resource$errors))
2849                                 stop(resource$errors)
2850
2851                         result <- User$new(uuid = resource$uuid,
2852                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
2853                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
2854                                 modified_by_user_uuid = resource$modified_by_user_uuid,
2855                                 modified_at = resource$modified_at, email = resource$email,
2856                                 first_name = resource$first_name, last_name = resource$last_name,
2857                                 identity_url = resource$identity_url, is_admin = resource$is_admin,
2858                                 prefs = resource$prefs, updated_at = resource$updated_at,
2859                                 default_owner_uuid = resource$default_owner_uuid,
2860                                 is_active = resource$is_active, username = resource$username)
2861
2862                         if(result$isEmpty())
2863                                 resource
2864                         else
2865                                 result
2866                 },
2867
2868                 users.destroy = function(uuid)
2869                 {
2870                         endPoint <- stringr::str_interp("users/${uuid}")
2871                         url <- paste0(private$host, endPoint)
2872                         headers <- list(Authorization = paste("OAuth2", private$token),
2873                                         "Content-Type" = "application/json")
2874                         queryArgs <- list(uuid = uuid)
2875                         body <- NULL
2876
2877                         response <- private$REST$http$exec("DELETE", url, headers, body,
2878                                                            queryArgs, private$numRetries)
2879                         resource <- private$REST$httpParser$parseJSONResponse(response)
2880
2881                         if(!is.null(resource$errors))
2882                                 stop(resource$errors)
2883
2884                         result <- User$new(uuid = resource$uuid,
2885                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
2886                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
2887                                 modified_by_user_uuid = resource$modified_by_user_uuid,
2888                                 modified_at = resource$modified_at, email = resource$email,
2889                                 first_name = resource$first_name, last_name = resource$last_name,
2890                                 identity_url = resource$identity_url, is_admin = resource$is_admin,
2891                                 prefs = resource$prefs, updated_at = resource$updated_at,
2892                                 default_owner_uuid = resource$default_owner_uuid,
2893                                 is_active = resource$is_active, username = resource$username)
2894
2895                         if(result$isEmpty())
2896                                 resource
2897                         else
2898                                 result
2899                 },
2900
2901                 api_client_authorizations.get = function(uuid)
2902                 {
2903                         endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
2904                         url <- paste0(private$host, endPoint)
2905                         headers <- list(Authorization = paste("OAuth2", private$token),
2906                                         "Content-Type" = "application/json")
2907                         queryArgs <- list(uuid = uuid)
2908                         body <- NULL
2909
2910                         response <- private$REST$http$exec("GET", url, headers, body,
2911                                                            queryArgs, private$numRetries)
2912                         resource <- private$REST$httpParser$parseJSONResponse(response)
2913
2914                         if(!is.null(resource$errors))
2915                                 stop(resource$errors)
2916
2917                         result <- ApiClientAuthorization$new(uuid = resource$uuid,
2918                                 etag = resource$etag, api_token = resource$api_token,
2919                                 api_client_id = resource$api_client_id, user_id = resource$user_id,
2920                                 created_by_ip_address = resource$created_by_ip_address,
2921                                 last_used_by_ip_address = resource$last_used_by_ip_address,
2922                                 last_used_at = resource$last_used_at, expires_at = resource$expires_at,
2923                                 created_at = resource$created_at, updated_at = resource$updated_at,
2924                                 default_owner_uuid = resource$default_owner_uuid,
2925                                 scopes = resource$scopes)
2926
2927                         if(result$isEmpty())
2928                                 resource
2929                         else
2930                                 result
2931                 },
2932
2933                 api_client_authorizations.index = function(filters = NULL,
2934                         where = NULL, order = NULL, select = NULL,
2935                         distinct = NULL, limit = "100", offset = "0",
2936                         count = "exact")
2937                 {
2938                         endPoint <- stringr::str_interp("api_client_authorizations")
2939                         url <- paste0(private$host, endPoint)
2940                         headers <- list(Authorization = paste("OAuth2", private$token),
2941                                         "Content-Type" = "application/json")
2942                         queryArgs <- list(filters = filters, where = where,
2943                                 order = order, select = select, distinct = distinct,
2944                                 limit = limit, offset = offset, count = count)
2945                         body <- NULL
2946
2947                         response <- private$REST$http$exec("GET", url, headers, body,
2948                                                            queryArgs, private$numRetries)
2949                         resource <- private$REST$httpParser$parseJSONResponse(response)
2950
2951                         if(!is.null(resource$errors))
2952                                 stop(resource$errors)
2953
2954                         result <- ApiClientAuthorizationList$new(kind = resource$kind,
2955                                 etag = resource$etag, items = resource$items,
2956                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
2957                                 selfLink = resource$selfLink)
2958
2959                         if(result$isEmpty())
2960                                 resource
2961                         else
2962                                 result
2963                 },
2964
2965                 api_client_authorizations.create = function(api_client_authorization,
2966                         ensure_unique_name = "false")
2967                 {
2968                         endPoint <- stringr::str_interp("api_client_authorizations")
2969                         url <- paste0(private$host, endPoint)
2970                         headers <- list(Authorization = paste("OAuth2", private$token),
2971                                         "Content-Type" = "application/json")
2972                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
2973                         body <- api_client_authorization$toJSON()
2974
2975                         response <- private$REST$http$exec("POST", url, headers, body,
2976                                                            queryArgs, private$numRetries)
2977                         resource <- private$REST$httpParser$parseJSONResponse(response)
2978
2979                         if(!is.null(resource$errors))
2980                                 stop(resource$errors)
2981
2982                         result <- ApiClientAuthorization$new(uuid = resource$uuid,
2983                                 etag = resource$etag, api_token = resource$api_token,
2984                                 api_client_id = resource$api_client_id, user_id = resource$user_id,
2985                                 created_by_ip_address = resource$created_by_ip_address,
2986                                 last_used_by_ip_address = resource$last_used_by_ip_address,
2987                                 last_used_at = resource$last_used_at, expires_at = resource$expires_at,
2988                                 created_at = resource$created_at, updated_at = resource$updated_at,
2989                                 default_owner_uuid = resource$default_owner_uuid,
2990                                 scopes = resource$scopes)
2991
2992                         if(result$isEmpty())
2993                                 resource
2994                         else
2995                                 result
2996                 },
2997
2998                 api_client_authorizations.update = function(api_client_authorization, uuid)
2999                 {
3000                         endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
3001                         url <- paste0(private$host, endPoint)
3002                         headers <- list(Authorization = paste("OAuth2", private$token),
3003                                         "Content-Type" = "application/json")
3004                         queryArgs <- list(uuid = uuid)
3005                         body <- api_client_authorization$toJSON()
3006
3007                         response <- private$REST$http$exec("PUT", url, headers, body,
3008                                                            queryArgs, private$numRetries)
3009                         resource <- private$REST$httpParser$parseJSONResponse(response)
3010
3011                         if(!is.null(resource$errors))
3012                                 stop(resource$errors)
3013
3014                         result <- ApiClientAuthorization$new(uuid = resource$uuid,
3015                                 etag = resource$etag, api_token = resource$api_token,
3016                                 api_client_id = resource$api_client_id, user_id = resource$user_id,
3017                                 created_by_ip_address = resource$created_by_ip_address,
3018                                 last_used_by_ip_address = resource$last_used_by_ip_address,
3019                                 last_used_at = resource$last_used_at, expires_at = resource$expires_at,
3020                                 created_at = resource$created_at, updated_at = resource$updated_at,
3021                                 default_owner_uuid = resource$default_owner_uuid,
3022                                 scopes = resource$scopes)
3023
3024                         if(result$isEmpty())
3025                                 resource
3026                         else
3027                                 result
3028                 },
3029
3030                 api_client_authorizations.delete = function(uuid)
3031                 {
3032                         endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
3033                         url <- paste0(private$host, endPoint)
3034                         headers <- list(Authorization = paste("OAuth2", private$token),
3035                                         "Content-Type" = "application/json")
3036                         queryArgs <- list(uuid = uuid)
3037                         body <- NULL
3038
3039                         response <- private$REST$http$exec("DELETE", url, headers, body,
3040                                                            queryArgs, private$numRetries)
3041                         resource <- private$REST$httpParser$parseJSONResponse(response)
3042
3043                         if(!is.null(resource$errors))
3044                                 stop(resource$errors)
3045
3046                         result <- ApiClientAuthorization$new(uuid = resource$uuid,
3047                                 etag = resource$etag, api_token = resource$api_token,
3048                                 api_client_id = resource$api_client_id, user_id = resource$user_id,
3049                                 created_by_ip_address = resource$created_by_ip_address,
3050                                 last_used_by_ip_address = resource$last_used_by_ip_address,
3051                                 last_used_at = resource$last_used_at, expires_at = resource$expires_at,
3052                                 created_at = resource$created_at, updated_at = resource$updated_at,
3053                                 default_owner_uuid = resource$default_owner_uuid,
3054                                 scopes = resource$scopes)
3055
3056                         if(result$isEmpty())
3057                                 resource
3058                         else
3059                                 result
3060                 },
3061
3062                 api_client_authorizations.create_system_auth = function(api_client_id = NULL, scopes = NULL)
3063                 {
3064                         endPoint <- stringr::str_interp("api_client_authorizations/create_system_auth")
3065                         url <- paste0(private$host, endPoint)
3066                         headers <- list(Authorization = paste("OAuth2", private$token),
3067                                         "Content-Type" = "application/json")
3068                         queryArgs <- list(api_client_id = api_client_id,
3069                                 scopes = scopes)
3070                         body <- NULL
3071
3072                         response <- private$REST$http$exec("POST", url, headers, body,
3073                                                            queryArgs, private$numRetries)
3074                         resource <- private$REST$httpParser$parseJSONResponse(response)
3075
3076                         if(!is.null(resource$errors))
3077                                 stop(resource$errors)
3078
3079                         result <- ApiClientAuthorization$new(uuid = resource$uuid,
3080                                 etag = resource$etag, api_token = resource$api_token,
3081                                 api_client_id = resource$api_client_id, user_id = resource$user_id,
3082                                 created_by_ip_address = resource$created_by_ip_address,
3083                                 last_used_by_ip_address = resource$last_used_by_ip_address,
3084                                 last_used_at = resource$last_used_at, expires_at = resource$expires_at,
3085                                 created_at = resource$created_at, updated_at = resource$updated_at,
3086                                 default_owner_uuid = resource$default_owner_uuid,
3087                                 scopes = resource$scopes)
3088
3089                         if(result$isEmpty())
3090                                 resource
3091                         else
3092                                 result
3093                 },
3094
3095                 api_client_authorizations.current = function()
3096                 {
3097                         endPoint <- stringr::str_interp("api_client_authorizations/current")
3098                         url <- paste0(private$host, endPoint)
3099                         headers <- list(Authorization = paste("OAuth2", private$token),
3100                                         "Content-Type" = "application/json")
3101                         queryArgs <- NULL
3102                         body <- NULL
3103
3104                         response <- private$REST$http$exec("GET", url, headers, body,
3105                                                            queryArgs, private$numRetries)
3106                         resource <- private$REST$httpParser$parseJSONResponse(response)
3107
3108                         if(!is.null(resource$errors))
3109                                 stop(resource$errors)
3110
3111                         result <- ApiClientAuthorization$new(uuid = resource$uuid,
3112                                 etag = resource$etag, api_token = resource$api_token,
3113                                 api_client_id = resource$api_client_id, user_id = resource$user_id,
3114                                 created_by_ip_address = resource$created_by_ip_address,
3115                                 last_used_by_ip_address = resource$last_used_by_ip_address,
3116                                 last_used_at = resource$last_used_at, expires_at = resource$expires_at,
3117                                 created_at = resource$created_at, updated_at = resource$updated_at,
3118                                 default_owner_uuid = resource$default_owner_uuid,
3119                                 scopes = resource$scopes)
3120
3121                         if(result$isEmpty())
3122                                 resource
3123                         else
3124                                 result
3125                 },
3126
3127                 api_client_authorizations.list = function(filters = NULL,
3128                         where = NULL, order = NULL, select = NULL,
3129                         distinct = NULL, limit = "100", offset = "0",
3130                         count = "exact")
3131                 {
3132                         endPoint <- stringr::str_interp("api_client_authorizations")
3133                         url <- paste0(private$host, endPoint)
3134                         headers <- list(Authorization = paste("OAuth2", private$token),
3135                                         "Content-Type" = "application/json")
3136                         queryArgs <- list(filters = filters, where = where,
3137                                 order = order, select = select, distinct = distinct,
3138                                 limit = limit, offset = offset, count = count)
3139                         body <- NULL
3140
3141                         response <- private$REST$http$exec("GET", url, headers, body,
3142                                                            queryArgs, private$numRetries)
3143                         resource <- private$REST$httpParser$parseJSONResponse(response)
3144
3145                         if(!is.null(resource$errors))
3146                                 stop(resource$errors)
3147
3148                         result <- ApiClientAuthorizationList$new(kind = resource$kind,
3149                                 etag = resource$etag, items = resource$items,
3150                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
3151                                 selfLink = resource$selfLink)
3152
3153                         if(result$isEmpty())
3154                                 resource
3155                         else
3156                                 result
3157                 },
3158
3159                 api_client_authorizations.show = function(uuid)
3160                 {
3161                         endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
3162                         url <- paste0(private$host, endPoint)
3163                         headers <- list(Authorization = paste("OAuth2", private$token),
3164                                         "Content-Type" = "application/json")
3165                         queryArgs <- list(uuid = uuid)
3166                         body <- NULL
3167
3168                         response <- private$REST$http$exec("GET", url, headers, body,
3169                                                            queryArgs, private$numRetries)
3170                         resource <- private$REST$httpParser$parseJSONResponse(response)
3171
3172                         if(!is.null(resource$errors))
3173                                 stop(resource$errors)
3174
3175                         result <- ApiClientAuthorization$new(uuid = resource$uuid,
3176                                 etag = resource$etag, api_token = resource$api_token,
3177                                 api_client_id = resource$api_client_id, user_id = resource$user_id,
3178                                 created_by_ip_address = resource$created_by_ip_address,
3179                                 last_used_by_ip_address = resource$last_used_by_ip_address,
3180                                 last_used_at = resource$last_used_at, expires_at = resource$expires_at,
3181                                 created_at = resource$created_at, updated_at = resource$updated_at,
3182                                 default_owner_uuid = resource$default_owner_uuid,
3183                                 scopes = resource$scopes)
3184
3185                         if(result$isEmpty())
3186                                 resource
3187                         else
3188                                 result
3189                 },
3190
3191                 api_client_authorizations.destroy = function(uuid)
3192                 {
3193                         endPoint <- stringr::str_interp("api_client_authorizations/${uuid}")
3194                         url <- paste0(private$host, endPoint)
3195                         headers <- list(Authorization = paste("OAuth2", private$token),
3196                                         "Content-Type" = "application/json")
3197                         queryArgs <- list(uuid = uuid)
3198                         body <- NULL
3199
3200                         response <- private$REST$http$exec("DELETE", url, headers, body,
3201                                                            queryArgs, private$numRetries)
3202                         resource <- private$REST$httpParser$parseJSONResponse(response)
3203
3204                         if(!is.null(resource$errors))
3205                                 stop(resource$errors)
3206
3207                         result <- ApiClientAuthorization$new(uuid = resource$uuid,
3208                                 etag = resource$etag, api_token = resource$api_token,
3209                                 api_client_id = resource$api_client_id, user_id = resource$user_id,
3210                                 created_by_ip_address = resource$created_by_ip_address,
3211                                 last_used_by_ip_address = resource$last_used_by_ip_address,
3212                                 last_used_at = resource$last_used_at, expires_at = resource$expires_at,
3213                                 created_at = resource$created_at, updated_at = resource$updated_at,
3214                                 default_owner_uuid = resource$default_owner_uuid,
3215                                 scopes = resource$scopes)
3216
3217                         if(result$isEmpty())
3218                                 resource
3219                         else
3220                                 result
3221                 },
3222
3223                 api_clients.get = function(uuid)
3224                 {
3225                         endPoint <- stringr::str_interp("api_clients/${uuid}")
3226                         url <- paste0(private$host, endPoint)
3227                         headers <- list(Authorization = paste("OAuth2", private$token),
3228                                         "Content-Type" = "application/json")
3229                         queryArgs <- list(uuid = uuid)
3230                         body <- NULL
3231
3232                         response <- private$REST$http$exec("GET", url, headers, body,
3233                                                            queryArgs, private$numRetries)
3234                         resource <- private$REST$httpParser$parseJSONResponse(response)
3235
3236                         if(!is.null(resource$errors))
3237                                 stop(resource$errors)
3238
3239                         result <- ApiClient$new(uuid = resource$uuid,
3240                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
3241                                 modified_by_client_uuid = resource$modified_by_client_uuid,
3242                                 modified_by_user_uuid = resource$modified_by_user_uuid,
3243                                 modified_at = resource$modified_at, name = resource$name,
3244                                 url_prefix = resource$url_prefix, created_at = resource$created_at,
3245                                 updated_at = resource$updated_at, is_trusted = resource$is_trusted)
3246
3247                         if(result$isEmpty())
3248                                 resource
3249                         else
3250                                 result
3251                 },
3252
3253                 api_clients.index = function(filters = NULL,
3254                         where = NULL, order = NULL, select = NULL,
3255                         distinct = NULL, limit = "100", offset = "0",
3256                         count = "exact")
3257                 {
3258                         endPoint <- stringr::str_interp("api_clients")
3259                         url <- paste0(private$host, endPoint)
3260                         headers <- list(Authorization = paste("OAuth2", private$token),
3261                                         "Content-Type" = "application/json")
3262                         queryArgs <- list(filters = filters, where = where,
3263                                 order = order, select = select, distinct = distinct,
3264                                 limit = limit, offset = offset, count = count)
3265                         body <- NULL
3266
3267                         response <- private$REST$http$exec("GET", url, headers, body,
3268                                                            queryArgs, private$numRetries)
3269                         resource <- private$REST$httpParser$parseJSONResponse(response)
3270
3271                         if(!is.null(resource$errors))
3272                                 stop(resource$errors)
3273
3274                         result <- ApiClientList$new(kind = resource$kind,
3275                                 etag = resource$etag, items = resource$items,
3276                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
3277                                 selfLink = resource$selfLink)
3278
3279                         if(result$isEmpty())
3280                                 resource
3281                         else
3282                                 result
3283                 },
3284
3285                 api_clients.create = function(api_client, ensure_unique_name = "false")
3286                 {
3287                         endPoint <- stringr::str_interp("api_clients")
3288                         url <- paste0(private$host, endPoint)
3289                         headers <- list(Authorization = paste("OAuth2", private$token),
3290                                         "Content-Type" = "application/json")
3291                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
3292                         body <- api_client$toJSON()
3293
3294                         response <- private$REST$http$exec("POST", url, headers, body,
3295                                                            queryArgs, private$numRetries)
3296                         resource <- private$REST$httpParser$parseJSONResponse(response)
3297
3298                         if(!is.null(resource$errors))
3299                                 stop(resource$errors)
3300
3301                         result <- ApiClient$new(uuid = resource$uuid,
3302                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
3303                                 modified_by_client_uuid = resource$modified_by_client_uuid,
3304                                 modified_by_user_uuid = resource$modified_by_user_uuid,
3305                                 modified_at = resource$modified_at, name = resource$name,
3306                                 url_prefix = resource$url_prefix, created_at = resource$created_at,
3307                                 updated_at = resource$updated_at, is_trusted = resource$is_trusted)
3308
3309                         if(result$isEmpty())
3310                                 resource
3311                         else
3312                                 result
3313                 },
3314
3315                 api_clients.update = function(api_client, uuid)
3316                 {
3317                         endPoint <- stringr::str_interp("api_clients/${uuid}")
3318                         url <- paste0(private$host, endPoint)
3319                         headers <- list(Authorization = paste("OAuth2", private$token),
3320                                         "Content-Type" = "application/json")
3321                         queryArgs <- list(uuid = uuid)
3322                         body <- api_client$toJSON()
3323
3324                         response <- private$REST$http$exec("PUT", url, headers, body,
3325                                                            queryArgs, private$numRetries)
3326                         resource <- private$REST$httpParser$parseJSONResponse(response)
3327
3328                         if(!is.null(resource$errors))
3329                                 stop(resource$errors)
3330
3331                         result <- ApiClient$new(uuid = resource$uuid,
3332                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
3333                                 modified_by_client_uuid = resource$modified_by_client_uuid,
3334                                 modified_by_user_uuid = resource$modified_by_user_uuid,
3335                                 modified_at = resource$modified_at, name = resource$name,
3336                                 url_prefix = resource$url_prefix, created_at = resource$created_at,
3337                                 updated_at = resource$updated_at, is_trusted = resource$is_trusted)
3338
3339                         if(result$isEmpty())
3340                                 resource
3341                         else
3342                                 result
3343                 },
3344
3345                 api_clients.delete = function(uuid)
3346                 {
3347                         endPoint <- stringr::str_interp("api_clients/${uuid}")
3348                         url <- paste0(private$host, endPoint)
3349                         headers <- list(Authorization = paste("OAuth2", private$token),
3350                                         "Content-Type" = "application/json")
3351                         queryArgs <- list(uuid = uuid)
3352                         body <- NULL
3353
3354                         response <- private$REST$http$exec("DELETE", url, headers, body,
3355                                                            queryArgs, private$numRetries)
3356                         resource <- private$REST$httpParser$parseJSONResponse(response)
3357
3358                         if(!is.null(resource$errors))
3359                                 stop(resource$errors)
3360
3361                         result <- ApiClient$new(uuid = resource$uuid,
3362                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
3363                                 modified_by_client_uuid = resource$modified_by_client_uuid,
3364                                 modified_by_user_uuid = resource$modified_by_user_uuid,
3365                                 modified_at = resource$modified_at, name = resource$name,
3366                                 url_prefix = resource$url_prefix, created_at = resource$created_at,
3367                                 updated_at = resource$updated_at, is_trusted = resource$is_trusted)
3368
3369                         if(result$isEmpty())
3370                                 resource
3371                         else
3372                                 result
3373                 },
3374
3375                 api_clients.list = function(filters = NULL,
3376                         where = NULL, order = NULL, select = NULL,
3377                         distinct = NULL, limit = "100", offset = "0",
3378                         count = "exact")
3379                 {
3380                         endPoint <- stringr::str_interp("api_clients")
3381                         url <- paste0(private$host, endPoint)
3382                         headers <- list(Authorization = paste("OAuth2", private$token),
3383                                         "Content-Type" = "application/json")
3384                         queryArgs <- list(filters = filters, where = where,
3385                                 order = order, select = select, distinct = distinct,
3386                                 limit = limit, offset = offset, count = count)
3387                         body <- NULL
3388
3389                         response <- private$REST$http$exec("GET", url, headers, body,
3390                                                            queryArgs, private$numRetries)
3391                         resource <- private$REST$httpParser$parseJSONResponse(response)
3392
3393                         if(!is.null(resource$errors))
3394                                 stop(resource$errors)
3395
3396                         result <- ApiClientList$new(kind = resource$kind,
3397                                 etag = resource$etag, items = resource$items,
3398                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
3399                                 selfLink = resource$selfLink)
3400
3401                         if(result$isEmpty())
3402                                 resource
3403                         else
3404                                 result
3405                 },
3406
3407                 api_clients.show = function(uuid)
3408                 {
3409                         endPoint <- stringr::str_interp("api_clients/${uuid}")
3410                         url <- paste0(private$host, endPoint)
3411                         headers <- list(Authorization = paste("OAuth2", private$token),
3412                                         "Content-Type" = "application/json")
3413                         queryArgs <- list(uuid = uuid)
3414                         body <- NULL
3415
3416                         response <- private$REST$http$exec("GET", url, headers, body,
3417                                                            queryArgs, private$numRetries)
3418                         resource <- private$REST$httpParser$parseJSONResponse(response)
3419
3420                         if(!is.null(resource$errors))
3421                                 stop(resource$errors)
3422
3423                         result <- ApiClient$new(uuid = resource$uuid,
3424                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
3425                                 modified_by_client_uuid = resource$modified_by_client_uuid,
3426                                 modified_by_user_uuid = resource$modified_by_user_uuid,
3427                                 modified_at = resource$modified_at, name = resource$name,
3428                                 url_prefix = resource$url_prefix, created_at = resource$created_at,
3429                                 updated_at = resource$updated_at, is_trusted = resource$is_trusted)
3430
3431                         if(result$isEmpty())
3432                                 resource
3433                         else
3434                                 result
3435                 },
3436
3437                 api_clients.destroy = function(uuid)
3438                 {
3439                         endPoint <- stringr::str_interp("api_clients/${uuid}")
3440                         url <- paste0(private$host, endPoint)
3441                         headers <- list(Authorization = paste("OAuth2", private$token),
3442                                         "Content-Type" = "application/json")
3443                         queryArgs <- list(uuid = uuid)
3444                         body <- NULL
3445
3446                         response <- private$REST$http$exec("DELETE", 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                         result <- ApiClient$new(uuid = resource$uuid,
3454                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
3455                                 modified_by_client_uuid = resource$modified_by_client_uuid,
3456                                 modified_by_user_uuid = resource$modified_by_user_uuid,
3457                                 modified_at = resource$modified_at, name = resource$name,
3458                                 url_prefix = resource$url_prefix, created_at = resource$created_at,
3459                                 updated_at = resource$updated_at, is_trusted = resource$is_trusted)
3460
3461                         if(result$isEmpty())
3462                                 resource
3463                         else
3464                                 result
3465                 },
3466
3467                 container_requests.get = function(uuid)
3468                 {
3469                         endPoint <- stringr::str_interp("container_requests/${uuid}")
3470                         url <- paste0(private$host, endPoint)
3471                         headers <- list(Authorization = paste("OAuth2", private$token),
3472                                         "Content-Type" = "application/json")
3473                         queryArgs <- list(uuid = uuid)
3474                         body <- NULL
3475
3476                         response <- private$REST$http$exec("GET", url, headers, body,
3477                                                            queryArgs, private$numRetries)
3478                         resource <- private$REST$httpParser$parseJSONResponse(response)
3479
3480                         if(!is.null(resource$errors))
3481                                 stop(resource$errors)
3482
3483                         result <- ContainerRequest$new(uuid = resource$uuid,
3484                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
3485                                 created_at = resource$created_at, modified_at = resource$modified_at,
3486                                 modified_by_client_uuid = resource$modified_by_client_uuid,
3487                                 modified_by_user_uuid = resource$modified_by_user_uuid,
3488                                 name = resource$name, description = resource$description,
3489                                 properties = resource$properties, state = resource$state,
3490                                 requesting_container_uuid = resource$requesting_container_uuid,
3491                                 container_uuid = resource$container_uuid,
3492                                 container_count_max = resource$container_count_max,
3493                                 mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
3494                                 container_image = resource$container_image,
3495                                 environment = resource$environment, cwd = resource$cwd,
3496                                 command = resource$command, output_path = resource$output_path,
3497                                 priority = resource$priority, expires_at = resource$expires_at,
3498                                 filters = resource$filters, updated_at = resource$updated_at,
3499                                 container_count = resource$container_count,
3500                                 use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
3501                                 output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
3502                                 output_name = resource$output_name, output_ttl = resource$output_ttl)
3503
3504                         if(result$isEmpty())
3505                                 resource
3506                         else
3507                                 result
3508                 },
3509
3510                 container_requests.index = function(filters = NULL,
3511                         where = NULL, order = NULL, select = NULL,
3512                         distinct = NULL, limit = "100", offset = "0",
3513                         count = "exact")
3514                 {
3515                         endPoint <- stringr::str_interp("container_requests")
3516                         url <- paste0(private$host, endPoint)
3517                         headers <- list(Authorization = paste("OAuth2", private$token),
3518                                         "Content-Type" = "application/json")
3519                         queryArgs <- list(filters = filters, where = where,
3520                                 order = order, select = select, distinct = distinct,
3521                                 limit = limit, offset = offset, count = count)
3522                         body <- NULL
3523
3524                         response <- private$REST$http$exec("GET", url, headers, body,
3525                                                            queryArgs, private$numRetries)
3526                         resource <- private$REST$httpParser$parseJSONResponse(response)
3527
3528                         if(!is.null(resource$errors))
3529                                 stop(resource$errors)
3530
3531                         result <- ContainerRequestList$new(kind = resource$kind,
3532                                 etag = resource$etag, items = resource$items,
3533                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
3534                                 selfLink = resource$selfLink)
3535
3536                         if(result$isEmpty())
3537                                 resource
3538                         else
3539                                 result
3540                 },
3541
3542                 container_requests.create = function(container_request,
3543                         ensure_unique_name = "false")
3544                 {
3545                         endPoint <- stringr::str_interp("container_requests")
3546                         url <- paste0(private$host, endPoint)
3547                         headers <- list(Authorization = paste("OAuth2", private$token),
3548                                         "Content-Type" = "application/json")
3549                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
3550                         body <- container_request$toJSON()
3551
3552                         response <- private$REST$http$exec("POST", url, headers, body,
3553                                                            queryArgs, private$numRetries)
3554                         resource <- private$REST$httpParser$parseJSONResponse(response)
3555
3556                         if(!is.null(resource$errors))
3557                                 stop(resource$errors)
3558
3559                         result <- ContainerRequest$new(uuid = resource$uuid,
3560                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
3561                                 created_at = resource$created_at, modified_at = resource$modified_at,
3562                                 modified_by_client_uuid = resource$modified_by_client_uuid,
3563                                 modified_by_user_uuid = resource$modified_by_user_uuid,
3564                                 name = resource$name, description = resource$description,
3565                                 properties = resource$properties, state = resource$state,
3566                                 requesting_container_uuid = resource$requesting_container_uuid,
3567                                 container_uuid = resource$container_uuid,
3568                                 container_count_max = resource$container_count_max,
3569                                 mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
3570                                 container_image = resource$container_image,
3571                                 environment = resource$environment, cwd = resource$cwd,
3572                                 command = resource$command, output_path = resource$output_path,
3573                                 priority = resource$priority, expires_at = resource$expires_at,
3574                                 filters = resource$filters, updated_at = resource$updated_at,
3575                                 container_count = resource$container_count,
3576                                 use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
3577                                 output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
3578                                 output_name = resource$output_name, output_ttl = resource$output_ttl)
3579
3580                         if(result$isEmpty())
3581                                 resource
3582                         else
3583                                 result
3584                 },
3585
3586                 container_requests.update = function(container_request, uuid)
3587                 {
3588                         endPoint <- stringr::str_interp("container_requests/${uuid}")
3589                         url <- paste0(private$host, endPoint)
3590                         headers <- list(Authorization = paste("OAuth2", private$token),
3591                                         "Content-Type" = "application/json")
3592                         queryArgs <- list(uuid = uuid)
3593                         body <- container_request$toJSON()
3594
3595                         response <- private$REST$http$exec("PUT", url, headers, body,
3596                                                            queryArgs, private$numRetries)
3597                         resource <- private$REST$httpParser$parseJSONResponse(response)
3598
3599                         if(!is.null(resource$errors))
3600                                 stop(resource$errors)
3601
3602                         result <- ContainerRequest$new(uuid = resource$uuid,
3603                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
3604                                 created_at = resource$created_at, modified_at = resource$modified_at,
3605                                 modified_by_client_uuid = resource$modified_by_client_uuid,
3606                                 modified_by_user_uuid = resource$modified_by_user_uuid,
3607                                 name = resource$name, description = resource$description,
3608                                 properties = resource$properties, state = resource$state,
3609                                 requesting_container_uuid = resource$requesting_container_uuid,
3610                                 container_uuid = resource$container_uuid,
3611                                 container_count_max = resource$container_count_max,
3612                                 mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
3613                                 container_image = resource$container_image,
3614                                 environment = resource$environment, cwd = resource$cwd,
3615                                 command = resource$command, output_path = resource$output_path,
3616                                 priority = resource$priority, expires_at = resource$expires_at,
3617                                 filters = resource$filters, updated_at = resource$updated_at,
3618                                 container_count = resource$container_count,
3619                                 use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
3620                                 output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
3621                                 output_name = resource$output_name, output_ttl = resource$output_ttl)
3622
3623                         if(result$isEmpty())
3624                                 resource
3625                         else
3626                                 result
3627                 },
3628
3629                 container_requests.delete = function(uuid)
3630                 {
3631                         endPoint <- stringr::str_interp("container_requests/${uuid}")
3632                         url <- paste0(private$host, endPoint)
3633                         headers <- list(Authorization = paste("OAuth2", private$token),
3634                                         "Content-Type" = "application/json")
3635                         queryArgs <- list(uuid = uuid)
3636                         body <- NULL
3637
3638                         response <- private$REST$http$exec("DELETE", url, headers, body,
3639                                                            queryArgs, private$numRetries)
3640                         resource <- private$REST$httpParser$parseJSONResponse(response)
3641
3642                         if(!is.null(resource$errors))
3643                                 stop(resource$errors)
3644
3645                         result <- ContainerRequest$new(uuid = resource$uuid,
3646                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
3647                                 created_at = resource$created_at, modified_at = resource$modified_at,
3648                                 modified_by_client_uuid = resource$modified_by_client_uuid,
3649                                 modified_by_user_uuid = resource$modified_by_user_uuid,
3650                                 name = resource$name, description = resource$description,
3651                                 properties = resource$properties, state = resource$state,
3652                                 requesting_container_uuid = resource$requesting_container_uuid,
3653                                 container_uuid = resource$container_uuid,
3654                                 container_count_max = resource$container_count_max,
3655                                 mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
3656                                 container_image = resource$container_image,
3657                                 environment = resource$environment, cwd = resource$cwd,
3658                                 command = resource$command, output_path = resource$output_path,
3659                                 priority = resource$priority, expires_at = resource$expires_at,
3660                                 filters = resource$filters, updated_at = resource$updated_at,
3661                                 container_count = resource$container_count,
3662                                 use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
3663                                 output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
3664                                 output_name = resource$output_name, output_ttl = resource$output_ttl)
3665
3666                         if(result$isEmpty())
3667                                 resource
3668                         else
3669                                 result
3670                 },
3671
3672                 container_requests.list = function(filters = NULL,
3673                         where = NULL, order = NULL, select = NULL,
3674                         distinct = NULL, limit = "100", offset = "0",
3675                         count = "exact")
3676                 {
3677                         endPoint <- stringr::str_interp("container_requests")
3678                         url <- paste0(private$host, endPoint)
3679                         headers <- list(Authorization = paste("OAuth2", private$token),
3680                                         "Content-Type" = "application/json")
3681                         queryArgs <- list(filters = filters, where = where,
3682                                 order = order, select = select, distinct = distinct,
3683                                 limit = limit, offset = offset, count = count)
3684                         body <- NULL
3685
3686                         response <- private$REST$http$exec("GET", 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                         result <- ContainerRequestList$new(kind = resource$kind,
3694                                 etag = resource$etag, items = resource$items,
3695                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
3696                                 selfLink = resource$selfLink)
3697
3698                         if(result$isEmpty())
3699                                 resource
3700                         else
3701                                 result
3702                 },
3703
3704                 container_requests.show = function(uuid)
3705                 {
3706                         endPoint <- stringr::str_interp("container_requests/${uuid}")
3707                         url <- paste0(private$host, endPoint)
3708                         headers <- list(Authorization = paste("OAuth2", private$token),
3709                                         "Content-Type" = "application/json")
3710                         queryArgs <- list(uuid = uuid)
3711                         body <- NULL
3712
3713                         response <- private$REST$http$exec("GET", url, headers, body,
3714                                                            queryArgs, private$numRetries)
3715                         resource <- private$REST$httpParser$parseJSONResponse(response)
3716
3717                         if(!is.null(resource$errors))
3718                                 stop(resource$errors)
3719
3720                         result <- ContainerRequest$new(uuid = resource$uuid,
3721                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
3722                                 created_at = resource$created_at, modified_at = resource$modified_at,
3723                                 modified_by_client_uuid = resource$modified_by_client_uuid,
3724                                 modified_by_user_uuid = resource$modified_by_user_uuid,
3725                                 name = resource$name, description = resource$description,
3726                                 properties = resource$properties, state = resource$state,
3727                                 requesting_container_uuid = resource$requesting_container_uuid,
3728                                 container_uuid = resource$container_uuid,
3729                                 container_count_max = resource$container_count_max,
3730                                 mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
3731                                 container_image = resource$container_image,
3732                                 environment = resource$environment, cwd = resource$cwd,
3733                                 command = resource$command, output_path = resource$output_path,
3734                                 priority = resource$priority, expires_at = resource$expires_at,
3735                                 filters = resource$filters, updated_at = resource$updated_at,
3736                                 container_count = resource$container_count,
3737                                 use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
3738                                 output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
3739                                 output_name = resource$output_name, output_ttl = resource$output_ttl)
3740
3741                         if(result$isEmpty())
3742                                 resource
3743                         else
3744                                 result
3745                 },
3746
3747                 container_requests.destroy = function(uuid)
3748                 {
3749                         endPoint <- stringr::str_interp("container_requests/${uuid}")
3750                         url <- paste0(private$host, endPoint)
3751                         headers <- list(Authorization = paste("OAuth2", private$token),
3752                                         "Content-Type" = "application/json")
3753                         queryArgs <- list(uuid = uuid)
3754                         body <- NULL
3755
3756                         response <- private$REST$http$exec("DELETE", 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                         result <- ContainerRequest$new(uuid = resource$uuid,
3764                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
3765                                 created_at = resource$created_at, modified_at = resource$modified_at,
3766                                 modified_by_client_uuid = resource$modified_by_client_uuid,
3767                                 modified_by_user_uuid = resource$modified_by_user_uuid,
3768                                 name = resource$name, description = resource$description,
3769                                 properties = resource$properties, state = resource$state,
3770                                 requesting_container_uuid = resource$requesting_container_uuid,
3771                                 container_uuid = resource$container_uuid,
3772                                 container_count_max = resource$container_count_max,
3773                                 mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
3774                                 container_image = resource$container_image,
3775                                 environment = resource$environment, cwd = resource$cwd,
3776                                 command = resource$command, output_path = resource$output_path,
3777                                 priority = resource$priority, expires_at = resource$expires_at,
3778                                 filters = resource$filters, updated_at = resource$updated_at,
3779                                 container_count = resource$container_count,
3780                                 use_existing = resource$use_existing, scheduling_parameters = resource$scheduling_parameters,
3781                                 output_uuid = resource$output_uuid, log_uuid = resource$log_uuid,
3782                                 output_name = resource$output_name, output_ttl = resource$output_ttl)
3783
3784                         if(result$isEmpty())
3785                                 resource
3786                         else
3787                                 result
3788                 },
3789
3790                 authorized_keys.get = function(uuid)
3791                 {
3792                         endPoint <- stringr::str_interp("authorized_keys/${uuid}")
3793                         url <- paste0(private$host, endPoint)
3794                         headers <- list(Authorization = paste("OAuth2", private$token),
3795                                         "Content-Type" = "application/json")
3796                         queryArgs <- list(uuid = uuid)
3797                         body <- NULL
3798
3799                         response <- private$REST$http$exec("GET", url, headers, body,
3800                                                            queryArgs, private$numRetries)
3801                         resource <- private$REST$httpParser$parseJSONResponse(response)
3802
3803                         if(!is.null(resource$errors))
3804                                 stop(resource$errors)
3805
3806                         result <- AuthorizedKey$new(uuid = resource$uuid,
3807                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
3808                                 modified_by_client_uuid = resource$modified_by_client_uuid,
3809                                 modified_by_user_uuid = resource$modified_by_user_uuid,
3810                                 modified_at = resource$modified_at, name = resource$name,
3811                                 key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
3812                                 public_key = resource$public_key, expires_at = resource$expires_at,
3813                                 created_at = resource$created_at, updated_at = resource$updated_at)
3814
3815                         if(result$isEmpty())
3816                                 resource
3817                         else
3818                                 result
3819                 },
3820
3821                 authorized_keys.index = function(filters = NULL,
3822                         where = NULL, order = NULL, select = NULL,
3823                         distinct = NULL, limit = "100", offset = "0",
3824                         count = "exact")
3825                 {
3826                         endPoint <- stringr::str_interp("authorized_keys")
3827                         url <- paste0(private$host, endPoint)
3828                         headers <- list(Authorization = paste("OAuth2", private$token),
3829                                         "Content-Type" = "application/json")
3830                         queryArgs <- list(filters = filters, where = where,
3831                                 order = order, select = select, distinct = distinct,
3832                                 limit = limit, offset = offset, count = count)
3833                         body <- NULL
3834
3835                         response <- private$REST$http$exec("GET", url, headers, body,
3836                                                            queryArgs, private$numRetries)
3837                         resource <- private$REST$httpParser$parseJSONResponse(response)
3838
3839                         if(!is.null(resource$errors))
3840                                 stop(resource$errors)
3841
3842                         result <- AuthorizedKeyList$new(kind = resource$kind,
3843                                 etag = resource$etag, items = resource$items,
3844                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
3845                                 selfLink = resource$selfLink)
3846
3847                         if(result$isEmpty())
3848                                 resource
3849                         else
3850                                 result
3851                 },
3852
3853                 authorized_keys.create = function(authorized_key,
3854                         ensure_unique_name = "false")
3855                 {
3856                         endPoint <- stringr::str_interp("authorized_keys")
3857                         url <- paste0(private$host, endPoint)
3858                         headers <- list(Authorization = paste("OAuth2", private$token),
3859                                         "Content-Type" = "application/json")
3860                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
3861                         body <- authorized_key$toJSON()
3862
3863                         response <- private$REST$http$exec("POST", url, headers, body,
3864                                                            queryArgs, private$numRetries)
3865                         resource <- private$REST$httpParser$parseJSONResponse(response)
3866
3867                         if(!is.null(resource$errors))
3868                                 stop(resource$errors)
3869
3870                         result <- AuthorizedKey$new(uuid = resource$uuid,
3871                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
3872                                 modified_by_client_uuid = resource$modified_by_client_uuid,
3873                                 modified_by_user_uuid = resource$modified_by_user_uuid,
3874                                 modified_at = resource$modified_at, name = resource$name,
3875                                 key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
3876                                 public_key = resource$public_key, expires_at = resource$expires_at,
3877                                 created_at = resource$created_at, updated_at = resource$updated_at)
3878
3879                         if(result$isEmpty())
3880                                 resource
3881                         else
3882                                 result
3883                 },
3884
3885                 authorized_keys.update = function(authorized_key, uuid)
3886                 {
3887                         endPoint <- stringr::str_interp("authorized_keys/${uuid}")
3888                         url <- paste0(private$host, endPoint)
3889                         headers <- list(Authorization = paste("OAuth2", private$token),
3890                                         "Content-Type" = "application/json")
3891                         queryArgs <- list(uuid = uuid)
3892                         body <- authorized_key$toJSON()
3893
3894                         response <- private$REST$http$exec("PUT", url, headers, body,
3895                                                            queryArgs, private$numRetries)
3896                         resource <- private$REST$httpParser$parseJSONResponse(response)
3897
3898                         if(!is.null(resource$errors))
3899                                 stop(resource$errors)
3900
3901                         result <- AuthorizedKey$new(uuid = resource$uuid,
3902                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
3903                                 modified_by_client_uuid = resource$modified_by_client_uuid,
3904                                 modified_by_user_uuid = resource$modified_by_user_uuid,
3905                                 modified_at = resource$modified_at, name = resource$name,
3906                                 key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
3907                                 public_key = resource$public_key, expires_at = resource$expires_at,
3908                                 created_at = resource$created_at, updated_at = resource$updated_at)
3909
3910                         if(result$isEmpty())
3911                                 resource
3912                         else
3913                                 result
3914                 },
3915
3916                 authorized_keys.delete = function(uuid)
3917                 {
3918                         endPoint <- stringr::str_interp("authorized_keys/${uuid}")
3919                         url <- paste0(private$host, endPoint)
3920                         headers <- list(Authorization = paste("OAuth2", private$token),
3921                                         "Content-Type" = "application/json")
3922                         queryArgs <- list(uuid = uuid)
3923                         body <- NULL
3924
3925                         response <- private$REST$http$exec("DELETE", url, headers, body,
3926                                                            queryArgs, private$numRetries)
3927                         resource <- private$REST$httpParser$parseJSONResponse(response)
3928
3929                         if(!is.null(resource$errors))
3930                                 stop(resource$errors)
3931
3932                         result <- AuthorizedKey$new(uuid = resource$uuid,
3933                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
3934                                 modified_by_client_uuid = resource$modified_by_client_uuid,
3935                                 modified_by_user_uuid = resource$modified_by_user_uuid,
3936                                 modified_at = resource$modified_at, name = resource$name,
3937                                 key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
3938                                 public_key = resource$public_key, expires_at = resource$expires_at,
3939                                 created_at = resource$created_at, updated_at = resource$updated_at)
3940
3941                         if(result$isEmpty())
3942                                 resource
3943                         else
3944                                 result
3945                 },
3946
3947                 authorized_keys.list = function(filters = NULL,
3948                         where = NULL, order = NULL, select = NULL,
3949                         distinct = NULL, limit = "100", offset = "0",
3950                         count = "exact")
3951                 {
3952                         endPoint <- stringr::str_interp("authorized_keys")
3953                         url <- paste0(private$host, endPoint)
3954                         headers <- list(Authorization = paste("OAuth2", private$token),
3955                                         "Content-Type" = "application/json")
3956                         queryArgs <- list(filters = filters, where = where,
3957                                 order = order, select = select, distinct = distinct,
3958                                 limit = limit, offset = offset, count = count)
3959                         body <- NULL
3960
3961                         response <- private$REST$http$exec("GET", url, headers, body,
3962                                                            queryArgs, private$numRetries)
3963                         resource <- private$REST$httpParser$parseJSONResponse(response)
3964
3965                         if(!is.null(resource$errors))
3966                                 stop(resource$errors)
3967
3968                         result <- AuthorizedKeyList$new(kind = resource$kind,
3969                                 etag = resource$etag, items = resource$items,
3970                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
3971                                 selfLink = resource$selfLink)
3972
3973                         if(result$isEmpty())
3974                                 resource
3975                         else
3976                                 result
3977                 },
3978
3979                 authorized_keys.show = function(uuid)
3980                 {
3981                         endPoint <- stringr::str_interp("authorized_keys/${uuid}")
3982                         url <- paste0(private$host, endPoint)
3983                         headers <- list(Authorization = paste("OAuth2", private$token),
3984                                         "Content-Type" = "application/json")
3985                         queryArgs <- list(uuid = uuid)
3986                         body <- NULL
3987
3988                         response <- private$REST$http$exec("GET", url, headers, body,
3989                                                            queryArgs, private$numRetries)
3990                         resource <- private$REST$httpParser$parseJSONResponse(response)
3991
3992                         if(!is.null(resource$errors))
3993                                 stop(resource$errors)
3994
3995                         result <- AuthorizedKey$new(uuid = resource$uuid,
3996                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
3997                                 modified_by_client_uuid = resource$modified_by_client_uuid,
3998                                 modified_by_user_uuid = resource$modified_by_user_uuid,
3999                                 modified_at = resource$modified_at, name = resource$name,
4000                                 key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
4001                                 public_key = resource$public_key, expires_at = resource$expires_at,
4002                                 created_at = resource$created_at, updated_at = resource$updated_at)
4003
4004                         if(result$isEmpty())
4005                                 resource
4006                         else
4007                                 result
4008                 },
4009
4010                 authorized_keys.destroy = function(uuid)
4011                 {
4012                         endPoint <- stringr::str_interp("authorized_keys/${uuid}")
4013                         url <- paste0(private$host, endPoint)
4014                         headers <- list(Authorization = paste("OAuth2", private$token),
4015                                         "Content-Type" = "application/json")
4016                         queryArgs <- list(uuid = uuid)
4017                         body <- NULL
4018
4019                         response <- private$REST$http$exec("DELETE", url, headers, body,
4020                                                            queryArgs, private$numRetries)
4021                         resource <- private$REST$httpParser$parseJSONResponse(response)
4022
4023                         if(!is.null(resource$errors))
4024                                 stop(resource$errors)
4025
4026                         result <- AuthorizedKey$new(uuid = resource$uuid,
4027                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4028                                 modified_by_client_uuid = resource$modified_by_client_uuid,
4029                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4030                                 modified_at = resource$modified_at, name = resource$name,
4031                                 key_type = resource$key_type, authorized_user_uuid = resource$authorized_user_uuid,
4032                                 public_key = resource$public_key, expires_at = resource$expires_at,
4033                                 created_at = resource$created_at, updated_at = resource$updated_at)
4034
4035                         if(result$isEmpty())
4036                                 resource
4037                         else
4038                                 result
4039                 },
4040
4041                 collections.get = function(uuid)
4042                 {
4043                         endPoint <- stringr::str_interp("collections/${uuid}")
4044                         url <- paste0(private$host, endPoint)
4045                         headers <- list(Authorization = paste("OAuth2", private$token),
4046                                         "Content-Type" = "application/json")
4047                         queryArgs <- list(uuid = uuid)
4048                         body <- NULL
4049
4050                         response <- private$REST$http$exec("GET", url, headers, body,
4051                                                            queryArgs, private$numRetries)
4052                         resource <- private$REST$httpParser$parseJSONResponse(response)
4053
4054                         if(!is.null(resource$errors))
4055                                 stop(resource$errors)
4056
4057                         result <- Collection$new(uuid = resource$uuid,
4058                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4059                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
4060                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4061                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
4062                                 replication_desired = resource$replication_desired,
4063                                 replication_confirmed_at = resource$replication_confirmed_at,
4064                                 replication_confirmed = resource$replication_confirmed,
4065                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
4066                                 name = resource$name, description = resource$description,
4067                                 properties = resource$properties, delete_at = resource$delete_at,
4068                                 file_names = resource$file_names, trash_at = resource$trash_at,
4069                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
4070                                 storage_classes_confirmed = resource$storage_classes_confirmed,
4071                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
4072
4073                         result$setRESTService(private$REST)
4074
4075                         if(result$isEmpty())
4076                                 resource
4077                         else
4078                                 result
4079                 },
4080
4081                 collections.index = function(filters = NULL,
4082                         where = NULL, order = NULL, select = NULL,
4083                         distinct = NULL, limit = "100", offset = "0",
4084                         count = "exact", include_trash = NULL)
4085                 {
4086                         endPoint <- stringr::str_interp("collections")
4087                         url <- paste0(private$host, endPoint)
4088                         headers <- list(Authorization = paste("OAuth2", private$token),
4089                                         "Content-Type" = "application/json")
4090                         queryArgs <- list(filters = filters, where = where,
4091                                 order = order, select = select, distinct = distinct,
4092                                 limit = limit, offset = offset, count = count,
4093                                 include_trash = include_trash)
4094                         body <- NULL
4095
4096                         response <- private$REST$http$exec("GET", url, headers, body,
4097                                                            queryArgs, private$numRetries)
4098                         resource <- private$REST$httpParser$parseJSONResponse(response)
4099
4100                         if(!is.null(resource$errors))
4101                                 stop(resource$errors)
4102
4103                         result <- CollectionList$new(kind = resource$kind,
4104                                 etag = resource$etag, items = resource$items,
4105                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
4106                                 selfLink = resource$selfLink)
4107
4108                         if(result$isEmpty())
4109                                 resource
4110                         else
4111                                 result
4112                 },
4113
4114                 collections.create = function(collection, ensure_unique_name = "false")
4115                 {
4116                         endPoint <- stringr::str_interp("collections")
4117                         url <- paste0(private$host, endPoint)
4118                         headers <- list(Authorization = paste("OAuth2", private$token),
4119                                         "Content-Type" = "application/json")
4120                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
4121                         body <- collection$toJSON()
4122
4123                         response <- private$REST$http$exec("POST", url, headers, body,
4124                                                            queryArgs, private$numRetries)
4125                         resource <- private$REST$httpParser$parseJSONResponse(response)
4126
4127                         if(!is.null(resource$errors))
4128                                 stop(resource$errors)
4129
4130                         result <- Collection$new(uuid = resource$uuid,
4131                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4132                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
4133                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4134                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
4135                                 replication_desired = resource$replication_desired,
4136                                 replication_confirmed_at = resource$replication_confirmed_at,
4137                                 replication_confirmed = resource$replication_confirmed,
4138                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
4139                                 name = resource$name, description = resource$description,
4140                                 properties = resource$properties, delete_at = resource$delete_at,
4141                                 file_names = resource$file_names, trash_at = resource$trash_at,
4142                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
4143                                 storage_classes_confirmed = resource$storage_classes_confirmed,
4144                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
4145
4146                         result$setRESTService(private$REST)
4147
4148                         if(result$isEmpty())
4149                                 resource
4150                         else
4151                                 result
4152                 },
4153
4154                 collections.update = function(collection, uuid)
4155                 {
4156                         endPoint <- stringr::str_interp("collections/${uuid}")
4157                         url <- paste0(private$host, endPoint)
4158                         headers <- list(Authorization = paste("OAuth2", private$token),
4159                                         "Content-Type" = "application/json")
4160                         queryArgs <- list(uuid = uuid)
4161                         body <- collection$toJSON()
4162
4163                         response <- private$REST$http$exec("PUT", url, headers, body,
4164                                                            queryArgs, private$numRetries)
4165                         resource <- private$REST$httpParser$parseJSONResponse(response)
4166
4167                         if(!is.null(resource$errors))
4168                                 stop(resource$errors)
4169
4170                         result <- Collection$new(uuid = resource$uuid,
4171                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4172                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
4173                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4174                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
4175                                 replication_desired = resource$replication_desired,
4176                                 replication_confirmed_at = resource$replication_confirmed_at,
4177                                 replication_confirmed = resource$replication_confirmed,
4178                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
4179                                 name = resource$name, description = resource$description,
4180                                 properties = resource$properties, delete_at = resource$delete_at,
4181                                 file_names = resource$file_names, trash_at = resource$trash_at,
4182                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
4183                                 storage_classes_confirmed = resource$storage_classes_confirmed,
4184                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
4185
4186                         result$setRESTService(private$REST)
4187
4188                         if(result$isEmpty())
4189                                 resource
4190                         else
4191                                 result
4192                 },
4193
4194                 collections.delete = function(uuid)
4195                 {
4196                         endPoint <- stringr::str_interp("collections/${uuid}")
4197                         url <- paste0(private$host, endPoint)
4198                         headers <- list(Authorization = paste("OAuth2", private$token),
4199                                         "Content-Type" = "application/json")
4200                         queryArgs <- list(uuid = uuid)
4201                         body <- NULL
4202
4203                         response <- private$REST$http$exec("DELETE", url, headers, body,
4204                                                            queryArgs, private$numRetries)
4205                         resource <- private$REST$httpParser$parseJSONResponse(response)
4206
4207                         if(!is.null(resource$errors))
4208                                 stop(resource$errors)
4209
4210                         result <- Collection$new(uuid = resource$uuid,
4211                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4212                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
4213                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4214                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
4215                                 replication_desired = resource$replication_desired,
4216                                 replication_confirmed_at = resource$replication_confirmed_at,
4217                                 replication_confirmed = resource$replication_confirmed,
4218                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
4219                                 name = resource$name, description = resource$description,
4220                                 properties = resource$properties, delete_at = resource$delete_at,
4221                                 file_names = resource$file_names, trash_at = resource$trash_at,
4222                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
4223                                 storage_classes_confirmed = resource$storage_classes_confirmed,
4224                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
4225
4226                         result$setRESTService(private$REST)
4227
4228                         if(result$isEmpty())
4229                                 resource
4230                         else
4231                                 result
4232                 },
4233
4234                 collections.provenance = function(uuid)
4235                 {
4236                         endPoint <- stringr::str_interp("collections/${uuid}/provenance")
4237                         url <- paste0(private$host, endPoint)
4238                         headers <- list(Authorization = paste("OAuth2", private$token),
4239                                         "Content-Type" = "application/json")
4240                         queryArgs <- list(uuid = uuid)
4241                         body <- NULL
4242
4243                         response <- private$REST$http$exec("GET", url, headers, body,
4244                                                            queryArgs, private$numRetries)
4245                         resource <- private$REST$httpParser$parseJSONResponse(response)
4246
4247                         if(!is.null(resource$errors))
4248                                 stop(resource$errors)
4249
4250                         result <- Collection$new(uuid = resource$uuid,
4251                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4252                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
4253                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4254                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
4255                                 replication_desired = resource$replication_desired,
4256                                 replication_confirmed_at = resource$replication_confirmed_at,
4257                                 replication_confirmed = resource$replication_confirmed,
4258                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
4259                                 name = resource$name, description = resource$description,
4260                                 properties = resource$properties, delete_at = resource$delete_at,
4261                                 file_names = resource$file_names, trash_at = resource$trash_at,
4262                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
4263                                 storage_classes_confirmed = resource$storage_classes_confirmed,
4264                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
4265
4266                         result$setRESTService(private$REST)
4267
4268                         if(result$isEmpty())
4269                                 resource
4270                         else
4271                                 result
4272                 },
4273
4274                 collections.used_by = function(uuid)
4275                 {
4276                         endPoint <- stringr::str_interp("collections/${uuid}/used_by")
4277                         url <- paste0(private$host, endPoint)
4278                         headers <- list(Authorization = paste("OAuth2", private$token),
4279                                         "Content-Type" = "application/json")
4280                         queryArgs <- list(uuid = uuid)
4281                         body <- NULL
4282
4283                         response <- private$REST$http$exec("GET", url, headers, body,
4284                                                            queryArgs, private$numRetries)
4285                         resource <- private$REST$httpParser$parseJSONResponse(response)
4286
4287                         if(!is.null(resource$errors))
4288                                 stop(resource$errors)
4289
4290                         result <- Collection$new(uuid = resource$uuid,
4291                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4292                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
4293                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4294                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
4295                                 replication_desired = resource$replication_desired,
4296                                 replication_confirmed_at = resource$replication_confirmed_at,
4297                                 replication_confirmed = resource$replication_confirmed,
4298                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
4299                                 name = resource$name, description = resource$description,
4300                                 properties = resource$properties, delete_at = resource$delete_at,
4301                                 file_names = resource$file_names, trash_at = resource$trash_at,
4302                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
4303                                 storage_classes_confirmed = resource$storage_classes_confirmed,
4304                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
4305
4306                         result$setRESTService(private$REST)
4307
4308                         if(result$isEmpty())
4309                                 resource
4310                         else
4311                                 result
4312                 },
4313
4314                 collections.trash = function(uuid)
4315                 {
4316                         endPoint <- stringr::str_interp("collections/${uuid}/trash")
4317                         url <- paste0(private$host, endPoint)
4318                         headers <- list(Authorization = paste("OAuth2", private$token),
4319                                         "Content-Type" = "application/json")
4320                         queryArgs <- list(uuid = uuid)
4321                         body <- NULL
4322
4323                         response <- private$REST$http$exec("POST", url, headers, body,
4324                                                            queryArgs, private$numRetries)
4325                         resource <- private$REST$httpParser$parseJSONResponse(response)
4326
4327                         if(!is.null(resource$errors))
4328                                 stop(resource$errors)
4329
4330                         result <- Collection$new(uuid = resource$uuid,
4331                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4332                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
4333                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4334                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
4335                                 replication_desired = resource$replication_desired,
4336                                 replication_confirmed_at = resource$replication_confirmed_at,
4337                                 replication_confirmed = resource$replication_confirmed,
4338                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
4339                                 name = resource$name, description = resource$description,
4340                                 properties = resource$properties, delete_at = resource$delete_at,
4341                                 file_names = resource$file_names, trash_at = resource$trash_at,
4342                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
4343                                 storage_classes_confirmed = resource$storage_classes_confirmed,
4344                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
4345
4346                         result$setRESTService(private$REST)
4347
4348                         if(result$isEmpty())
4349                                 resource
4350                         else
4351                                 result
4352                 },
4353
4354                 collections.untrash = function(uuid)
4355                 {
4356                         endPoint <- stringr::str_interp("collections/${uuid}/untrash")
4357                         url <- paste0(private$host, endPoint)
4358                         headers <- list(Authorization = paste("OAuth2", private$token),
4359                                         "Content-Type" = "application/json")
4360                         queryArgs <- list(uuid = uuid)
4361                         body <- NULL
4362
4363                         response <- private$REST$http$exec("POST", url, headers, body,
4364                                                            queryArgs, private$numRetries)
4365                         resource <- private$REST$httpParser$parseJSONResponse(response)
4366
4367                         if(!is.null(resource$errors))
4368                                 stop(resource$errors)
4369
4370                         result <- Collection$new(uuid = resource$uuid,
4371                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4372                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
4373                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4374                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
4375                                 replication_desired = resource$replication_desired,
4376                                 replication_confirmed_at = resource$replication_confirmed_at,
4377                                 replication_confirmed = resource$replication_confirmed,
4378                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
4379                                 name = resource$name, description = resource$description,
4380                                 properties = resource$properties, delete_at = resource$delete_at,
4381                                 file_names = resource$file_names, trash_at = resource$trash_at,
4382                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
4383                                 storage_classes_confirmed = resource$storage_classes_confirmed,
4384                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
4385
4386                         result$setRESTService(private$REST)
4387
4388                         if(result$isEmpty())
4389                                 resource
4390                         else
4391                                 result
4392                 },
4393
4394                 collections.list = function(filters = NULL,
4395                         where = NULL, order = NULL, select = NULL,
4396                         distinct = NULL, limit = "100", offset = "0",
4397                         count = "exact", include_trash = NULL)
4398                 {
4399                         endPoint <- stringr::str_interp("collections")
4400                         url <- paste0(private$host, endPoint)
4401                         headers <- list(Authorization = paste("OAuth2", private$token),
4402                                         "Content-Type" = "application/json")
4403                         queryArgs <- list(filters = filters, where = where,
4404                                 order = order, select = select, distinct = distinct,
4405                                 limit = limit, offset = offset, count = count,
4406                                 include_trash = include_trash)
4407                         body <- NULL
4408
4409                         response <- private$REST$http$exec("GET", url, headers, body,
4410                                                            queryArgs, private$numRetries)
4411                         resource <- private$REST$httpParser$parseJSONResponse(response)
4412
4413                         if(!is.null(resource$errors))
4414                                 stop(resource$errors)
4415
4416                         result <- CollectionList$new(kind = resource$kind,
4417                                 etag = resource$etag, items = resource$items,
4418                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
4419                                 selfLink = resource$selfLink)
4420
4421                         if(result$isEmpty())
4422                                 resource
4423                         else
4424                                 result
4425                 },
4426
4427                 collections.show = function(uuid)
4428                 {
4429                         endPoint <- stringr::str_interp("collections/${uuid}")
4430                         url <- paste0(private$host, endPoint)
4431                         headers <- list(Authorization = paste("OAuth2", private$token),
4432                                         "Content-Type" = "application/json")
4433                         queryArgs <- list(uuid = uuid)
4434                         body <- NULL
4435
4436                         response <- private$REST$http$exec("GET", url, headers, body,
4437                                                            queryArgs, private$numRetries)
4438                         resource <- private$REST$httpParser$parseJSONResponse(response)
4439
4440                         if(!is.null(resource$errors))
4441                                 stop(resource$errors)
4442
4443                         result <- Collection$new(uuid = resource$uuid,
4444                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4445                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
4446                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4447                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
4448                                 replication_desired = resource$replication_desired,
4449                                 replication_confirmed_at = resource$replication_confirmed_at,
4450                                 replication_confirmed = resource$replication_confirmed,
4451                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
4452                                 name = resource$name, description = resource$description,
4453                                 properties = resource$properties, delete_at = resource$delete_at,
4454                                 file_names = resource$file_names, trash_at = resource$trash_at,
4455                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
4456                                 storage_classes_confirmed = resource$storage_classes_confirmed,
4457                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
4458
4459                         result$setRESTService(private$REST)
4460
4461                         if(result$isEmpty())
4462                                 resource
4463                         else
4464                                 result
4465                 },
4466
4467                 collections.destroy = function(uuid)
4468                 {
4469                         endPoint <- stringr::str_interp("collections/${uuid}")
4470                         url <- paste0(private$host, endPoint)
4471                         headers <- list(Authorization = paste("OAuth2", private$token),
4472                                         "Content-Type" = "application/json")
4473                         queryArgs <- list(uuid = uuid)
4474                         body <- NULL
4475
4476                         response <- private$REST$http$exec("DELETE", url, headers, body,
4477                                                            queryArgs, private$numRetries)
4478                         resource <- private$REST$httpParser$parseJSONResponse(response)
4479
4480                         if(!is.null(resource$errors))
4481                                 stop(resource$errors)
4482
4483                         result <- Collection$new(uuid = resource$uuid,
4484                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4485                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
4486                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4487                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
4488                                 replication_desired = resource$replication_desired,
4489                                 replication_confirmed_at = resource$replication_confirmed_at,
4490                                 replication_confirmed = resource$replication_confirmed,
4491                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
4492                                 name = resource$name, description = resource$description,
4493                                 properties = resource$properties, delete_at = resource$delete_at,
4494                                 file_names = resource$file_names, trash_at = resource$trash_at,
4495                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
4496                                 storage_classes_confirmed = resource$storage_classes_confirmed,
4497                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
4498
4499                         result$setRESTService(private$REST)
4500
4501                         if(result$isEmpty())
4502                                 resource
4503                         else
4504                                 result
4505                 },
4506
4507                 containers.get = function(uuid)
4508                 {
4509                         endPoint <- stringr::str_interp("containers/${uuid}")
4510                         url <- paste0(private$host, endPoint)
4511                         headers <- list(Authorization = paste("OAuth2", private$token),
4512                                         "Content-Type" = "application/json")
4513                         queryArgs <- list(uuid = uuid)
4514                         body <- NULL
4515
4516                         response <- private$REST$http$exec("GET", url, headers, body,
4517                                                            queryArgs, private$numRetries)
4518                         resource <- private$REST$httpParser$parseJSONResponse(response)
4519
4520                         if(!is.null(resource$errors))
4521                                 stop(resource$errors)
4522
4523                         result <- Container$new(uuid = resource$uuid,
4524                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4525                                 created_at = resource$created_at, modified_at = resource$modified_at,
4526                                 modified_by_client_uuid = resource$modified_by_client_uuid,
4527                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4528                                 state = resource$state, started_at = resource$started_at,
4529                                 finished_at = resource$finished_at, log = resource$log,
4530                                 environment = resource$environment, cwd = resource$cwd,
4531                                 command = resource$command, output_path = resource$output_path,
4532                                 mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
4533                                 output = resource$output, container_image = resource$container_image,
4534                                 progress = resource$progress, priority = resource$priority,
4535                                 updated_at = resource$updated_at, exit_code = resource$exit_code,
4536                                 auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
4537                                 scheduling_parameters = resource$scheduling_parameters)
4538
4539                         if(result$isEmpty())
4540                                 resource
4541                         else
4542                                 result
4543                 },
4544
4545                 containers.index = function(filters = NULL,
4546                         where = NULL, order = NULL, select = NULL,
4547                         distinct = NULL, limit = "100", offset = "0",
4548                         count = "exact")
4549                 {
4550                         endPoint <- stringr::str_interp("containers")
4551                         url <- paste0(private$host, endPoint)
4552                         headers <- list(Authorization = paste("OAuth2", private$token),
4553                                         "Content-Type" = "application/json")
4554                         queryArgs <- list(filters = filters, where = where,
4555                                 order = order, select = select, distinct = distinct,
4556                                 limit = limit, offset = offset, count = count)
4557                         body <- NULL
4558
4559                         response <- private$REST$http$exec("GET", url, headers, body,
4560                                                            queryArgs, private$numRetries)
4561                         resource <- private$REST$httpParser$parseJSONResponse(response)
4562
4563                         if(!is.null(resource$errors))
4564                                 stop(resource$errors)
4565
4566                         result <- ContainerList$new(kind = resource$kind,
4567                                 etag = resource$etag, items = resource$items,
4568                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
4569                                 selfLink = resource$selfLink)
4570
4571                         if(result$isEmpty())
4572                                 resource
4573                         else
4574                                 result
4575                 },
4576
4577                 containers.create = function(container, ensure_unique_name = "false")
4578                 {
4579                         endPoint <- stringr::str_interp("containers")
4580                         url <- paste0(private$host, endPoint)
4581                         headers <- list(Authorization = paste("OAuth2", private$token),
4582                                         "Content-Type" = "application/json")
4583                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
4584                         body <- container$toJSON()
4585
4586                         response <- private$REST$http$exec("POST", 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                         result <- Container$new(uuid = resource$uuid,
4594                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4595                                 created_at = resource$created_at, modified_at = resource$modified_at,
4596                                 modified_by_client_uuid = resource$modified_by_client_uuid,
4597                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4598                                 state = resource$state, started_at = resource$started_at,
4599                                 finished_at = resource$finished_at, log = resource$log,
4600                                 environment = resource$environment, cwd = resource$cwd,
4601                                 command = resource$command, output_path = resource$output_path,
4602                                 mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
4603                                 output = resource$output, container_image = resource$container_image,
4604                                 progress = resource$progress, priority = resource$priority,
4605                                 updated_at = resource$updated_at, exit_code = resource$exit_code,
4606                                 auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
4607                                 scheduling_parameters = resource$scheduling_parameters)
4608
4609                         if(result$isEmpty())
4610                                 resource
4611                         else
4612                                 result
4613                 },
4614
4615                 containers.update = function(container, uuid)
4616                 {
4617                         endPoint <- stringr::str_interp("containers/${uuid}")
4618                         url <- paste0(private$host, endPoint)
4619                         headers <- list(Authorization = paste("OAuth2", private$token),
4620                                         "Content-Type" = "application/json")
4621                         queryArgs <- list(uuid = uuid)
4622                         body <- container$toJSON()
4623
4624                         response <- private$REST$http$exec("PUT", url, headers, body,
4625                                                            queryArgs, private$numRetries)
4626                         resource <- private$REST$httpParser$parseJSONResponse(response)
4627
4628                         if(!is.null(resource$errors))
4629                                 stop(resource$errors)
4630
4631                         result <- Container$new(uuid = resource$uuid,
4632                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4633                                 created_at = resource$created_at, modified_at = resource$modified_at,
4634                                 modified_by_client_uuid = resource$modified_by_client_uuid,
4635                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4636                                 state = resource$state, started_at = resource$started_at,
4637                                 finished_at = resource$finished_at, log = resource$log,
4638                                 environment = resource$environment, cwd = resource$cwd,
4639                                 command = resource$command, output_path = resource$output_path,
4640                                 mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
4641                                 output = resource$output, container_image = resource$container_image,
4642                                 progress = resource$progress, priority = resource$priority,
4643                                 updated_at = resource$updated_at, exit_code = resource$exit_code,
4644                                 auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
4645                                 scheduling_parameters = resource$scheduling_parameters)
4646
4647                         if(result$isEmpty())
4648                                 resource
4649                         else
4650                                 result
4651                 },
4652
4653                 containers.delete = function(uuid)
4654                 {
4655                         endPoint <- stringr::str_interp("containers/${uuid}")
4656                         url <- paste0(private$host, endPoint)
4657                         headers <- list(Authorization = paste("OAuth2", private$token),
4658                                         "Content-Type" = "application/json")
4659                         queryArgs <- list(uuid = uuid)
4660                         body <- NULL
4661
4662                         response <- private$REST$http$exec("DELETE", url, headers, body,
4663                                                            queryArgs, private$numRetries)
4664                         resource <- private$REST$httpParser$parseJSONResponse(response)
4665
4666                         if(!is.null(resource$errors))
4667                                 stop(resource$errors)
4668
4669                         result <- Container$new(uuid = resource$uuid,
4670                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4671                                 created_at = resource$created_at, modified_at = resource$modified_at,
4672                                 modified_by_client_uuid = resource$modified_by_client_uuid,
4673                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4674                                 state = resource$state, started_at = resource$started_at,
4675                                 finished_at = resource$finished_at, log = resource$log,
4676                                 environment = resource$environment, cwd = resource$cwd,
4677                                 command = resource$command, output_path = resource$output_path,
4678                                 mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
4679                                 output = resource$output, container_image = resource$container_image,
4680                                 progress = resource$progress, priority = resource$priority,
4681                                 updated_at = resource$updated_at, exit_code = resource$exit_code,
4682                                 auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
4683                                 scheduling_parameters = resource$scheduling_parameters)
4684
4685                         if(result$isEmpty())
4686                                 resource
4687                         else
4688                                 result
4689                 },
4690
4691                 containers.auth = function(uuid)
4692                 {
4693                         endPoint <- stringr::str_interp("containers/${uuid}/auth")
4694                         url <- paste0(private$host, endPoint)
4695                         headers <- list(Authorization = paste("OAuth2", private$token),
4696                                         "Content-Type" = "application/json")
4697                         queryArgs <- list(uuid = uuid)
4698                         body <- NULL
4699
4700                         response <- private$REST$http$exec("GET", url, headers, body,
4701                                                            queryArgs, private$numRetries)
4702                         resource <- private$REST$httpParser$parseJSONResponse(response)
4703
4704                         if(!is.null(resource$errors))
4705                                 stop(resource$errors)
4706
4707                         result <- Container$new(uuid = resource$uuid,
4708                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4709                                 created_at = resource$created_at, modified_at = resource$modified_at,
4710                                 modified_by_client_uuid = resource$modified_by_client_uuid,
4711                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4712                                 state = resource$state, started_at = resource$started_at,
4713                                 finished_at = resource$finished_at, log = resource$log,
4714                                 environment = resource$environment, cwd = resource$cwd,
4715                                 command = resource$command, output_path = resource$output_path,
4716                                 mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
4717                                 output = resource$output, container_image = resource$container_image,
4718                                 progress = resource$progress, priority = resource$priority,
4719                                 updated_at = resource$updated_at, exit_code = resource$exit_code,
4720                                 auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
4721                                 scheduling_parameters = resource$scheduling_parameters)
4722
4723                         if(result$isEmpty())
4724                                 resource
4725                         else
4726                                 result
4727                 },
4728
4729                 containers.lock = function(uuid)
4730                 {
4731                         endPoint <- stringr::str_interp("containers/${uuid}/lock")
4732                         url <- paste0(private$host, endPoint)
4733                         headers <- list(Authorization = paste("OAuth2", private$token),
4734                                         "Content-Type" = "application/json")
4735                         queryArgs <- list(uuid = uuid)
4736                         body <- NULL
4737
4738                         response <- private$REST$http$exec("POST", url, headers, body,
4739                                                            queryArgs, private$numRetries)
4740                         resource <- private$REST$httpParser$parseJSONResponse(response)
4741
4742                         if(!is.null(resource$errors))
4743                                 stop(resource$errors)
4744
4745                         result <- Container$new(uuid = resource$uuid,
4746                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4747                                 created_at = resource$created_at, modified_at = resource$modified_at,
4748                                 modified_by_client_uuid = resource$modified_by_client_uuid,
4749                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4750                                 state = resource$state, started_at = resource$started_at,
4751                                 finished_at = resource$finished_at, log = resource$log,
4752                                 environment = resource$environment, cwd = resource$cwd,
4753                                 command = resource$command, output_path = resource$output_path,
4754                                 mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
4755                                 output = resource$output, container_image = resource$container_image,
4756                                 progress = resource$progress, priority = resource$priority,
4757                                 updated_at = resource$updated_at, exit_code = resource$exit_code,
4758                                 auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
4759                                 scheduling_parameters = resource$scheduling_parameters)
4760
4761                         if(result$isEmpty())
4762                                 resource
4763                         else
4764                                 result
4765                 },
4766
4767                 containers.unlock = function(uuid)
4768                 {
4769                         endPoint <- stringr::str_interp("containers/${uuid}/unlock")
4770                         url <- paste0(private$host, endPoint)
4771                         headers <- list(Authorization = paste("OAuth2", private$token),
4772                                         "Content-Type" = "application/json")
4773                         queryArgs <- list(uuid = uuid)
4774                         body <- NULL
4775
4776                         response <- private$REST$http$exec("POST", url, headers, body,
4777                                                            queryArgs, private$numRetries)
4778                         resource <- private$REST$httpParser$parseJSONResponse(response)
4779
4780                         if(!is.null(resource$errors))
4781                                 stop(resource$errors)
4782
4783                         result <- Container$new(uuid = resource$uuid,
4784                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4785                                 created_at = resource$created_at, modified_at = resource$modified_at,
4786                                 modified_by_client_uuid = resource$modified_by_client_uuid,
4787                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4788                                 state = resource$state, started_at = resource$started_at,
4789                                 finished_at = resource$finished_at, log = resource$log,
4790                                 environment = resource$environment, cwd = resource$cwd,
4791                                 command = resource$command, output_path = resource$output_path,
4792                                 mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
4793                                 output = resource$output, container_image = resource$container_image,
4794                                 progress = resource$progress, priority = resource$priority,
4795                                 updated_at = resource$updated_at, exit_code = resource$exit_code,
4796                                 auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
4797                                 scheduling_parameters = resource$scheduling_parameters)
4798
4799                         if(result$isEmpty())
4800                                 resource
4801                         else
4802                                 result
4803                 },
4804
4805                 containers.current = function()
4806                 {
4807                         endPoint <- stringr::str_interp("containers/current")
4808                         url <- paste0(private$host, endPoint)
4809                         headers <- list(Authorization = paste("OAuth2", private$token),
4810                                         "Content-Type" = "application/json")
4811                         queryArgs <- NULL
4812                         body <- NULL
4813
4814                         response <- private$REST$http$exec("GET", url, headers, body,
4815                                                            queryArgs, private$numRetries)
4816                         resource <- private$REST$httpParser$parseJSONResponse(response)
4817
4818                         if(!is.null(resource$errors))
4819                                 stop(resource$errors)
4820
4821                         result <- Container$new(uuid = resource$uuid,
4822                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4823                                 created_at = resource$created_at, modified_at = resource$modified_at,
4824                                 modified_by_client_uuid = resource$modified_by_client_uuid,
4825                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4826                                 state = resource$state, started_at = resource$started_at,
4827                                 finished_at = resource$finished_at, log = resource$log,
4828                                 environment = resource$environment, cwd = resource$cwd,
4829                                 command = resource$command, output_path = resource$output_path,
4830                                 mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
4831                                 output = resource$output, container_image = resource$container_image,
4832                                 progress = resource$progress, priority = resource$priority,
4833                                 updated_at = resource$updated_at, exit_code = resource$exit_code,
4834                                 auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
4835                                 scheduling_parameters = resource$scheduling_parameters)
4836
4837                         if(result$isEmpty())
4838                                 resource
4839                         else
4840                                 result
4841                 },
4842
4843                 containers.list = function(filters = NULL,
4844                         where = NULL, order = NULL, select = NULL,
4845                         distinct = NULL, limit = "100", offset = "0",
4846                         count = "exact")
4847                 {
4848                         endPoint <- stringr::str_interp("containers")
4849                         url <- paste0(private$host, endPoint)
4850                         headers <- list(Authorization = paste("OAuth2", private$token),
4851                                         "Content-Type" = "application/json")
4852                         queryArgs <- list(filters = filters, where = where,
4853                                 order = order, select = select, distinct = distinct,
4854                                 limit = limit, offset = offset, count = count)
4855                         body <- NULL
4856
4857                         response <- private$REST$http$exec("GET", url, headers, body,
4858                                                            queryArgs, private$numRetries)
4859                         resource <- private$REST$httpParser$parseJSONResponse(response)
4860
4861                         if(!is.null(resource$errors))
4862                                 stop(resource$errors)
4863
4864                         result <- ContainerList$new(kind = resource$kind,
4865                                 etag = resource$etag, items = resource$items,
4866                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
4867                                 selfLink = resource$selfLink)
4868
4869                         if(result$isEmpty())
4870                                 resource
4871                         else
4872                                 result
4873                 },
4874
4875                 containers.show = function(uuid)
4876                 {
4877                         endPoint <- stringr::str_interp("containers/${uuid}")
4878                         url <- paste0(private$host, endPoint)
4879                         headers <- list(Authorization = paste("OAuth2", private$token),
4880                                         "Content-Type" = "application/json")
4881                         queryArgs <- list(uuid = uuid)
4882                         body <- NULL
4883
4884                         response <- private$REST$http$exec("GET", url, headers, body,
4885                                                            queryArgs, private$numRetries)
4886                         resource <- private$REST$httpParser$parseJSONResponse(response)
4887
4888                         if(!is.null(resource$errors))
4889                                 stop(resource$errors)
4890
4891                         result <- Container$new(uuid = resource$uuid,
4892                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4893                                 created_at = resource$created_at, modified_at = resource$modified_at,
4894                                 modified_by_client_uuid = resource$modified_by_client_uuid,
4895                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4896                                 state = resource$state, started_at = resource$started_at,
4897                                 finished_at = resource$finished_at, log = resource$log,
4898                                 environment = resource$environment, cwd = resource$cwd,
4899                                 command = resource$command, output_path = resource$output_path,
4900                                 mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
4901                                 output = resource$output, container_image = resource$container_image,
4902                                 progress = resource$progress, priority = resource$priority,
4903                                 updated_at = resource$updated_at, exit_code = resource$exit_code,
4904                                 auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
4905                                 scheduling_parameters = resource$scheduling_parameters)
4906
4907                         if(result$isEmpty())
4908                                 resource
4909                         else
4910                                 result
4911                 },
4912
4913                 containers.destroy = function(uuid)
4914                 {
4915                         endPoint <- stringr::str_interp("containers/${uuid}")
4916                         url <- paste0(private$host, endPoint)
4917                         headers <- list(Authorization = paste("OAuth2", private$token),
4918                                         "Content-Type" = "application/json")
4919                         queryArgs <- list(uuid = uuid)
4920                         body <- NULL
4921
4922                         response <- private$REST$http$exec("DELETE", url, headers, body,
4923                                                            queryArgs, private$numRetries)
4924                         resource <- private$REST$httpParser$parseJSONResponse(response)
4925
4926                         if(!is.null(resource$errors))
4927                                 stop(resource$errors)
4928
4929                         result <- Container$new(uuid = resource$uuid,
4930                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4931                                 created_at = resource$created_at, modified_at = resource$modified_at,
4932                                 modified_by_client_uuid = resource$modified_by_client_uuid,
4933                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4934                                 state = resource$state, started_at = resource$started_at,
4935                                 finished_at = resource$finished_at, log = resource$log,
4936                                 environment = resource$environment, cwd = resource$cwd,
4937                                 command = resource$command, output_path = resource$output_path,
4938                                 mounts = resource$mounts, runtime_constraints = resource$runtime_constraints,
4939                                 output = resource$output, container_image = resource$container_image,
4940                                 progress = resource$progress, priority = resource$priority,
4941                                 updated_at = resource$updated_at, exit_code = resource$exit_code,
4942                                 auth_uuid = resource$auth_uuid, locked_by_uuid = resource$locked_by_uuid,
4943                                 scheduling_parameters = resource$scheduling_parameters)
4944
4945                         if(result$isEmpty())
4946                                 resource
4947                         else
4948                                 result
4949                 },
4950
4951                 humans.get = function(uuid)
4952                 {
4953                         endPoint <- stringr::str_interp("humans/${uuid}")
4954                         url <- paste0(private$host, endPoint)
4955                         headers <- list(Authorization = paste("OAuth2", private$token),
4956                                         "Content-Type" = "application/json")
4957                         queryArgs <- list(uuid = uuid)
4958                         body <- NULL
4959
4960                         response <- private$REST$http$exec("GET", url, headers, body,
4961                                                            queryArgs, private$numRetries)
4962                         resource <- private$REST$httpParser$parseJSONResponse(response)
4963
4964                         if(!is.null(resource$errors))
4965                                 stop(resource$errors)
4966
4967                         result <- Human$new(uuid = resource$uuid,
4968                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
4969                                 modified_by_client_uuid = resource$modified_by_client_uuid,
4970                                 modified_by_user_uuid = resource$modified_by_user_uuid,
4971                                 modified_at = resource$modified_at, properties = resource$properties,
4972                                 created_at = resource$created_at, updated_at = resource$updated_at)
4973
4974                         if(result$isEmpty())
4975                                 resource
4976                         else
4977                                 result
4978                 },
4979
4980                 humans.index = function(filters = NULL, where = NULL,
4981                         order = NULL, select = NULL, distinct = NULL,
4982                         limit = "100", offset = "0", count = "exact")
4983                 {
4984                         endPoint <- stringr::str_interp("humans")
4985                         url <- paste0(private$host, endPoint)
4986                         headers <- list(Authorization = paste("OAuth2", private$token),
4987                                         "Content-Type" = "application/json")
4988                         queryArgs <- list(filters = filters, where = where,
4989                                 order = order, select = select, distinct = distinct,
4990                                 limit = limit, offset = offset, count = count)
4991                         body <- NULL
4992
4993                         response <- private$REST$http$exec("GET", url, headers, body,
4994                                                            queryArgs, private$numRetries)
4995                         resource <- private$REST$httpParser$parseJSONResponse(response)
4996
4997                         if(!is.null(resource$errors))
4998                                 stop(resource$errors)
4999
5000                         result <- HumanList$new(kind = resource$kind,
5001                                 etag = resource$etag, items = resource$items,
5002                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
5003                                 selfLink = resource$selfLink)
5004
5005                         if(result$isEmpty())
5006                                 resource
5007                         else
5008                                 result
5009                 },
5010
5011                 humans.create = function(human, ensure_unique_name = "false")
5012                 {
5013                         endPoint <- stringr::str_interp("humans")
5014                         url <- paste0(private$host, endPoint)
5015                         headers <- list(Authorization = paste("OAuth2", private$token),
5016                                         "Content-Type" = "application/json")
5017                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
5018                         body <- human$toJSON()
5019
5020                         response <- private$REST$http$exec("POST", url, headers, body,
5021                                                            queryArgs, private$numRetries)
5022                         resource <- private$REST$httpParser$parseJSONResponse(response)
5023
5024                         if(!is.null(resource$errors))
5025                                 stop(resource$errors)
5026
5027                         result <- Human$new(uuid = resource$uuid,
5028                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5029                                 modified_by_client_uuid = resource$modified_by_client_uuid,
5030                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5031                                 modified_at = resource$modified_at, properties = resource$properties,
5032                                 created_at = resource$created_at, updated_at = resource$updated_at)
5033
5034                         if(result$isEmpty())
5035                                 resource
5036                         else
5037                                 result
5038                 },
5039
5040                 humans.update = function(human, uuid)
5041                 {
5042                         endPoint <- stringr::str_interp("humans/${uuid}")
5043                         url <- paste0(private$host, endPoint)
5044                         headers <- list(Authorization = paste("OAuth2", private$token),
5045                                         "Content-Type" = "application/json")
5046                         queryArgs <- list(uuid = uuid)
5047                         body <- human$toJSON()
5048
5049                         response <- private$REST$http$exec("PUT", url, headers, body,
5050                                                            queryArgs, private$numRetries)
5051                         resource <- private$REST$httpParser$parseJSONResponse(response)
5052
5053                         if(!is.null(resource$errors))
5054                                 stop(resource$errors)
5055
5056                         result <- Human$new(uuid = resource$uuid,
5057                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5058                                 modified_by_client_uuid = resource$modified_by_client_uuid,
5059                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5060                                 modified_at = resource$modified_at, properties = resource$properties,
5061                                 created_at = resource$created_at, updated_at = resource$updated_at)
5062
5063                         if(result$isEmpty())
5064                                 resource
5065                         else
5066                                 result
5067                 },
5068
5069                 humans.delete = function(uuid)
5070                 {
5071                         endPoint <- stringr::str_interp("humans/${uuid}")
5072                         url <- paste0(private$host, endPoint)
5073                         headers <- list(Authorization = paste("OAuth2", private$token),
5074                                         "Content-Type" = "application/json")
5075                         queryArgs <- list(uuid = uuid)
5076                         body <- NULL
5077
5078                         response <- private$REST$http$exec("DELETE", url, headers, body,
5079                                                            queryArgs, private$numRetries)
5080                         resource <- private$REST$httpParser$parseJSONResponse(response)
5081
5082                         if(!is.null(resource$errors))
5083                                 stop(resource$errors)
5084
5085                         result <- Human$new(uuid = resource$uuid,
5086                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5087                                 modified_by_client_uuid = resource$modified_by_client_uuid,
5088                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5089                                 modified_at = resource$modified_at, properties = resource$properties,
5090                                 created_at = resource$created_at, updated_at = resource$updated_at)
5091
5092                         if(result$isEmpty())
5093                                 resource
5094                         else
5095                                 result
5096                 },
5097
5098                 humans.list = function(filters = NULL, where = NULL,
5099                         order = NULL, select = NULL, distinct = NULL,
5100                         limit = "100", offset = "0", count = "exact")
5101                 {
5102                         endPoint <- stringr::str_interp("humans")
5103                         url <- paste0(private$host, endPoint)
5104                         headers <- list(Authorization = paste("OAuth2", private$token),
5105                                         "Content-Type" = "application/json")
5106                         queryArgs <- list(filters = filters, where = where,
5107                                 order = order, select = select, distinct = distinct,
5108                                 limit = limit, offset = offset, count = count)
5109                         body <- NULL
5110
5111                         response <- private$REST$http$exec("GET", url, headers, body,
5112                                                            queryArgs, private$numRetries)
5113                         resource <- private$REST$httpParser$parseJSONResponse(response)
5114
5115                         if(!is.null(resource$errors))
5116                                 stop(resource$errors)
5117
5118                         result <- HumanList$new(kind = resource$kind,
5119                                 etag = resource$etag, items = resource$items,
5120                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
5121                                 selfLink = resource$selfLink)
5122
5123                         if(result$isEmpty())
5124                                 resource
5125                         else
5126                                 result
5127                 },
5128
5129                 humans.show = function(uuid)
5130                 {
5131                         endPoint <- stringr::str_interp("humans/${uuid}")
5132                         url <- paste0(private$host, endPoint)
5133                         headers <- list(Authorization = paste("OAuth2", private$token),
5134                                         "Content-Type" = "application/json")
5135                         queryArgs <- list(uuid = uuid)
5136                         body <- NULL
5137
5138                         response <- private$REST$http$exec("GET", url, headers, body,
5139                                                            queryArgs, private$numRetries)
5140                         resource <- private$REST$httpParser$parseJSONResponse(response)
5141
5142                         if(!is.null(resource$errors))
5143                                 stop(resource$errors)
5144
5145                         result <- Human$new(uuid = resource$uuid,
5146                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5147                                 modified_by_client_uuid = resource$modified_by_client_uuid,
5148                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5149                                 modified_at = resource$modified_at, properties = resource$properties,
5150                                 created_at = resource$created_at, updated_at = resource$updated_at)
5151
5152                         if(result$isEmpty())
5153                                 resource
5154                         else
5155                                 result
5156                 },
5157
5158                 humans.destroy = function(uuid)
5159                 {
5160                         endPoint <- stringr::str_interp("humans/${uuid}")
5161                         url <- paste0(private$host, endPoint)
5162                         headers <- list(Authorization = paste("OAuth2", private$token),
5163                                         "Content-Type" = "application/json")
5164                         queryArgs <- list(uuid = uuid)
5165                         body <- NULL
5166
5167                         response <- private$REST$http$exec("DELETE", url, headers, body,
5168                                                            queryArgs, private$numRetries)
5169                         resource <- private$REST$httpParser$parseJSONResponse(response)
5170
5171                         if(!is.null(resource$errors))
5172                                 stop(resource$errors)
5173
5174                         result <- Human$new(uuid = resource$uuid,
5175                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5176                                 modified_by_client_uuid = resource$modified_by_client_uuid,
5177                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5178                                 modified_at = resource$modified_at, properties = resource$properties,
5179                                 created_at = resource$created_at, updated_at = resource$updated_at)
5180
5181                         if(result$isEmpty())
5182                                 resource
5183                         else
5184                                 result
5185                 },
5186
5187                 job_tasks.get = function(uuid)
5188                 {
5189                         endPoint <- stringr::str_interp("job_tasks/${uuid}")
5190                         url <- paste0(private$host, endPoint)
5191                         headers <- list(Authorization = paste("OAuth2", private$token),
5192                                         "Content-Type" = "application/json")
5193                         queryArgs <- list(uuid = uuid)
5194                         body <- NULL
5195
5196                         response <- private$REST$http$exec("GET", url, headers, body,
5197                                                            queryArgs, private$numRetries)
5198                         resource <- private$REST$httpParser$parseJSONResponse(response)
5199
5200                         if(!is.null(resource$errors))
5201                                 stop(resource$errors)
5202
5203                         result <- JobTask$new(uuid = resource$uuid,
5204                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5205                                 modified_by_client_uuid = resource$modified_by_client_uuid,
5206                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5207                                 modified_at = resource$modified_at, job_uuid = resource$job_uuid,
5208                                 sequence = resource$sequence, parameters = resource$parameters,
5209                                 output = resource$output, progress = resource$progress,
5210                                 success = resource$success, created_at = resource$created_at,
5211                                 updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
5212                                 qsequence = resource$qsequence, started_at = resource$started_at,
5213                                 finished_at = resource$finished_at)
5214
5215                         if(result$isEmpty())
5216                                 resource
5217                         else
5218                                 result
5219                 },
5220
5221                 job_tasks.index = function(filters = NULL,
5222                         where = NULL, order = NULL, select = NULL,
5223                         distinct = NULL, limit = "100", offset = "0",
5224                         count = "exact")
5225                 {
5226                         endPoint <- stringr::str_interp("job_tasks")
5227                         url <- paste0(private$host, endPoint)
5228                         headers <- list(Authorization = paste("OAuth2", private$token),
5229                                         "Content-Type" = "application/json")
5230                         queryArgs <- list(filters = filters, where = where,
5231                                 order = order, select = select, distinct = distinct,
5232                                 limit = limit, offset = offset, count = count)
5233                         body <- NULL
5234
5235                         response <- private$REST$http$exec("GET", url, headers, body,
5236                                                            queryArgs, private$numRetries)
5237                         resource <- private$REST$httpParser$parseJSONResponse(response)
5238
5239                         if(!is.null(resource$errors))
5240                                 stop(resource$errors)
5241
5242                         result <- JobTaskList$new(kind = resource$kind,
5243                                 etag = resource$etag, items = resource$items,
5244                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
5245                                 selfLink = resource$selfLink)
5246
5247                         if(result$isEmpty())
5248                                 resource
5249                         else
5250                                 result
5251                 },
5252
5253                 job_tasks.create = function(job_task, ensure_unique_name = "false")
5254                 {
5255                         endPoint <- stringr::str_interp("job_tasks")
5256                         url <- paste0(private$host, endPoint)
5257                         headers <- list(Authorization = paste("OAuth2", private$token),
5258                                         "Content-Type" = "application/json")
5259                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
5260                         body <- job_task$toJSON()
5261
5262                         response <- private$REST$http$exec("POST", url, headers, body,
5263                                                            queryArgs, private$numRetries)
5264                         resource <- private$REST$httpParser$parseJSONResponse(response)
5265
5266                         if(!is.null(resource$errors))
5267                                 stop(resource$errors)
5268
5269                         result <- JobTask$new(uuid = resource$uuid,
5270                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5271                                 modified_by_client_uuid = resource$modified_by_client_uuid,
5272                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5273                                 modified_at = resource$modified_at, job_uuid = resource$job_uuid,
5274                                 sequence = resource$sequence, parameters = resource$parameters,
5275                                 output = resource$output, progress = resource$progress,
5276                                 success = resource$success, created_at = resource$created_at,
5277                                 updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
5278                                 qsequence = resource$qsequence, started_at = resource$started_at,
5279                                 finished_at = resource$finished_at)
5280
5281                         if(result$isEmpty())
5282                                 resource
5283                         else
5284                                 result
5285                 },
5286
5287                 job_tasks.update = function(job_task, uuid)
5288                 {
5289                         endPoint <- stringr::str_interp("job_tasks/${uuid}")
5290                         url <- paste0(private$host, endPoint)
5291                         headers <- list(Authorization = paste("OAuth2", private$token),
5292                                         "Content-Type" = "application/json")
5293                         queryArgs <- list(uuid = uuid)
5294                         body <- job_task$toJSON()
5295
5296                         response <- private$REST$http$exec("PUT", url, headers, body,
5297                                                            queryArgs, private$numRetries)
5298                         resource <- private$REST$httpParser$parseJSONResponse(response)
5299
5300                         if(!is.null(resource$errors))
5301                                 stop(resource$errors)
5302
5303                         result <- JobTask$new(uuid = resource$uuid,
5304                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5305                                 modified_by_client_uuid = resource$modified_by_client_uuid,
5306                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5307                                 modified_at = resource$modified_at, job_uuid = resource$job_uuid,
5308                                 sequence = resource$sequence, parameters = resource$parameters,
5309                                 output = resource$output, progress = resource$progress,
5310                                 success = resource$success, created_at = resource$created_at,
5311                                 updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
5312                                 qsequence = resource$qsequence, started_at = resource$started_at,
5313                                 finished_at = resource$finished_at)
5314
5315                         if(result$isEmpty())
5316                                 resource
5317                         else
5318                                 result
5319                 },
5320
5321                 job_tasks.delete = function(uuid)
5322                 {
5323                         endPoint <- stringr::str_interp("job_tasks/${uuid}")
5324                         url <- paste0(private$host, endPoint)
5325                         headers <- list(Authorization = paste("OAuth2", private$token),
5326                                         "Content-Type" = "application/json")
5327                         queryArgs <- list(uuid = uuid)
5328                         body <- NULL
5329
5330                         response <- private$REST$http$exec("DELETE", url, headers, body,
5331                                                            queryArgs, private$numRetries)
5332                         resource <- private$REST$httpParser$parseJSONResponse(response)
5333
5334                         if(!is.null(resource$errors))
5335                                 stop(resource$errors)
5336
5337                         result <- JobTask$new(uuid = resource$uuid,
5338                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5339                                 modified_by_client_uuid = resource$modified_by_client_uuid,
5340                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5341                                 modified_at = resource$modified_at, job_uuid = resource$job_uuid,
5342                                 sequence = resource$sequence, parameters = resource$parameters,
5343                                 output = resource$output, progress = resource$progress,
5344                                 success = resource$success, created_at = resource$created_at,
5345                                 updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
5346                                 qsequence = resource$qsequence, started_at = resource$started_at,
5347                                 finished_at = resource$finished_at)
5348
5349                         if(result$isEmpty())
5350                                 resource
5351                         else
5352                                 result
5353                 },
5354
5355                 job_tasks.list = function(filters = NULL,
5356                         where = NULL, order = NULL, select = NULL,
5357                         distinct = NULL, limit = "100", offset = "0",
5358                         count = "exact")
5359                 {
5360                         endPoint <- stringr::str_interp("job_tasks")
5361                         url <- paste0(private$host, endPoint)
5362                         headers <- list(Authorization = paste("OAuth2", private$token),
5363                                         "Content-Type" = "application/json")
5364                         queryArgs <- list(filters = filters, where = where,
5365                                 order = order, select = select, distinct = distinct,
5366                                 limit = limit, offset = offset, count = count)
5367                         body <- NULL
5368
5369                         response <- private$REST$http$exec("GET", url, headers, body,
5370                                                            queryArgs, private$numRetries)
5371                         resource <- private$REST$httpParser$parseJSONResponse(response)
5372
5373                         if(!is.null(resource$errors))
5374                                 stop(resource$errors)
5375
5376                         result <- JobTaskList$new(kind = resource$kind,
5377                                 etag = resource$etag, items = resource$items,
5378                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
5379                                 selfLink = resource$selfLink)
5380
5381                         if(result$isEmpty())
5382                                 resource
5383                         else
5384                                 result
5385                 },
5386
5387                 job_tasks.show = function(uuid)
5388                 {
5389                         endPoint <- stringr::str_interp("job_tasks/${uuid}")
5390                         url <- paste0(private$host, endPoint)
5391                         headers <- list(Authorization = paste("OAuth2", private$token),
5392                                         "Content-Type" = "application/json")
5393                         queryArgs <- list(uuid = uuid)
5394                         body <- NULL
5395
5396                         response <- private$REST$http$exec("GET", url, headers, body,
5397                                                            queryArgs, private$numRetries)
5398                         resource <- private$REST$httpParser$parseJSONResponse(response)
5399
5400                         if(!is.null(resource$errors))
5401                                 stop(resource$errors)
5402
5403                         result <- JobTask$new(uuid = resource$uuid,
5404                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5405                                 modified_by_client_uuid = resource$modified_by_client_uuid,
5406                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5407                                 modified_at = resource$modified_at, job_uuid = resource$job_uuid,
5408                                 sequence = resource$sequence, parameters = resource$parameters,
5409                                 output = resource$output, progress = resource$progress,
5410                                 success = resource$success, created_at = resource$created_at,
5411                                 updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
5412                                 qsequence = resource$qsequence, started_at = resource$started_at,
5413                                 finished_at = resource$finished_at)
5414
5415                         if(result$isEmpty())
5416                                 resource
5417                         else
5418                                 result
5419                 },
5420
5421                 job_tasks.destroy = function(uuid)
5422                 {
5423                         endPoint <- stringr::str_interp("job_tasks/${uuid}")
5424                         url <- paste0(private$host, endPoint)
5425                         headers <- list(Authorization = paste("OAuth2", private$token),
5426                                         "Content-Type" = "application/json")
5427                         queryArgs <- list(uuid = uuid)
5428                         body <- NULL
5429
5430                         response <- private$REST$http$exec("DELETE", url, headers, body,
5431                                                            queryArgs, private$numRetries)
5432                         resource <- private$REST$httpParser$parseJSONResponse(response)
5433
5434                         if(!is.null(resource$errors))
5435                                 stop(resource$errors)
5436
5437                         result <- JobTask$new(uuid = resource$uuid,
5438                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5439                                 modified_by_client_uuid = resource$modified_by_client_uuid,
5440                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5441                                 modified_at = resource$modified_at, job_uuid = resource$job_uuid,
5442                                 sequence = resource$sequence, parameters = resource$parameters,
5443                                 output = resource$output, progress = resource$progress,
5444                                 success = resource$success, created_at = resource$created_at,
5445                                 updated_at = resource$updated_at, created_by_job_task_uuid = resource$created_by_job_task_uuid,
5446                                 qsequence = resource$qsequence, started_at = resource$started_at,
5447                                 finished_at = resource$finished_at)
5448
5449                         if(result$isEmpty())
5450                                 resource
5451                         else
5452                                 result
5453                 },
5454
5455                 links.get = function(uuid)
5456                 {
5457                         endPoint <- stringr::str_interp("links/${uuid}")
5458                         url <- paste0(private$host, endPoint)
5459                         headers <- list(Authorization = paste("OAuth2", private$token),
5460                                         "Content-Type" = "application/json")
5461                         queryArgs <- list(uuid = uuid)
5462                         body <- NULL
5463
5464                         response <- private$REST$http$exec("GET", url, headers, body,
5465                                                            queryArgs, private$numRetries)
5466                         resource <- private$REST$httpParser$parseJSONResponse(response)
5467
5468                         if(!is.null(resource$errors))
5469                                 stop(resource$errors)
5470
5471                         result <- Link$new(uuid = resource$uuid,
5472                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5473                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
5474                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5475                                 modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
5476                                 link_class = resource$link_class, name = resource$name,
5477                                 head_uuid = resource$head_uuid, properties = resource$properties,
5478                                 updated_at = resource$updated_at)
5479
5480                         if(result$isEmpty())
5481                                 resource
5482                         else
5483                                 result
5484                 },
5485
5486                 links.index = function(filters = NULL, where = NULL,
5487                         order = NULL, select = NULL, distinct = NULL,
5488                         limit = "100", offset = "0", count = "exact")
5489                 {
5490                         endPoint <- stringr::str_interp("links")
5491                         url <- paste0(private$host, endPoint)
5492                         headers <- list(Authorization = paste("OAuth2", private$token),
5493                                         "Content-Type" = "application/json")
5494                         queryArgs <- list(filters = filters, where = where,
5495                                 order = order, select = select, distinct = distinct,
5496                                 limit = limit, offset = offset, count = count)
5497                         body <- NULL
5498
5499                         response <- private$REST$http$exec("GET", url, headers, body,
5500                                                            queryArgs, private$numRetries)
5501                         resource <- private$REST$httpParser$parseJSONResponse(response)
5502
5503                         if(!is.null(resource$errors))
5504                                 stop(resource$errors)
5505
5506                         result <- LinkList$new(kind = resource$kind,
5507                                 etag = resource$etag, items = resource$items,
5508                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
5509                                 selfLink = resource$selfLink)
5510
5511                         if(result$isEmpty())
5512                                 resource
5513                         else
5514                                 result
5515                 },
5516
5517                 links.create = function(link, ensure_unique_name = "false")
5518                 {
5519                         endPoint <- stringr::str_interp("links")
5520                         url <- paste0(private$host, endPoint)
5521                         headers <- list(Authorization = paste("OAuth2", private$token),
5522                                         "Content-Type" = "application/json")
5523                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
5524                         body <- link$toJSON()
5525
5526                         response <- private$REST$http$exec("POST", url, headers, body,
5527                                                            queryArgs, private$numRetries)
5528                         resource <- private$REST$httpParser$parseJSONResponse(response)
5529
5530                         if(!is.null(resource$errors))
5531                                 stop(resource$errors)
5532
5533                         result <- Link$new(uuid = resource$uuid,
5534                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5535                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
5536                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5537                                 modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
5538                                 link_class = resource$link_class, name = resource$name,
5539                                 head_uuid = resource$head_uuid, properties = resource$properties,
5540                                 updated_at = resource$updated_at)
5541
5542                         if(result$isEmpty())
5543                                 resource
5544                         else
5545                                 result
5546                 },
5547
5548                 links.update = function(link, uuid)
5549                 {
5550                         endPoint <- stringr::str_interp("links/${uuid}")
5551                         url <- paste0(private$host, endPoint)
5552                         headers <- list(Authorization = paste("OAuth2", private$token),
5553                                         "Content-Type" = "application/json")
5554                         queryArgs <- list(uuid = uuid)
5555                         body <- link$toJSON()
5556
5557                         response <- private$REST$http$exec("PUT", url, headers, body,
5558                                                            queryArgs, private$numRetries)
5559                         resource <- private$REST$httpParser$parseJSONResponse(response)
5560
5561                         if(!is.null(resource$errors))
5562                                 stop(resource$errors)
5563
5564                         result <- Link$new(uuid = resource$uuid,
5565                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5566                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
5567                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5568                                 modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
5569                                 link_class = resource$link_class, name = resource$name,
5570                                 head_uuid = resource$head_uuid, properties = resource$properties,
5571                                 updated_at = resource$updated_at)
5572
5573                         if(result$isEmpty())
5574                                 resource
5575                         else
5576                                 result
5577                 },
5578
5579                 links.delete = function(uuid)
5580                 {
5581                         endPoint <- stringr::str_interp("links/${uuid}")
5582                         url <- paste0(private$host, endPoint)
5583                         headers <- list(Authorization = paste("OAuth2", private$token),
5584                                         "Content-Type" = "application/json")
5585                         queryArgs <- list(uuid = uuid)
5586                         body <- NULL
5587
5588                         response <- private$REST$http$exec("DELETE", url, headers, body,
5589                                                            queryArgs, private$numRetries)
5590                         resource <- private$REST$httpParser$parseJSONResponse(response)
5591
5592                         if(!is.null(resource$errors))
5593                                 stop(resource$errors)
5594
5595                         result <- Link$new(uuid = resource$uuid,
5596                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5597                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
5598                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5599                                 modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
5600                                 link_class = resource$link_class, name = resource$name,
5601                                 head_uuid = resource$head_uuid, properties = resource$properties,
5602                                 updated_at = resource$updated_at)
5603
5604                         if(result$isEmpty())
5605                                 resource
5606                         else
5607                                 result
5608                 },
5609
5610                 links.list = function(filters = NULL, where = NULL,
5611                         order = NULL, select = NULL, distinct = NULL,
5612                         limit = "100", offset = "0", count = "exact")
5613                 {
5614                         endPoint <- stringr::str_interp("links")
5615                         url <- paste0(private$host, endPoint)
5616                         headers <- list(Authorization = paste("OAuth2", private$token),
5617                                         "Content-Type" = "application/json")
5618                         queryArgs <- list(filters = filters, where = where,
5619                                 order = order, select = select, distinct = distinct,
5620                                 limit = limit, offset = offset, count = count)
5621                         body <- NULL
5622
5623                         response <- private$REST$http$exec("GET", url, headers, body,
5624                                                            queryArgs, private$numRetries)
5625                         resource <- private$REST$httpParser$parseJSONResponse(response)
5626
5627                         if(!is.null(resource$errors))
5628                                 stop(resource$errors)
5629
5630                         result <- LinkList$new(kind = resource$kind,
5631                                 etag = resource$etag, items = resource$items,
5632                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
5633                                 selfLink = resource$selfLink)
5634
5635                         if(result$isEmpty())
5636                                 resource
5637                         else
5638                                 result
5639                 },
5640
5641                 links.show = function(uuid)
5642                 {
5643                         endPoint <- stringr::str_interp("links/${uuid}")
5644                         url <- paste0(private$host, endPoint)
5645                         headers <- list(Authorization = paste("OAuth2", private$token),
5646                                         "Content-Type" = "application/json")
5647                         queryArgs <- list(uuid = uuid)
5648                         body <- NULL
5649
5650                         response <- private$REST$http$exec("GET", url, headers, body,
5651                                                            queryArgs, private$numRetries)
5652                         resource <- private$REST$httpParser$parseJSONResponse(response)
5653
5654                         if(!is.null(resource$errors))
5655                                 stop(resource$errors)
5656
5657                         result <- Link$new(uuid = resource$uuid,
5658                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5659                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
5660                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5661                                 modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
5662                                 link_class = resource$link_class, name = resource$name,
5663                                 head_uuid = resource$head_uuid, properties = resource$properties,
5664                                 updated_at = resource$updated_at)
5665
5666                         if(result$isEmpty())
5667                                 resource
5668                         else
5669                                 result
5670                 },
5671
5672                 links.destroy = function(uuid)
5673                 {
5674                         endPoint <- stringr::str_interp("links/${uuid}")
5675                         url <- paste0(private$host, endPoint)
5676                         headers <- list(Authorization = paste("OAuth2", private$token),
5677                                         "Content-Type" = "application/json")
5678                         queryArgs <- list(uuid = uuid)
5679                         body <- NULL
5680
5681                         response <- private$REST$http$exec("DELETE", url, headers, body,
5682                                                            queryArgs, private$numRetries)
5683                         resource <- private$REST$httpParser$parseJSONResponse(response)
5684
5685                         if(!is.null(resource$errors))
5686                                 stop(resource$errors)
5687
5688                         result <- Link$new(uuid = resource$uuid,
5689                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5690                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
5691                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5692                                 modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
5693                                 link_class = resource$link_class, name = resource$name,
5694                                 head_uuid = resource$head_uuid, properties = resource$properties,
5695                                 updated_at = resource$updated_at)
5696
5697                         if(result$isEmpty())
5698                                 resource
5699                         else
5700                                 result
5701                 },
5702
5703                 links.get_permissions = function(uuid)
5704                 {
5705                         endPoint <- stringr::str_interp("permissions/${uuid}")
5706                         url <- paste0(private$host, endPoint)
5707                         headers <- list(Authorization = paste("OAuth2", private$token),
5708                                         "Content-Type" = "application/json")
5709                         queryArgs <- list(uuid = uuid)
5710                         body <- NULL
5711
5712                         response <- private$REST$http$exec("GET", url, headers, body,
5713                                                            queryArgs, private$numRetries)
5714                         resource <- private$REST$httpParser$parseJSONResponse(response)
5715
5716                         if(!is.null(resource$errors))
5717                                 stop(resource$errors)
5718
5719                         result <- Link$new(uuid = resource$uuid,
5720                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
5721                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
5722                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5723                                 modified_at = resource$modified_at, tail_uuid = resource$tail_uuid,
5724                                 link_class = resource$link_class, name = resource$name,
5725                                 head_uuid = resource$head_uuid, properties = resource$properties,
5726                                 updated_at = resource$updated_at)
5727
5728                         if(result$isEmpty())
5729                                 resource
5730                         else
5731                                 result
5732                 },
5733
5734                 jobs.get = function(uuid)
5735                 {
5736                         endPoint <- stringr::str_interp("jobs/${uuid}")
5737                         url <- paste0(private$host, endPoint)
5738                         headers <- list(Authorization = paste("OAuth2", private$token),
5739                                         "Content-Type" = "application/json")
5740                         queryArgs <- list(uuid = uuid)
5741                         body <- NULL
5742
5743                         response <- private$REST$http$exec("GET", url, headers, body,
5744                                                            queryArgs, private$numRetries)
5745                         resource <- private$REST$httpParser$parseJSONResponse(response)
5746
5747                         if(!is.null(resource$errors))
5748                                 stop(resource$errors)
5749
5750                         result <- Job$new(uuid = resource$uuid, etag = resource$etag,
5751                                 owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
5752                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5753                                 modified_at = resource$modified_at, submit_id = resource$submit_id,
5754                                 script = resource$script, script_version = resource$script_version,
5755                                 script_parameters = resource$script_parameters,
5756                                 cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
5757                                 cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
5758                                 cancelled_at = resource$cancelled_at, started_at = resource$started_at,
5759                                 finished_at = resource$finished_at, running = resource$running,
5760                                 success = resource$success, output = resource$output,
5761                                 created_at = resource$created_at, updated_at = resource$updated_at,
5762                                 is_locked_by_uuid = resource$is_locked_by_uuid,
5763                                 log = resource$log, tasks_summary = resource$tasks_summary,
5764                                 runtime_constraints = resource$runtime_constraints,
5765                                 nondeterministic = resource$nondeterministic,
5766                                 repository = resource$repository, supplied_script_version = resource$supplied_script_version,
5767                                 docker_image_locator = resource$docker_image_locator,
5768                                 priority = resource$priority, description = resource$description,
5769                                 state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
5770                                 components = resource$components, script_parameters_digest = resource$script_parameters_digest)
5771
5772                         if(result$isEmpty())
5773                                 resource
5774                         else
5775                                 result
5776                 },
5777
5778                 jobs.index = function(filters = NULL, where = NULL,
5779                         order = NULL, select = NULL, distinct = NULL,
5780                         limit = "100", offset = "0", count = "exact")
5781                 {
5782                         endPoint <- stringr::str_interp("jobs")
5783                         url <- paste0(private$host, endPoint)
5784                         headers <- list(Authorization = paste("OAuth2", private$token),
5785                                         "Content-Type" = "application/json")
5786                         queryArgs <- list(filters = filters, where = where,
5787                                 order = order, select = select, distinct = distinct,
5788                                 limit = limit, offset = offset, count = count)
5789                         body <- NULL
5790
5791                         response <- private$REST$http$exec("GET", url, headers, body,
5792                                                            queryArgs, private$numRetries)
5793                         resource <- private$REST$httpParser$parseJSONResponse(response)
5794
5795                         if(!is.null(resource$errors))
5796                                 stop(resource$errors)
5797
5798                         result <- JobList$new(kind = resource$kind,
5799                                 etag = resource$etag, items = resource$items,
5800                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
5801                                 selfLink = resource$selfLink)
5802
5803                         if(result$isEmpty())
5804                                 resource
5805                         else
5806                                 result
5807                 },
5808
5809                 jobs.create = function(job, ensure_unique_name = "false",
5810                         find_or_create = "false", filters = NULL,
5811                         minimum_script_version = NULL, exclude_script_versions = NULL)
5812                 {
5813                         endPoint <- stringr::str_interp("jobs")
5814                         url <- paste0(private$host, endPoint)
5815                         headers <- list(Authorization = paste("OAuth2", private$token),
5816                                         "Content-Type" = "application/json")
5817                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
5818                                 find_or_create = find_or_create, filters = filters,
5819                                 minimum_script_version = minimum_script_version,
5820                                 exclude_script_versions = exclude_script_versions)
5821                         body <- job$toJSON()
5822
5823                         response <- private$REST$http$exec("POST", url, headers, body,
5824                                                            queryArgs, private$numRetries)
5825                         resource <- private$REST$httpParser$parseJSONResponse(response)
5826
5827                         if(!is.null(resource$errors))
5828                                 stop(resource$errors)
5829
5830                         result <- Job$new(uuid = resource$uuid, etag = resource$etag,
5831                                 owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
5832                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5833                                 modified_at = resource$modified_at, submit_id = resource$submit_id,
5834                                 script = resource$script, script_version = resource$script_version,
5835                                 script_parameters = resource$script_parameters,
5836                                 cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
5837                                 cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
5838                                 cancelled_at = resource$cancelled_at, started_at = resource$started_at,
5839                                 finished_at = resource$finished_at, running = resource$running,
5840                                 success = resource$success, output = resource$output,
5841                                 created_at = resource$created_at, updated_at = resource$updated_at,
5842                                 is_locked_by_uuid = resource$is_locked_by_uuid,
5843                                 log = resource$log, tasks_summary = resource$tasks_summary,
5844                                 runtime_constraints = resource$runtime_constraints,
5845                                 nondeterministic = resource$nondeterministic,
5846                                 repository = resource$repository, supplied_script_version = resource$supplied_script_version,
5847                                 docker_image_locator = resource$docker_image_locator,
5848                                 priority = resource$priority, description = resource$description,
5849                                 state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
5850                                 components = resource$components, script_parameters_digest = resource$script_parameters_digest)
5851
5852                         if(result$isEmpty())
5853                                 resource
5854                         else
5855                                 result
5856                 },
5857
5858                 jobs.update = function(job, uuid)
5859                 {
5860                         endPoint <- stringr::str_interp("jobs/${uuid}")
5861                         url <- paste0(private$host, endPoint)
5862                         headers <- list(Authorization = paste("OAuth2", private$token),
5863                                         "Content-Type" = "application/json")
5864                         queryArgs <- list(uuid = uuid)
5865                         body <- job$toJSON()
5866
5867                         response <- private$REST$http$exec("PUT", url, headers, body,
5868                                                            queryArgs, private$numRetries)
5869                         resource <- private$REST$httpParser$parseJSONResponse(response)
5870
5871                         if(!is.null(resource$errors))
5872                                 stop(resource$errors)
5873
5874                         result <- Job$new(uuid = resource$uuid, etag = resource$etag,
5875                                 owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
5876                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5877                                 modified_at = resource$modified_at, submit_id = resource$submit_id,
5878                                 script = resource$script, script_version = resource$script_version,
5879                                 script_parameters = resource$script_parameters,
5880                                 cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
5881                                 cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
5882                                 cancelled_at = resource$cancelled_at, started_at = resource$started_at,
5883                                 finished_at = resource$finished_at, running = resource$running,
5884                                 success = resource$success, output = resource$output,
5885                                 created_at = resource$created_at, updated_at = resource$updated_at,
5886                                 is_locked_by_uuid = resource$is_locked_by_uuid,
5887                                 log = resource$log, tasks_summary = resource$tasks_summary,
5888                                 runtime_constraints = resource$runtime_constraints,
5889                                 nondeterministic = resource$nondeterministic,
5890                                 repository = resource$repository, supplied_script_version = resource$supplied_script_version,
5891                                 docker_image_locator = resource$docker_image_locator,
5892                                 priority = resource$priority, description = resource$description,
5893                                 state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
5894                                 components = resource$components, script_parameters_digest = resource$script_parameters_digest)
5895
5896                         if(result$isEmpty())
5897                                 resource
5898                         else
5899                                 result
5900                 },
5901
5902                 jobs.delete = function(uuid)
5903                 {
5904                         endPoint <- stringr::str_interp("jobs/${uuid}")
5905                         url <- paste0(private$host, endPoint)
5906                         headers <- list(Authorization = paste("OAuth2", private$token),
5907                                         "Content-Type" = "application/json")
5908                         queryArgs <- list(uuid = uuid)
5909                         body <- NULL
5910
5911                         response <- private$REST$http$exec("DELETE", url, headers, body,
5912                                                            queryArgs, private$numRetries)
5913                         resource <- private$REST$httpParser$parseJSONResponse(response)
5914
5915                         if(!is.null(resource$errors))
5916                                 stop(resource$errors)
5917
5918                         result <- Job$new(uuid = resource$uuid, etag = resource$etag,
5919                                 owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
5920                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5921                                 modified_at = resource$modified_at, submit_id = resource$submit_id,
5922                                 script = resource$script, script_version = resource$script_version,
5923                                 script_parameters = resource$script_parameters,
5924                                 cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
5925                                 cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
5926                                 cancelled_at = resource$cancelled_at, started_at = resource$started_at,
5927                                 finished_at = resource$finished_at, running = resource$running,
5928                                 success = resource$success, output = resource$output,
5929                                 created_at = resource$created_at, updated_at = resource$updated_at,
5930                                 is_locked_by_uuid = resource$is_locked_by_uuid,
5931                                 log = resource$log, tasks_summary = resource$tasks_summary,
5932                                 runtime_constraints = resource$runtime_constraints,
5933                                 nondeterministic = resource$nondeterministic,
5934                                 repository = resource$repository, supplied_script_version = resource$supplied_script_version,
5935                                 docker_image_locator = resource$docker_image_locator,
5936                                 priority = resource$priority, description = resource$description,
5937                                 state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
5938                                 components = resource$components, script_parameters_digest = resource$script_parameters_digest)
5939
5940                         if(result$isEmpty())
5941                                 resource
5942                         else
5943                                 result
5944                 },
5945
5946                 jobs.queue = function(filters = NULL, where = NULL,
5947                         order = NULL, select = NULL, distinct = NULL,
5948                         limit = "100", offset = "0", count = "exact")
5949                 {
5950                         endPoint <- stringr::str_interp("jobs/queue")
5951                         url <- paste0(private$host, endPoint)
5952                         headers <- list(Authorization = paste("OAuth2", private$token),
5953                                         "Content-Type" = "application/json")
5954                         queryArgs <- list(filters = filters, where = where,
5955                                 order = order, select = select, distinct = distinct,
5956                                 limit = limit, offset = offset, count = count)
5957                         body <- NULL
5958
5959                         response <- private$REST$http$exec("GET", url, headers, body,
5960                                                            queryArgs, private$numRetries)
5961                         resource <- private$REST$httpParser$parseJSONResponse(response)
5962
5963                         if(!is.null(resource$errors))
5964                                 stop(resource$errors)
5965
5966                         result <- Job$new(uuid = resource$uuid, etag = resource$etag,
5967                                 owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
5968                                 modified_by_user_uuid = resource$modified_by_user_uuid,
5969                                 modified_at = resource$modified_at, submit_id = resource$submit_id,
5970                                 script = resource$script, script_version = resource$script_version,
5971                                 script_parameters = resource$script_parameters,
5972                                 cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
5973                                 cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
5974                                 cancelled_at = resource$cancelled_at, started_at = resource$started_at,
5975                                 finished_at = resource$finished_at, running = resource$running,
5976                                 success = resource$success, output = resource$output,
5977                                 created_at = resource$created_at, updated_at = resource$updated_at,
5978                                 is_locked_by_uuid = resource$is_locked_by_uuid,
5979                                 log = resource$log, tasks_summary = resource$tasks_summary,
5980                                 runtime_constraints = resource$runtime_constraints,
5981                                 nondeterministic = resource$nondeterministic,
5982                                 repository = resource$repository, supplied_script_version = resource$supplied_script_version,
5983                                 docker_image_locator = resource$docker_image_locator,
5984                                 priority = resource$priority, description = resource$description,
5985                                 state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
5986                                 components = resource$components, script_parameters_digest = resource$script_parameters_digest)
5987
5988                         if(result$isEmpty())
5989                                 resource
5990                         else
5991                                 result
5992                 },
5993
5994                 jobs.queue_size = function()
5995                 {
5996                         endPoint <- stringr::str_interp("jobs/queue_size")
5997                         url <- paste0(private$host, endPoint)
5998                         headers <- list(Authorization = paste("OAuth2", private$token),
5999                                         "Content-Type" = "application/json")
6000                         queryArgs <- NULL
6001                         body <- NULL
6002
6003                         response <- private$REST$http$exec("GET", url, headers, body,
6004                                                            queryArgs, private$numRetries)
6005                         resource <- private$REST$httpParser$parseJSONResponse(response)
6006
6007                         if(!is.null(resource$errors))
6008                                 stop(resource$errors)
6009
6010                         result <- Job$new(uuid = resource$uuid, etag = resource$etag,
6011                                 owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
6012                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6013                                 modified_at = resource$modified_at, submit_id = resource$submit_id,
6014                                 script = resource$script, script_version = resource$script_version,
6015                                 script_parameters = resource$script_parameters,
6016                                 cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
6017                                 cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
6018                                 cancelled_at = resource$cancelled_at, started_at = resource$started_at,
6019                                 finished_at = resource$finished_at, running = resource$running,
6020                                 success = resource$success, output = resource$output,
6021                                 created_at = resource$created_at, updated_at = resource$updated_at,
6022                                 is_locked_by_uuid = resource$is_locked_by_uuid,
6023                                 log = resource$log, tasks_summary = resource$tasks_summary,
6024                                 runtime_constraints = resource$runtime_constraints,
6025                                 nondeterministic = resource$nondeterministic,
6026                                 repository = resource$repository, supplied_script_version = resource$supplied_script_version,
6027                                 docker_image_locator = resource$docker_image_locator,
6028                                 priority = resource$priority, description = resource$description,
6029                                 state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
6030                                 components = resource$components, script_parameters_digest = resource$script_parameters_digest)
6031
6032                         if(result$isEmpty())
6033                                 resource
6034                         else
6035                                 result
6036                 },
6037
6038                 jobs.cancel = function(uuid)
6039                 {
6040                         endPoint <- stringr::str_interp("jobs/${uuid}/cancel")
6041                         url <- paste0(private$host, endPoint)
6042                         headers <- list(Authorization = paste("OAuth2", private$token),
6043                                         "Content-Type" = "application/json")
6044                         queryArgs <- list(uuid = uuid)
6045                         body <- NULL
6046
6047                         response <- private$REST$http$exec("POST", url, headers, body,
6048                                                            queryArgs, private$numRetries)
6049                         resource <- private$REST$httpParser$parseJSONResponse(response)
6050
6051                         if(!is.null(resource$errors))
6052                                 stop(resource$errors)
6053
6054                         result <- Job$new(uuid = resource$uuid, etag = resource$etag,
6055                                 owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
6056                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6057                                 modified_at = resource$modified_at, submit_id = resource$submit_id,
6058                                 script = resource$script, script_version = resource$script_version,
6059                                 script_parameters = resource$script_parameters,
6060                                 cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
6061                                 cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
6062                                 cancelled_at = resource$cancelled_at, started_at = resource$started_at,
6063                                 finished_at = resource$finished_at, running = resource$running,
6064                                 success = resource$success, output = resource$output,
6065                                 created_at = resource$created_at, updated_at = resource$updated_at,
6066                                 is_locked_by_uuid = resource$is_locked_by_uuid,
6067                                 log = resource$log, tasks_summary = resource$tasks_summary,
6068                                 runtime_constraints = resource$runtime_constraints,
6069                                 nondeterministic = resource$nondeterministic,
6070                                 repository = resource$repository, supplied_script_version = resource$supplied_script_version,
6071                                 docker_image_locator = resource$docker_image_locator,
6072                                 priority = resource$priority, description = resource$description,
6073                                 state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
6074                                 components = resource$components, script_parameters_digest = resource$script_parameters_digest)
6075
6076                         if(result$isEmpty())
6077                                 resource
6078                         else
6079                                 result
6080                 },
6081
6082                 jobs.lock = function(uuid)
6083                 {
6084                         endPoint <- stringr::str_interp("jobs/${uuid}/lock")
6085                         url <- paste0(private$host, endPoint)
6086                         headers <- list(Authorization = paste("OAuth2", private$token),
6087                                         "Content-Type" = "application/json")
6088                         queryArgs <- list(uuid = uuid)
6089                         body <- NULL
6090
6091                         response <- private$REST$http$exec("POST", url, headers, body,
6092                                                            queryArgs, private$numRetries)
6093                         resource <- private$REST$httpParser$parseJSONResponse(response)
6094
6095                         if(!is.null(resource$errors))
6096                                 stop(resource$errors)
6097
6098                         result <- Job$new(uuid = resource$uuid, etag = resource$etag,
6099                                 owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
6100                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6101                                 modified_at = resource$modified_at, submit_id = resource$submit_id,
6102                                 script = resource$script, script_version = resource$script_version,
6103                                 script_parameters = resource$script_parameters,
6104                                 cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
6105                                 cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
6106                                 cancelled_at = resource$cancelled_at, started_at = resource$started_at,
6107                                 finished_at = resource$finished_at, running = resource$running,
6108                                 success = resource$success, output = resource$output,
6109                                 created_at = resource$created_at, updated_at = resource$updated_at,
6110                                 is_locked_by_uuid = resource$is_locked_by_uuid,
6111                                 log = resource$log, tasks_summary = resource$tasks_summary,
6112                                 runtime_constraints = resource$runtime_constraints,
6113                                 nondeterministic = resource$nondeterministic,
6114                                 repository = resource$repository, supplied_script_version = resource$supplied_script_version,
6115                                 docker_image_locator = resource$docker_image_locator,
6116                                 priority = resource$priority, description = resource$description,
6117                                 state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
6118                                 components = resource$components, script_parameters_digest = resource$script_parameters_digest)
6119
6120                         if(result$isEmpty())
6121                                 resource
6122                         else
6123                                 result
6124                 },
6125
6126                 jobs.list = function(filters = NULL, where = NULL,
6127                         order = NULL, select = NULL, distinct = NULL,
6128                         limit = "100", offset = "0", count = "exact")
6129                 {
6130                         endPoint <- stringr::str_interp("jobs")
6131                         url <- paste0(private$host, endPoint)
6132                         headers <- list(Authorization = paste("OAuth2", private$token),
6133                                         "Content-Type" = "application/json")
6134                         queryArgs <- list(filters = filters, where = where,
6135                                 order = order, select = select, distinct = distinct,
6136                                 limit = limit, offset = offset, count = count)
6137                         body <- NULL
6138
6139                         response <- private$REST$http$exec("GET", url, headers, body,
6140                                                            queryArgs, private$numRetries)
6141                         resource <- private$REST$httpParser$parseJSONResponse(response)
6142
6143                         if(!is.null(resource$errors))
6144                                 stop(resource$errors)
6145
6146                         result <- JobList$new(kind = resource$kind,
6147                                 etag = resource$etag, items = resource$items,
6148                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
6149                                 selfLink = resource$selfLink)
6150
6151                         if(result$isEmpty())
6152                                 resource
6153                         else
6154                                 result
6155                 },
6156
6157                 jobs.show = function(uuid)
6158                 {
6159                         endPoint <- stringr::str_interp("jobs/${uuid}")
6160                         url <- paste0(private$host, endPoint)
6161                         headers <- list(Authorization = paste("OAuth2", private$token),
6162                                         "Content-Type" = "application/json")
6163                         queryArgs <- list(uuid = uuid)
6164                         body <- NULL
6165
6166                         response <- private$REST$http$exec("GET", url, headers, body,
6167                                                            queryArgs, private$numRetries)
6168                         resource <- private$REST$httpParser$parseJSONResponse(response)
6169
6170                         if(!is.null(resource$errors))
6171                                 stop(resource$errors)
6172
6173                         result <- Job$new(uuid = resource$uuid, etag = resource$etag,
6174                                 owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
6175                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6176                                 modified_at = resource$modified_at, submit_id = resource$submit_id,
6177                                 script = resource$script, script_version = resource$script_version,
6178                                 script_parameters = resource$script_parameters,
6179                                 cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
6180                                 cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
6181                                 cancelled_at = resource$cancelled_at, started_at = resource$started_at,
6182                                 finished_at = resource$finished_at, running = resource$running,
6183                                 success = resource$success, output = resource$output,
6184                                 created_at = resource$created_at, updated_at = resource$updated_at,
6185                                 is_locked_by_uuid = resource$is_locked_by_uuid,
6186                                 log = resource$log, tasks_summary = resource$tasks_summary,
6187                                 runtime_constraints = resource$runtime_constraints,
6188                                 nondeterministic = resource$nondeterministic,
6189                                 repository = resource$repository, supplied_script_version = resource$supplied_script_version,
6190                                 docker_image_locator = resource$docker_image_locator,
6191                                 priority = resource$priority, description = resource$description,
6192                                 state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
6193                                 components = resource$components, script_parameters_digest = resource$script_parameters_digest)
6194
6195                         if(result$isEmpty())
6196                                 resource
6197                         else
6198                                 result
6199                 },
6200
6201                 jobs.destroy = function(uuid)
6202                 {
6203                         endPoint <- stringr::str_interp("jobs/${uuid}")
6204                         url <- paste0(private$host, endPoint)
6205                         headers <- list(Authorization = paste("OAuth2", private$token),
6206                                         "Content-Type" = "application/json")
6207                         queryArgs <- list(uuid = uuid)
6208                         body <- NULL
6209
6210                         response <- private$REST$http$exec("DELETE", url, headers, body,
6211                                                            queryArgs, private$numRetries)
6212                         resource <- private$REST$httpParser$parseJSONResponse(response)
6213
6214                         if(!is.null(resource$errors))
6215                                 stop(resource$errors)
6216
6217                         result <- Job$new(uuid = resource$uuid, etag = resource$etag,
6218                                 owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
6219                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6220                                 modified_at = resource$modified_at, submit_id = resource$submit_id,
6221                                 script = resource$script, script_version = resource$script_version,
6222                                 script_parameters = resource$script_parameters,
6223                                 cancelled_by_client_uuid = resource$cancelled_by_client_uuid,
6224                                 cancelled_by_user_uuid = resource$cancelled_by_user_uuid,
6225                                 cancelled_at = resource$cancelled_at, started_at = resource$started_at,
6226                                 finished_at = resource$finished_at, running = resource$running,
6227                                 success = resource$success, output = resource$output,
6228                                 created_at = resource$created_at, updated_at = resource$updated_at,
6229                                 is_locked_by_uuid = resource$is_locked_by_uuid,
6230                                 log = resource$log, tasks_summary = resource$tasks_summary,
6231                                 runtime_constraints = resource$runtime_constraints,
6232                                 nondeterministic = resource$nondeterministic,
6233                                 repository = resource$repository, supplied_script_version = resource$supplied_script_version,
6234                                 docker_image_locator = resource$docker_image_locator,
6235                                 priority = resource$priority, description = resource$description,
6236                                 state = resource$state, arvados_sdk_version = resource$arvados_sdk_version,
6237                                 components = resource$components, script_parameters_digest = resource$script_parameters_digest)
6238
6239                         if(result$isEmpty())
6240                                 resource
6241                         else
6242                                 result
6243                 },
6244
6245                 keep_disks.get = function(uuid)
6246                 {
6247                         endPoint <- stringr::str_interp("keep_disks/${uuid}")
6248                         url <- paste0(private$host, endPoint)
6249                         headers <- list(Authorization = paste("OAuth2", private$token),
6250                                         "Content-Type" = "application/json")
6251                         queryArgs <- list(uuid = uuid)
6252                         body <- NULL
6253
6254                         response <- private$REST$http$exec("GET", url, headers, body,
6255                                                            queryArgs, private$numRetries)
6256                         resource <- private$REST$httpParser$parseJSONResponse(response)
6257
6258                         if(!is.null(resource$errors))
6259                                 stop(resource$errors)
6260
6261                         result <- KeepDisk$new(uuid = resource$uuid,
6262                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6263                                 modified_by_client_uuid = resource$modified_by_client_uuid,
6264                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6265                                 modified_at = resource$modified_at, ping_secret = resource$ping_secret,
6266                                 node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
6267                                 bytes_total = resource$bytes_total, bytes_free = resource$bytes_free,
6268                                 is_readable = resource$is_readable, is_writable = resource$is_writable,
6269                                 last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
6270                                 last_ping_at = resource$last_ping_at, created_at = resource$created_at,
6271                                 updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
6272
6273                         if(result$isEmpty())
6274                                 resource
6275                         else
6276                                 result
6277                 },
6278
6279                 keep_disks.index = function(filters = NULL,
6280                         where = NULL, order = NULL, select = NULL,
6281                         distinct = NULL, limit = "100", offset = "0",
6282                         count = "exact")
6283                 {
6284                         endPoint <- stringr::str_interp("keep_disks")
6285                         url <- paste0(private$host, endPoint)
6286                         headers <- list(Authorization = paste("OAuth2", private$token),
6287                                         "Content-Type" = "application/json")
6288                         queryArgs <- list(filters = filters, where = where,
6289                                 order = order, select = select, distinct = distinct,
6290                                 limit = limit, offset = offset, count = count)
6291                         body <- NULL
6292
6293                         response <- private$REST$http$exec("GET", url, headers, body,
6294                                                            queryArgs, private$numRetries)
6295                         resource <- private$REST$httpParser$parseJSONResponse(response)
6296
6297                         if(!is.null(resource$errors))
6298                                 stop(resource$errors)
6299
6300                         result <- KeepDiskList$new(kind = resource$kind,
6301                                 etag = resource$etag, items = resource$items,
6302                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
6303                                 selfLink = resource$selfLink)
6304
6305                         if(result$isEmpty())
6306                                 resource
6307                         else
6308                                 result
6309                 },
6310
6311                 keep_disks.create = function(keep_disk, ensure_unique_name = "false")
6312                 {
6313                         endPoint <- stringr::str_interp("keep_disks")
6314                         url <- paste0(private$host, endPoint)
6315                         headers <- list(Authorization = paste("OAuth2", private$token),
6316                                         "Content-Type" = "application/json")
6317                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
6318                         body <- keep_disk$toJSON()
6319
6320                         response <- private$REST$http$exec("POST", url, headers, body,
6321                                                            queryArgs, private$numRetries)
6322                         resource <- private$REST$httpParser$parseJSONResponse(response)
6323
6324                         if(!is.null(resource$errors))
6325                                 stop(resource$errors)
6326
6327                         result <- KeepDisk$new(uuid = resource$uuid,
6328                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6329                                 modified_by_client_uuid = resource$modified_by_client_uuid,
6330                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6331                                 modified_at = resource$modified_at, ping_secret = resource$ping_secret,
6332                                 node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
6333                                 bytes_total = resource$bytes_total, bytes_free = resource$bytes_free,
6334                                 is_readable = resource$is_readable, is_writable = resource$is_writable,
6335                                 last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
6336                                 last_ping_at = resource$last_ping_at, created_at = resource$created_at,
6337                                 updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
6338
6339                         if(result$isEmpty())
6340                                 resource
6341                         else
6342                                 result
6343                 },
6344
6345                 keep_disks.update = function(keep_disk, uuid)
6346                 {
6347                         endPoint <- stringr::str_interp("keep_disks/${uuid}")
6348                         url <- paste0(private$host, endPoint)
6349                         headers <- list(Authorization = paste("OAuth2", private$token),
6350                                         "Content-Type" = "application/json")
6351                         queryArgs <- list(uuid = uuid)
6352                         body <- keep_disk$toJSON()
6353
6354                         response <- private$REST$http$exec("PUT", url, headers, body,
6355                                                            queryArgs, private$numRetries)
6356                         resource <- private$REST$httpParser$parseJSONResponse(response)
6357
6358                         if(!is.null(resource$errors))
6359                                 stop(resource$errors)
6360
6361                         result <- KeepDisk$new(uuid = resource$uuid,
6362                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6363                                 modified_by_client_uuid = resource$modified_by_client_uuid,
6364                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6365                                 modified_at = resource$modified_at, ping_secret = resource$ping_secret,
6366                                 node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
6367                                 bytes_total = resource$bytes_total, bytes_free = resource$bytes_free,
6368                                 is_readable = resource$is_readable, is_writable = resource$is_writable,
6369                                 last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
6370                                 last_ping_at = resource$last_ping_at, created_at = resource$created_at,
6371                                 updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
6372
6373                         if(result$isEmpty())
6374                                 resource
6375                         else
6376                                 result
6377                 },
6378
6379                 keep_disks.delete = function(uuid)
6380                 {
6381                         endPoint <- stringr::str_interp("keep_disks/${uuid}")
6382                         url <- paste0(private$host, endPoint)
6383                         headers <- list(Authorization = paste("OAuth2", private$token),
6384                                         "Content-Type" = "application/json")
6385                         queryArgs <- list(uuid = uuid)
6386                         body <- NULL
6387
6388                         response <- private$REST$http$exec("DELETE", url, headers, body,
6389                                                            queryArgs, private$numRetries)
6390                         resource <- private$REST$httpParser$parseJSONResponse(response)
6391
6392                         if(!is.null(resource$errors))
6393                                 stop(resource$errors)
6394
6395                         result <- KeepDisk$new(uuid = resource$uuid,
6396                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6397                                 modified_by_client_uuid = resource$modified_by_client_uuid,
6398                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6399                                 modified_at = resource$modified_at, ping_secret = resource$ping_secret,
6400                                 node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
6401                                 bytes_total = resource$bytes_total, bytes_free = resource$bytes_free,
6402                                 is_readable = resource$is_readable, is_writable = resource$is_writable,
6403                                 last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
6404                                 last_ping_at = resource$last_ping_at, created_at = resource$created_at,
6405                                 updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
6406
6407                         if(result$isEmpty())
6408                                 resource
6409                         else
6410                                 result
6411                 },
6412
6413                 keep_disks.ping = function(uuid = NULL, ping_secret,
6414                         node_uuid = NULL, filesystem_uuid = NULL,
6415                         service_host = NULL, service_port, service_ssl_flag)
6416                 {
6417                         endPoint <- stringr::str_interp("keep_disks/ping")
6418                         url <- paste0(private$host, endPoint)
6419                         headers <- list(Authorization = paste("OAuth2", private$token),
6420                                         "Content-Type" = "application/json")
6421                         queryArgs <- list(uuid = uuid, ping_secret = ping_secret,
6422                                 node_uuid = node_uuid, filesystem_uuid = filesystem_uuid,
6423                                 service_host = service_host, service_port = service_port,
6424                                 service_ssl_flag = service_ssl_flag)
6425                         body <- NULL
6426
6427                         response <- private$REST$http$exec("POST", url, headers, body,
6428                                                            queryArgs, private$numRetries)
6429                         resource <- private$REST$httpParser$parseJSONResponse(response)
6430
6431                         if(!is.null(resource$errors))
6432                                 stop(resource$errors)
6433
6434                         result <- KeepDisk$new(uuid = resource$uuid,
6435                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6436                                 modified_by_client_uuid = resource$modified_by_client_uuid,
6437                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6438                                 modified_at = resource$modified_at, ping_secret = resource$ping_secret,
6439                                 node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
6440                                 bytes_total = resource$bytes_total, bytes_free = resource$bytes_free,
6441                                 is_readable = resource$is_readable, is_writable = resource$is_writable,
6442                                 last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
6443                                 last_ping_at = resource$last_ping_at, created_at = resource$created_at,
6444                                 updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
6445
6446                         if(result$isEmpty())
6447                                 resource
6448                         else
6449                                 result
6450                 },
6451
6452                 keep_disks.list = function(filters = NULL,
6453                         where = NULL, order = NULL, select = NULL,
6454                         distinct = NULL, limit = "100", offset = "0",
6455                         count = "exact")
6456                 {
6457                         endPoint <- stringr::str_interp("keep_disks")
6458                         url <- paste0(private$host, endPoint)
6459                         headers <- list(Authorization = paste("OAuth2", private$token),
6460                                         "Content-Type" = "application/json")
6461                         queryArgs <- list(filters = filters, where = where,
6462                                 order = order, select = select, distinct = distinct,
6463                                 limit = limit, offset = offset, count = count)
6464                         body <- NULL
6465
6466                         response <- private$REST$http$exec("GET", url, headers, body,
6467                                                            queryArgs, private$numRetries)
6468                         resource <- private$REST$httpParser$parseJSONResponse(response)
6469
6470                         if(!is.null(resource$errors))
6471                                 stop(resource$errors)
6472
6473                         result <- KeepDiskList$new(kind = resource$kind,
6474                                 etag = resource$etag, items = resource$items,
6475                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
6476                                 selfLink = resource$selfLink)
6477
6478                         if(result$isEmpty())
6479                                 resource
6480                         else
6481                                 result
6482                 },
6483
6484                 keep_disks.show = function(uuid)
6485                 {
6486                         endPoint <- stringr::str_interp("keep_disks/${uuid}")
6487                         url <- paste0(private$host, endPoint)
6488                         headers <- list(Authorization = paste("OAuth2", private$token),
6489                                         "Content-Type" = "application/json")
6490                         queryArgs <- list(uuid = uuid)
6491                         body <- NULL
6492
6493                         response <- private$REST$http$exec("GET", url, headers, body,
6494                                                            queryArgs, private$numRetries)
6495                         resource <- private$REST$httpParser$parseJSONResponse(response)
6496
6497                         if(!is.null(resource$errors))
6498                                 stop(resource$errors)
6499
6500                         result <- KeepDisk$new(uuid = resource$uuid,
6501                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6502                                 modified_by_client_uuid = resource$modified_by_client_uuid,
6503                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6504                                 modified_at = resource$modified_at, ping_secret = resource$ping_secret,
6505                                 node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
6506                                 bytes_total = resource$bytes_total, bytes_free = resource$bytes_free,
6507                                 is_readable = resource$is_readable, is_writable = resource$is_writable,
6508                                 last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
6509                                 last_ping_at = resource$last_ping_at, created_at = resource$created_at,
6510                                 updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
6511
6512                         if(result$isEmpty())
6513                                 resource
6514                         else
6515                                 result
6516                 },
6517
6518                 keep_disks.destroy = function(uuid)
6519                 {
6520                         endPoint <- stringr::str_interp("keep_disks/${uuid}")
6521                         url <- paste0(private$host, endPoint)
6522                         headers <- list(Authorization = paste("OAuth2", private$token),
6523                                         "Content-Type" = "application/json")
6524                         queryArgs <- list(uuid = uuid)
6525                         body <- NULL
6526
6527                         response <- private$REST$http$exec("DELETE", url, headers, body,
6528                                                            queryArgs, private$numRetries)
6529                         resource <- private$REST$httpParser$parseJSONResponse(response)
6530
6531                         if(!is.null(resource$errors))
6532                                 stop(resource$errors)
6533
6534                         result <- KeepDisk$new(uuid = resource$uuid,
6535                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6536                                 modified_by_client_uuid = resource$modified_by_client_uuid,
6537                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6538                                 modified_at = resource$modified_at, ping_secret = resource$ping_secret,
6539                                 node_uuid = resource$node_uuid, filesystem_uuid = resource$filesystem_uuid,
6540                                 bytes_total = resource$bytes_total, bytes_free = resource$bytes_free,
6541                                 is_readable = resource$is_readable, is_writable = resource$is_writable,
6542                                 last_read_at = resource$last_read_at, last_write_at = resource$last_write_at,
6543                                 last_ping_at = resource$last_ping_at, created_at = resource$created_at,
6544                                 updated_at = resource$updated_at, keep_service_uuid = resource$keep_service_uuid)
6545
6546                         if(result$isEmpty())
6547                                 resource
6548                         else
6549                                 result
6550                 },
6551
6552                 keep_services.get = function(uuid)
6553                 {
6554                         endPoint <- stringr::str_interp("keep_services/${uuid}")
6555                         url <- paste0(private$host, endPoint)
6556                         headers <- list(Authorization = paste("OAuth2", private$token),
6557                                         "Content-Type" = "application/json")
6558                         queryArgs <- list(uuid = uuid)
6559                         body <- NULL
6560
6561                         response <- private$REST$http$exec("GET", url, headers, body,
6562                                                            queryArgs, private$numRetries)
6563                         resource <- private$REST$httpParser$parseJSONResponse(response)
6564
6565                         if(!is.null(resource$errors))
6566                                 stop(resource$errors)
6567
6568                         result <- KeepService$new(uuid = resource$uuid,
6569                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6570                                 modified_by_client_uuid = resource$modified_by_client_uuid,
6571                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6572                                 modified_at = resource$modified_at, service_host = resource$service_host,
6573                                 service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
6574                                 service_type = resource$service_type, created_at = resource$created_at,
6575                                 updated_at = resource$updated_at, read_only = resource$read_only)
6576
6577                         if(result$isEmpty())
6578                                 resource
6579                         else
6580                                 result
6581                 },
6582
6583                 keep_services.index = function(filters = NULL,
6584                         where = NULL, order = NULL, select = NULL,
6585                         distinct = NULL, limit = "100", offset = "0",
6586                         count = "exact")
6587                 {
6588                         endPoint <- stringr::str_interp("keep_services")
6589                         url <- paste0(private$host, endPoint)
6590                         headers <- list(Authorization = paste("OAuth2", private$token),
6591                                         "Content-Type" = "application/json")
6592                         queryArgs <- list(filters = filters, where = where,
6593                                 order = order, select = select, distinct = distinct,
6594                                 limit = limit, offset = offset, count = count)
6595                         body <- NULL
6596
6597                         response <- private$REST$http$exec("GET", url, headers, body,
6598                                                            queryArgs, private$numRetries)
6599                         resource <- private$REST$httpParser$parseJSONResponse(response)
6600
6601                         if(!is.null(resource$errors))
6602                                 stop(resource$errors)
6603
6604                         result <- KeepServiceList$new(kind = resource$kind,
6605                                 etag = resource$etag, items = resource$items,
6606                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
6607                                 selfLink = resource$selfLink)
6608
6609                         if(result$isEmpty())
6610                                 resource
6611                         else
6612                                 result
6613                 },
6614
6615                 keep_services.create = function(keep_service,
6616                         ensure_unique_name = "false")
6617                 {
6618                         endPoint <- stringr::str_interp("keep_services")
6619                         url <- paste0(private$host, endPoint)
6620                         headers <- list(Authorization = paste("OAuth2", private$token),
6621                                         "Content-Type" = "application/json")
6622                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
6623                         body <- keep_service$toJSON()
6624
6625                         response <- private$REST$http$exec("POST", url, headers, body,
6626                                                            queryArgs, private$numRetries)
6627                         resource <- private$REST$httpParser$parseJSONResponse(response)
6628
6629                         if(!is.null(resource$errors))
6630                                 stop(resource$errors)
6631
6632                         result <- KeepService$new(uuid = resource$uuid,
6633                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6634                                 modified_by_client_uuid = resource$modified_by_client_uuid,
6635                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6636                                 modified_at = resource$modified_at, service_host = resource$service_host,
6637                                 service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
6638                                 service_type = resource$service_type, created_at = resource$created_at,
6639                                 updated_at = resource$updated_at, read_only = resource$read_only)
6640
6641                         if(result$isEmpty())
6642                                 resource
6643                         else
6644                                 result
6645                 },
6646
6647                 keep_services.update = function(keep_service, uuid)
6648                 {
6649                         endPoint <- stringr::str_interp("keep_services/${uuid}")
6650                         url <- paste0(private$host, endPoint)
6651                         headers <- list(Authorization = paste("OAuth2", private$token),
6652                                         "Content-Type" = "application/json")
6653                         queryArgs <- list(uuid = uuid)
6654                         body <- keep_service$toJSON()
6655
6656                         response <- private$REST$http$exec("PUT", url, headers, body,
6657                                                            queryArgs, private$numRetries)
6658                         resource <- private$REST$httpParser$parseJSONResponse(response)
6659
6660                         if(!is.null(resource$errors))
6661                                 stop(resource$errors)
6662
6663                         result <- KeepService$new(uuid = resource$uuid,
6664                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6665                                 modified_by_client_uuid = resource$modified_by_client_uuid,
6666                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6667                                 modified_at = resource$modified_at, service_host = resource$service_host,
6668                                 service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
6669                                 service_type = resource$service_type, created_at = resource$created_at,
6670                                 updated_at = resource$updated_at, read_only = resource$read_only)
6671
6672                         if(result$isEmpty())
6673                                 resource
6674                         else
6675                                 result
6676                 },
6677
6678                 keep_services.delete = function(uuid)
6679                 {
6680                         endPoint <- stringr::str_interp("keep_services/${uuid}")
6681                         url <- paste0(private$host, endPoint)
6682                         headers <- list(Authorization = paste("OAuth2", private$token),
6683                                         "Content-Type" = "application/json")
6684                         queryArgs <- list(uuid = uuid)
6685                         body <- NULL
6686
6687                         response <- private$REST$http$exec("DELETE", url, headers, body,
6688                                                            queryArgs, private$numRetries)
6689                         resource <- private$REST$httpParser$parseJSONResponse(response)
6690
6691                         if(!is.null(resource$errors))
6692                                 stop(resource$errors)
6693
6694                         result <- KeepService$new(uuid = resource$uuid,
6695                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6696                                 modified_by_client_uuid = resource$modified_by_client_uuid,
6697                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6698                                 modified_at = resource$modified_at, service_host = resource$service_host,
6699                                 service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
6700                                 service_type = resource$service_type, created_at = resource$created_at,
6701                                 updated_at = resource$updated_at, read_only = resource$read_only)
6702
6703                         if(result$isEmpty())
6704                                 resource
6705                         else
6706                                 result
6707                 },
6708
6709                 keep_services.accessible = function()
6710                 {
6711                         endPoint <- stringr::str_interp("keep_services/accessible")
6712                         url <- paste0(private$host, endPoint)
6713                         headers <- list(Authorization = paste("OAuth2", private$token),
6714                                         "Content-Type" = "application/json")
6715                         queryArgs <- NULL
6716                         body <- NULL
6717
6718                         response <- private$REST$http$exec("GET", url, headers, body,
6719                                                            queryArgs, private$numRetries)
6720                         resource <- private$REST$httpParser$parseJSONResponse(response)
6721
6722                         if(!is.null(resource$errors))
6723                                 stop(resource$errors)
6724
6725                         result <- KeepService$new(uuid = resource$uuid,
6726                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6727                                 modified_by_client_uuid = resource$modified_by_client_uuid,
6728                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6729                                 modified_at = resource$modified_at, service_host = resource$service_host,
6730                                 service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
6731                                 service_type = resource$service_type, created_at = resource$created_at,
6732                                 updated_at = resource$updated_at, read_only = resource$read_only)
6733
6734                         if(result$isEmpty())
6735                                 resource
6736                         else
6737                                 result
6738                 },
6739
6740                 keep_services.list = function(filters = NULL,
6741                         where = NULL, order = NULL, select = NULL,
6742                         distinct = NULL, limit = "100", offset = "0",
6743                         count = "exact")
6744                 {
6745                         endPoint <- stringr::str_interp("keep_services")
6746                         url <- paste0(private$host, endPoint)
6747                         headers <- list(Authorization = paste("OAuth2", private$token),
6748                                         "Content-Type" = "application/json")
6749                         queryArgs <- list(filters = filters, where = where,
6750                                 order = order, select = select, distinct = distinct,
6751                                 limit = limit, offset = offset, count = count)
6752                         body <- NULL
6753
6754                         response <- private$REST$http$exec("GET", url, headers, body,
6755                                                            queryArgs, private$numRetries)
6756                         resource <- private$REST$httpParser$parseJSONResponse(response)
6757
6758                         if(!is.null(resource$errors))
6759                                 stop(resource$errors)
6760
6761                         result <- KeepServiceList$new(kind = resource$kind,
6762                                 etag = resource$etag, items = resource$items,
6763                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
6764                                 selfLink = resource$selfLink)
6765
6766                         if(result$isEmpty())
6767                                 resource
6768                         else
6769                                 result
6770                 },
6771
6772                 keep_services.show = function(uuid)
6773                 {
6774                         endPoint <- stringr::str_interp("keep_services/${uuid}")
6775                         url <- paste0(private$host, endPoint)
6776                         headers <- list(Authorization = paste("OAuth2", private$token),
6777                                         "Content-Type" = "application/json")
6778                         queryArgs <- list(uuid = uuid)
6779                         body <- NULL
6780
6781                         response <- private$REST$http$exec("GET", url, headers, body,
6782                                                            queryArgs, private$numRetries)
6783                         resource <- private$REST$httpParser$parseJSONResponse(response)
6784
6785                         if(!is.null(resource$errors))
6786                                 stop(resource$errors)
6787
6788                         result <- KeepService$new(uuid = resource$uuid,
6789                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6790                                 modified_by_client_uuid = resource$modified_by_client_uuid,
6791                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6792                                 modified_at = resource$modified_at, service_host = resource$service_host,
6793                                 service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
6794                                 service_type = resource$service_type, created_at = resource$created_at,
6795                                 updated_at = resource$updated_at, read_only = resource$read_only)
6796
6797                         if(result$isEmpty())
6798                                 resource
6799                         else
6800                                 result
6801                 },
6802
6803                 keep_services.destroy = function(uuid)
6804                 {
6805                         endPoint <- stringr::str_interp("keep_services/${uuid}")
6806                         url <- paste0(private$host, endPoint)
6807                         headers <- list(Authorization = paste("OAuth2", private$token),
6808                                         "Content-Type" = "application/json")
6809                         queryArgs <- list(uuid = uuid)
6810                         body <- NULL
6811
6812                         response <- private$REST$http$exec("DELETE", url, headers, body,
6813                                                            queryArgs, private$numRetries)
6814                         resource <- private$REST$httpParser$parseJSONResponse(response)
6815
6816                         if(!is.null(resource$errors))
6817                                 stop(resource$errors)
6818
6819                         result <- KeepService$new(uuid = resource$uuid,
6820                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6821                                 modified_by_client_uuid = resource$modified_by_client_uuid,
6822                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6823                                 modified_at = resource$modified_at, service_host = resource$service_host,
6824                                 service_port = resource$service_port, service_ssl_flag = resource$service_ssl_flag,
6825                                 service_type = resource$service_type, created_at = resource$created_at,
6826                                 updated_at = resource$updated_at, read_only = resource$read_only)
6827
6828                         if(result$isEmpty())
6829                                 resource
6830                         else
6831                                 result
6832                 },
6833
6834                 pipeline_templates.get = function(uuid)
6835                 {
6836                         endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
6837                         url <- paste0(private$host, endPoint)
6838                         headers <- list(Authorization = paste("OAuth2", private$token),
6839                                         "Content-Type" = "application/json")
6840                         queryArgs <- list(uuid = uuid)
6841                         body <- NULL
6842
6843                         response <- private$REST$http$exec("GET", url, headers, body,
6844                                                            queryArgs, private$numRetries)
6845                         resource <- private$REST$httpParser$parseJSONResponse(response)
6846
6847                         if(!is.null(resource$errors))
6848                                 stop(resource$errors)
6849
6850                         result <- PipelineTemplate$new(uuid = resource$uuid,
6851                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6852                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
6853                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6854                                 modified_at = resource$modified_at, name = resource$name,
6855                                 components = resource$components, updated_at = resource$updated_at,
6856                                 description = resource$description)
6857
6858                         if(result$isEmpty())
6859                                 resource
6860                         else
6861                                 result
6862                 },
6863
6864                 pipeline_templates.index = function(filters = NULL,
6865                         where = NULL, order = NULL, select = NULL,
6866                         distinct = NULL, limit = "100", offset = "0",
6867                         count = "exact")
6868                 {
6869                         endPoint <- stringr::str_interp("pipeline_templates")
6870                         url <- paste0(private$host, endPoint)
6871                         headers <- list(Authorization = paste("OAuth2", private$token),
6872                                         "Content-Type" = "application/json")
6873                         queryArgs <- list(filters = filters, where = where,
6874                                 order = order, select = select, distinct = distinct,
6875                                 limit = limit, offset = offset, count = count)
6876                         body <- NULL
6877
6878                         response <- private$REST$http$exec("GET", url, headers, body,
6879                                                            queryArgs, private$numRetries)
6880                         resource <- private$REST$httpParser$parseJSONResponse(response)
6881
6882                         if(!is.null(resource$errors))
6883                                 stop(resource$errors)
6884
6885                         result <- PipelineTemplateList$new(kind = resource$kind,
6886                                 etag = resource$etag, items = resource$items,
6887                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
6888                                 selfLink = resource$selfLink)
6889
6890                         if(result$isEmpty())
6891                                 resource
6892                         else
6893                                 result
6894                 },
6895
6896                 pipeline_templates.create = function(pipeline_template,
6897                         ensure_unique_name = "false")
6898                 {
6899                         endPoint <- stringr::str_interp("pipeline_templates")
6900                         url <- paste0(private$host, endPoint)
6901                         headers <- list(Authorization = paste("OAuth2", private$token),
6902                                         "Content-Type" = "application/json")
6903                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
6904                         body <- pipeline_template$toJSON()
6905
6906                         response <- private$REST$http$exec("POST", url, headers, body,
6907                                                            queryArgs, private$numRetries)
6908                         resource <- private$REST$httpParser$parseJSONResponse(response)
6909
6910                         if(!is.null(resource$errors))
6911                                 stop(resource$errors)
6912
6913                         result <- PipelineTemplate$new(uuid = resource$uuid,
6914                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6915                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
6916                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6917                                 modified_at = resource$modified_at, name = resource$name,
6918                                 components = resource$components, updated_at = resource$updated_at,
6919                                 description = resource$description)
6920
6921                         if(result$isEmpty())
6922                                 resource
6923                         else
6924                                 result
6925                 },
6926
6927                 pipeline_templates.update = function(pipeline_template, uuid)
6928                 {
6929                         endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
6930                         url <- paste0(private$host, endPoint)
6931                         headers <- list(Authorization = paste("OAuth2", private$token),
6932                                         "Content-Type" = "application/json")
6933                         queryArgs <- list(uuid = uuid)
6934                         body <- pipeline_template$toJSON()
6935
6936                         response <- private$REST$http$exec("PUT", url, headers, body,
6937                                                            queryArgs, private$numRetries)
6938                         resource <- private$REST$httpParser$parseJSONResponse(response)
6939
6940                         if(!is.null(resource$errors))
6941                                 stop(resource$errors)
6942
6943                         result <- PipelineTemplate$new(uuid = resource$uuid,
6944                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6945                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
6946                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6947                                 modified_at = resource$modified_at, name = resource$name,
6948                                 components = resource$components, updated_at = resource$updated_at,
6949                                 description = resource$description)
6950
6951                         if(result$isEmpty())
6952                                 resource
6953                         else
6954                                 result
6955                 },
6956
6957                 pipeline_templates.delete = function(uuid)
6958                 {
6959                         endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
6960                         url <- paste0(private$host, endPoint)
6961                         headers <- list(Authorization = paste("OAuth2", private$token),
6962                                         "Content-Type" = "application/json")
6963                         queryArgs <- list(uuid = uuid)
6964                         body <- NULL
6965
6966                         response <- private$REST$http$exec("DELETE", url, headers, body,
6967                                                            queryArgs, private$numRetries)
6968                         resource <- private$REST$httpParser$parseJSONResponse(response)
6969
6970                         if(!is.null(resource$errors))
6971                                 stop(resource$errors)
6972
6973                         result <- PipelineTemplate$new(uuid = resource$uuid,
6974                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
6975                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
6976                                 modified_by_user_uuid = resource$modified_by_user_uuid,
6977                                 modified_at = resource$modified_at, name = resource$name,
6978                                 components = resource$components, updated_at = resource$updated_at,
6979                                 description = resource$description)
6980
6981                         if(result$isEmpty())
6982                                 resource
6983                         else
6984                                 result
6985                 },
6986
6987                 pipeline_templates.list = function(filters = NULL,
6988                         where = NULL, order = NULL, select = NULL,
6989                         distinct = NULL, limit = "100", offset = "0",
6990                         count = "exact")
6991                 {
6992                         endPoint <- stringr::str_interp("pipeline_templates")
6993                         url <- paste0(private$host, endPoint)
6994                         headers <- list(Authorization = paste("OAuth2", private$token),
6995                                         "Content-Type" = "application/json")
6996                         queryArgs <- list(filters = filters, where = where,
6997                                 order = order, select = select, distinct = distinct,
6998                                 limit = limit, offset = offset, count = count)
6999                         body <- NULL
7000
7001                         response <- private$REST$http$exec("GET", url, headers, body,
7002                                                            queryArgs, private$numRetries)
7003                         resource <- private$REST$httpParser$parseJSONResponse(response)
7004
7005                         if(!is.null(resource$errors))
7006                                 stop(resource$errors)
7007
7008                         result <- PipelineTemplateList$new(kind = resource$kind,
7009                                 etag = resource$etag, items = resource$items,
7010                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
7011                                 selfLink = resource$selfLink)
7012
7013                         if(result$isEmpty())
7014                                 resource
7015                         else
7016                                 result
7017                 },
7018
7019                 pipeline_templates.show = function(uuid)
7020                 {
7021                         endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
7022                         url <- paste0(private$host, endPoint)
7023                         headers <- list(Authorization = paste("OAuth2", private$token),
7024                                         "Content-Type" = "application/json")
7025                         queryArgs <- list(uuid = uuid)
7026                         body <- NULL
7027
7028                         response <- private$REST$http$exec("GET", url, headers, body,
7029                                                            queryArgs, private$numRetries)
7030                         resource <- private$REST$httpParser$parseJSONResponse(response)
7031
7032                         if(!is.null(resource$errors))
7033                                 stop(resource$errors)
7034
7035                         result <- PipelineTemplate$new(uuid = resource$uuid,
7036                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7037                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
7038                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7039                                 modified_at = resource$modified_at, name = resource$name,
7040                                 components = resource$components, updated_at = resource$updated_at,
7041                                 description = resource$description)
7042
7043                         if(result$isEmpty())
7044                                 resource
7045                         else
7046                                 result
7047                 },
7048
7049                 pipeline_templates.destroy = function(uuid)
7050                 {
7051                         endPoint <- stringr::str_interp("pipeline_templates/${uuid}")
7052                         url <- paste0(private$host, endPoint)
7053                         headers <- list(Authorization = paste("OAuth2", private$token),
7054                                         "Content-Type" = "application/json")
7055                         queryArgs <- list(uuid = uuid)
7056                         body <- NULL
7057
7058                         response <- private$REST$http$exec("DELETE", url, headers, body,
7059                                                            queryArgs, private$numRetries)
7060                         resource <- private$REST$httpParser$parseJSONResponse(response)
7061
7062                         if(!is.null(resource$errors))
7063                                 stop(resource$errors)
7064
7065                         result <- PipelineTemplate$new(uuid = resource$uuid,
7066                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7067                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
7068                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7069                                 modified_at = resource$modified_at, name = resource$name,
7070                                 components = resource$components, updated_at = resource$updated_at,
7071                                 description = resource$description)
7072
7073                         if(result$isEmpty())
7074                                 resource
7075                         else
7076                                 result
7077                 },
7078
7079                 pipeline_instances.get = function(uuid)
7080                 {
7081                         endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
7082                         url <- paste0(private$host, endPoint)
7083                         headers <- list(Authorization = paste("OAuth2", private$token),
7084                                         "Content-Type" = "application/json")
7085                         queryArgs <- list(uuid = uuid)
7086                         body <- NULL
7087
7088                         response <- private$REST$http$exec("GET", url, headers, body,
7089                                                            queryArgs, private$numRetries)
7090                         resource <- private$REST$httpParser$parseJSONResponse(response)
7091
7092                         if(!is.null(resource$errors))
7093                                 stop(resource$errors)
7094
7095                         result <- PipelineInstance$new(uuid = resource$uuid,
7096                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7097                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
7098                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7099                                 modified_at = resource$modified_at, pipeline_template_uuid = resource$pipeline_template_uuid,
7100                                 name = resource$name, components = resource$components,
7101                                 updated_at = resource$updated_at, properties = resource$properties,
7102                                 state = resource$state, components_summary = resource$components_summary,
7103                                 started_at = resource$started_at, finished_at = resource$finished_at,
7104                                 description = resource$description)
7105
7106                         if(result$isEmpty())
7107                                 resource
7108                         else
7109                                 result
7110                 },
7111
7112                 pipeline_instances.index = function(filters = NULL,
7113                         where = NULL, order = NULL, select = NULL,
7114                         distinct = NULL, limit = "100", offset = "0",
7115                         count = "exact")
7116                 {
7117                         endPoint <- stringr::str_interp("pipeline_instances")
7118                         url <- paste0(private$host, endPoint)
7119                         headers <- list(Authorization = paste("OAuth2", private$token),
7120                                         "Content-Type" = "application/json")
7121                         queryArgs <- list(filters = filters, where = where,
7122                                 order = order, select = select, distinct = distinct,
7123                                 limit = limit, offset = offset, count = count)
7124                         body <- NULL
7125
7126                         response <- private$REST$http$exec("GET", url, headers, body,
7127                                                            queryArgs, private$numRetries)
7128                         resource <- private$REST$httpParser$parseJSONResponse(response)
7129
7130                         if(!is.null(resource$errors))
7131                                 stop(resource$errors)
7132
7133                         result <- PipelineInstanceList$new(kind = resource$kind,
7134                                 etag = resource$etag, items = resource$items,
7135                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
7136                                 selfLink = resource$selfLink)
7137
7138                         if(result$isEmpty())
7139                                 resource
7140                         else
7141                                 result
7142                 },
7143
7144                 pipeline_instances.create = function(pipeline_instance,
7145                         ensure_unique_name = "false")
7146                 {
7147                         endPoint <- stringr::str_interp("pipeline_instances")
7148                         url <- paste0(private$host, endPoint)
7149                         headers <- list(Authorization = paste("OAuth2", private$token),
7150                                         "Content-Type" = "application/json")
7151                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
7152                         body <- pipeline_instance$toJSON()
7153
7154                         response <- private$REST$http$exec("POST", url, headers, body,
7155                                                            queryArgs, private$numRetries)
7156                         resource <- private$REST$httpParser$parseJSONResponse(response)
7157
7158                         if(!is.null(resource$errors))
7159                                 stop(resource$errors)
7160
7161                         result <- PipelineInstance$new(uuid = resource$uuid,
7162                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7163                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
7164                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7165                                 modified_at = resource$modified_at, pipeline_template_uuid = resource$pipeline_template_uuid,
7166                                 name = resource$name, components = resource$components,
7167                                 updated_at = resource$updated_at, properties = resource$properties,
7168                                 state = resource$state, components_summary = resource$components_summary,
7169                                 started_at = resource$started_at, finished_at = resource$finished_at,
7170                                 description = resource$description)
7171
7172                         if(result$isEmpty())
7173                                 resource
7174                         else
7175                                 result
7176                 },
7177
7178                 pipeline_instances.update = function(pipeline_instance, uuid)
7179                 {
7180                         endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
7181                         url <- paste0(private$host, endPoint)
7182                         headers <- list(Authorization = paste("OAuth2", private$token),
7183                                         "Content-Type" = "application/json")
7184                         queryArgs <- list(uuid = uuid)
7185                         body <- pipeline_instance$toJSON()
7186
7187                         response <- private$REST$http$exec("PUT", url, headers, body,
7188                                                            queryArgs, private$numRetries)
7189                         resource <- private$REST$httpParser$parseJSONResponse(response)
7190
7191                         if(!is.null(resource$errors))
7192                                 stop(resource$errors)
7193
7194                         result <- PipelineInstance$new(uuid = resource$uuid,
7195                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7196                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
7197                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7198                                 modified_at = resource$modified_at, pipeline_template_uuid = resource$pipeline_template_uuid,
7199                                 name = resource$name, components = resource$components,
7200                                 updated_at = resource$updated_at, properties = resource$properties,
7201                                 state = resource$state, components_summary = resource$components_summary,
7202                                 started_at = resource$started_at, finished_at = resource$finished_at,
7203                                 description = resource$description)
7204
7205                         if(result$isEmpty())
7206                                 resource
7207                         else
7208                                 result
7209                 },
7210
7211                 pipeline_instances.delete = function(uuid)
7212                 {
7213                         endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
7214                         url <- paste0(private$host, endPoint)
7215                         headers <- list(Authorization = paste("OAuth2", private$token),
7216                                         "Content-Type" = "application/json")
7217                         queryArgs <- list(uuid = uuid)
7218                         body <- NULL
7219
7220                         response <- private$REST$http$exec("DELETE", url, headers, body,
7221                                                            queryArgs, private$numRetries)
7222                         resource <- private$REST$httpParser$parseJSONResponse(response)
7223
7224                         if(!is.null(resource$errors))
7225                                 stop(resource$errors)
7226
7227                         result <- PipelineInstance$new(uuid = resource$uuid,
7228                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7229                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
7230                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7231                                 modified_at = resource$modified_at, pipeline_template_uuid = resource$pipeline_template_uuid,
7232                                 name = resource$name, components = resource$components,
7233                                 updated_at = resource$updated_at, properties = resource$properties,
7234                                 state = resource$state, components_summary = resource$components_summary,
7235                                 started_at = resource$started_at, finished_at = resource$finished_at,
7236                                 description = resource$description)
7237
7238                         if(result$isEmpty())
7239                                 resource
7240                         else
7241                                 result
7242                 },
7243
7244                 pipeline_instances.cancel = function(uuid)
7245                 {
7246                         endPoint <- stringr::str_interp("pipeline_instances/${uuid}/cancel")
7247                         url <- paste0(private$host, endPoint)
7248                         headers <- list(Authorization = paste("OAuth2", private$token),
7249                                         "Content-Type" = "application/json")
7250                         queryArgs <- list(uuid = uuid)
7251                         body <- NULL
7252
7253                         response <- private$REST$http$exec("POST", url, headers, body,
7254                                                            queryArgs, private$numRetries)
7255                         resource <- private$REST$httpParser$parseJSONResponse(response)
7256
7257                         if(!is.null(resource$errors))
7258                                 stop(resource$errors)
7259
7260                         result <- PipelineInstance$new(uuid = resource$uuid,
7261                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7262                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
7263                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7264                                 modified_at = resource$modified_at, pipeline_template_uuid = resource$pipeline_template_uuid,
7265                                 name = resource$name, components = resource$components,
7266                                 updated_at = resource$updated_at, properties = resource$properties,
7267                                 state = resource$state, components_summary = resource$components_summary,
7268                                 started_at = resource$started_at, finished_at = resource$finished_at,
7269                                 description = resource$description)
7270
7271                         if(result$isEmpty())
7272                                 resource
7273                         else
7274                                 result
7275                 },
7276
7277                 pipeline_instances.list = function(filters = NULL,
7278                         where = NULL, order = NULL, select = NULL,
7279                         distinct = NULL, limit = "100", offset = "0",
7280                         count = "exact")
7281                 {
7282                         endPoint <- stringr::str_interp("pipeline_instances")
7283                         url <- paste0(private$host, endPoint)
7284                         headers <- list(Authorization = paste("OAuth2", private$token),
7285                                         "Content-Type" = "application/json")
7286                         queryArgs <- list(filters = filters, where = where,
7287                                 order = order, select = select, distinct = distinct,
7288                                 limit = limit, offset = offset, count = count)
7289                         body <- NULL
7290
7291                         response <- private$REST$http$exec("GET", url, headers, body,
7292                                                            queryArgs, private$numRetries)
7293                         resource <- private$REST$httpParser$parseJSONResponse(response)
7294
7295                         if(!is.null(resource$errors))
7296                                 stop(resource$errors)
7297
7298                         result <- PipelineInstanceList$new(kind = resource$kind,
7299                                 etag = resource$etag, items = resource$items,
7300                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
7301                                 selfLink = resource$selfLink)
7302
7303                         if(result$isEmpty())
7304                                 resource
7305                         else
7306                                 result
7307                 },
7308
7309                 pipeline_instances.show = function(uuid)
7310                 {
7311                         endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
7312                         url <- paste0(private$host, endPoint)
7313                         headers <- list(Authorization = paste("OAuth2", private$token),
7314                                         "Content-Type" = "application/json")
7315                         queryArgs <- list(uuid = uuid)
7316                         body <- NULL
7317
7318                         response <- private$REST$http$exec("GET", url, headers, body,
7319                                                            queryArgs, private$numRetries)
7320                         resource <- private$REST$httpParser$parseJSONResponse(response)
7321
7322                         if(!is.null(resource$errors))
7323                                 stop(resource$errors)
7324
7325                         result <- PipelineInstance$new(uuid = resource$uuid,
7326                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7327                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
7328                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7329                                 modified_at = resource$modified_at, pipeline_template_uuid = resource$pipeline_template_uuid,
7330                                 name = resource$name, components = resource$components,
7331                                 updated_at = resource$updated_at, properties = resource$properties,
7332                                 state = resource$state, components_summary = resource$components_summary,
7333                                 started_at = resource$started_at, finished_at = resource$finished_at,
7334                                 description = resource$description)
7335
7336                         if(result$isEmpty())
7337                                 resource
7338                         else
7339                                 result
7340                 },
7341
7342                 pipeline_instances.destroy = function(uuid)
7343                 {
7344                         endPoint <- stringr::str_interp("pipeline_instances/${uuid}")
7345                         url <- paste0(private$host, endPoint)
7346                         headers <- list(Authorization = paste("OAuth2", private$token),
7347                                         "Content-Type" = "application/json")
7348                         queryArgs <- list(uuid = uuid)
7349                         body <- NULL
7350
7351                         response <- private$REST$http$exec("DELETE", url, headers, body,
7352                                                            queryArgs, private$numRetries)
7353                         resource <- private$REST$httpParser$parseJSONResponse(response)
7354
7355                         if(!is.null(resource$errors))
7356                                 stop(resource$errors)
7357
7358                         result <- PipelineInstance$new(uuid = resource$uuid,
7359                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7360                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
7361                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7362                                 modified_at = resource$modified_at, pipeline_template_uuid = resource$pipeline_template_uuid,
7363                                 name = resource$name, components = resource$components,
7364                                 updated_at = resource$updated_at, properties = resource$properties,
7365                                 state = resource$state, components_summary = resource$components_summary,
7366                                 started_at = resource$started_at, finished_at = resource$finished_at,
7367                                 description = resource$description)
7368
7369                         if(result$isEmpty())
7370                                 resource
7371                         else
7372                                 result
7373                 },
7374
7375                 nodes.get = function(uuid)
7376                 {
7377                         endPoint <- stringr::str_interp("nodes/${uuid}")
7378                         url <- paste0(private$host, endPoint)
7379                         headers <- list(Authorization = paste("OAuth2", private$token),
7380                                         "Content-Type" = "application/json")
7381                         queryArgs <- list(uuid = uuid)
7382                         body <- NULL
7383
7384                         response <- private$REST$http$exec("GET", url, headers, body,
7385                                                            queryArgs, private$numRetries)
7386                         resource <- private$REST$httpParser$parseJSONResponse(response)
7387
7388                         if(!is.null(resource$errors))
7389                                 stop(resource$errors)
7390
7391                         result <- Node$new(uuid = resource$uuid,
7392                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7393                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
7394                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7395                                 modified_at = resource$modified_at, slot_number = resource$slot_number,
7396                                 hostname = resource$hostname, domain = resource$domain,
7397                                 ip_address = resource$ip_address, first_ping_at = resource$first_ping_at,
7398                                 last_ping_at = resource$last_ping_at, info = resource$info,
7399                                 updated_at = resource$updated_at, properties = resource$properties,
7400                                 job_uuid = resource$job_uuid)
7401
7402                         if(result$isEmpty())
7403                                 resource
7404                         else
7405                                 result
7406                 },
7407
7408                 nodes.index = function(filters = NULL, where = NULL,
7409                         order = NULL, select = NULL, distinct = NULL,
7410                         limit = "100", offset = "0", count = "exact")
7411                 {
7412                         endPoint <- stringr::str_interp("nodes")
7413                         url <- paste0(private$host, endPoint)
7414                         headers <- list(Authorization = paste("OAuth2", private$token),
7415                                         "Content-Type" = "application/json")
7416                         queryArgs <- list(filters = filters, where = where,
7417                                 order = order, select = select, distinct = distinct,
7418                                 limit = limit, offset = offset, count = count)
7419                         body <- NULL
7420
7421                         response <- private$REST$http$exec("GET", url, headers, body,
7422                                                            queryArgs, private$numRetries)
7423                         resource <- private$REST$httpParser$parseJSONResponse(response)
7424
7425                         if(!is.null(resource$errors))
7426                                 stop(resource$errors)
7427
7428                         result <- NodeList$new(kind = resource$kind,
7429                                 etag = resource$etag, items = resource$items,
7430                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
7431                                 selfLink = resource$selfLink)
7432
7433                         if(result$isEmpty())
7434                                 resource
7435                         else
7436                                 result
7437                 },
7438
7439                 nodes.create = function(node, ensure_unique_name = "false",
7440                         assign_slot = NULL)
7441                 {
7442                         endPoint <- stringr::str_interp("nodes")
7443                         url <- paste0(private$host, endPoint)
7444                         headers <- list(Authorization = paste("OAuth2", private$token),
7445                                         "Content-Type" = "application/json")
7446                         queryArgs <- list(ensure_unique_name = ensure_unique_name,
7447                                 assign_slot = assign_slot)
7448                         body <- node$toJSON()
7449
7450                         response <- private$REST$http$exec("POST", url, headers, body,
7451                                                            queryArgs, private$numRetries)
7452                         resource <- private$REST$httpParser$parseJSONResponse(response)
7453
7454                         if(!is.null(resource$errors))
7455                                 stop(resource$errors)
7456
7457                         result <- Node$new(uuid = resource$uuid,
7458                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7459                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
7460                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7461                                 modified_at = resource$modified_at, slot_number = resource$slot_number,
7462                                 hostname = resource$hostname, domain = resource$domain,
7463                                 ip_address = resource$ip_address, first_ping_at = resource$first_ping_at,
7464                                 last_ping_at = resource$last_ping_at, info = resource$info,
7465                                 updated_at = resource$updated_at, properties = resource$properties,
7466                                 job_uuid = resource$job_uuid)
7467
7468                         if(result$isEmpty())
7469                                 resource
7470                         else
7471                                 result
7472                 },
7473
7474                 nodes.update = function(node, uuid, assign_slot = NULL)
7475                 {
7476                         endPoint <- stringr::str_interp("nodes/${uuid}")
7477                         url <- paste0(private$host, endPoint)
7478                         headers <- list(Authorization = paste("OAuth2", private$token),
7479                                         "Content-Type" = "application/json")
7480                         queryArgs <- list(uuid = uuid, assign_slot = assign_slot)
7481                         body <- node$toJSON()
7482
7483                         response <- private$REST$http$exec("PUT", url, headers, body,
7484                                                            queryArgs, private$numRetries)
7485                         resource <- private$REST$httpParser$parseJSONResponse(response)
7486
7487                         if(!is.null(resource$errors))
7488                                 stop(resource$errors)
7489
7490                         result <- Node$new(uuid = resource$uuid,
7491                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7492                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
7493                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7494                                 modified_at = resource$modified_at, slot_number = resource$slot_number,
7495                                 hostname = resource$hostname, domain = resource$domain,
7496                                 ip_address = resource$ip_address, first_ping_at = resource$first_ping_at,
7497                                 last_ping_at = resource$last_ping_at, info = resource$info,
7498                                 updated_at = resource$updated_at, properties = resource$properties,
7499                                 job_uuid = resource$job_uuid)
7500
7501                         if(result$isEmpty())
7502                                 resource
7503                         else
7504                                 result
7505                 },
7506
7507                 nodes.delete = function(uuid)
7508                 {
7509                         endPoint <- stringr::str_interp("nodes/${uuid}")
7510                         url <- paste0(private$host, endPoint)
7511                         headers <- list(Authorization = paste("OAuth2", private$token),
7512                                         "Content-Type" = "application/json")
7513                         queryArgs <- list(uuid = uuid)
7514                         body <- NULL
7515
7516                         response <- private$REST$http$exec("DELETE", url, headers, body,
7517                                                            queryArgs, private$numRetries)
7518                         resource <- private$REST$httpParser$parseJSONResponse(response)
7519
7520                         if(!is.null(resource$errors))
7521                                 stop(resource$errors)
7522
7523                         result <- Node$new(uuid = resource$uuid,
7524                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7525                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
7526                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7527                                 modified_at = resource$modified_at, slot_number = resource$slot_number,
7528                                 hostname = resource$hostname, domain = resource$domain,
7529                                 ip_address = resource$ip_address, first_ping_at = resource$first_ping_at,
7530                                 last_ping_at = resource$last_ping_at, info = resource$info,
7531                                 updated_at = resource$updated_at, properties = resource$properties,
7532                                 job_uuid = resource$job_uuid)
7533
7534                         if(result$isEmpty())
7535                                 resource
7536                         else
7537                                 result
7538                 },
7539
7540                 nodes.ping = function(uuid, ping_secret)
7541                 {
7542                         endPoint <- stringr::str_interp("nodes/${uuid}/ping")
7543                         url <- paste0(private$host, endPoint)
7544                         headers <- list(Authorization = paste("OAuth2", private$token),
7545                                         "Content-Type" = "application/json")
7546                         queryArgs <- list(uuid = uuid, ping_secret = ping_secret)
7547                         body <- NULL
7548
7549                         response <- private$REST$http$exec("POST", url, headers, body,
7550                                                            queryArgs, private$numRetries)
7551                         resource <- private$REST$httpParser$parseJSONResponse(response)
7552
7553                         if(!is.null(resource$errors))
7554                                 stop(resource$errors)
7555
7556                         result <- Node$new(uuid = resource$uuid,
7557                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7558                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
7559                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7560                                 modified_at = resource$modified_at, slot_number = resource$slot_number,
7561                                 hostname = resource$hostname, domain = resource$domain,
7562                                 ip_address = resource$ip_address, first_ping_at = resource$first_ping_at,
7563                                 last_ping_at = resource$last_ping_at, info = resource$info,
7564                                 updated_at = resource$updated_at, properties = resource$properties,
7565                                 job_uuid = resource$job_uuid)
7566
7567                         if(result$isEmpty())
7568                                 resource
7569                         else
7570                                 result
7571                 },
7572
7573                 nodes.list = function(filters = NULL, where = NULL,
7574                         order = NULL, select = NULL, distinct = NULL,
7575                         limit = "100", offset = "0", count = "exact")
7576                 {
7577                         endPoint <- stringr::str_interp("nodes")
7578                         url <- paste0(private$host, endPoint)
7579                         headers <- list(Authorization = paste("OAuth2", private$token),
7580                                         "Content-Type" = "application/json")
7581                         queryArgs <- list(filters = filters, where = where,
7582                                 order = order, select = select, distinct = distinct,
7583                                 limit = limit, offset = offset, count = count)
7584                         body <- NULL
7585
7586                         response <- private$REST$http$exec("GET", url, headers, body,
7587                                                            queryArgs, private$numRetries)
7588                         resource <- private$REST$httpParser$parseJSONResponse(response)
7589
7590                         if(!is.null(resource$errors))
7591                                 stop(resource$errors)
7592
7593                         result <- NodeList$new(kind = resource$kind,
7594                                 etag = resource$etag, items = resource$items,
7595                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
7596                                 selfLink = resource$selfLink)
7597
7598                         if(result$isEmpty())
7599                                 resource
7600                         else
7601                                 result
7602                 },
7603
7604                 nodes.show = function(uuid)
7605                 {
7606                         endPoint <- stringr::str_interp("nodes/${uuid}")
7607                         url <- paste0(private$host, endPoint)
7608                         headers <- list(Authorization = paste("OAuth2", private$token),
7609                                         "Content-Type" = "application/json")
7610                         queryArgs <- list(uuid = uuid)
7611                         body <- NULL
7612
7613                         response <- private$REST$http$exec("GET", url, headers, body,
7614                                                            queryArgs, private$numRetries)
7615                         resource <- private$REST$httpParser$parseJSONResponse(response)
7616
7617                         if(!is.null(resource$errors))
7618                                 stop(resource$errors)
7619
7620                         result <- Node$new(uuid = resource$uuid,
7621                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7622                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
7623                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7624                                 modified_at = resource$modified_at, slot_number = resource$slot_number,
7625                                 hostname = resource$hostname, domain = resource$domain,
7626                                 ip_address = resource$ip_address, first_ping_at = resource$first_ping_at,
7627                                 last_ping_at = resource$last_ping_at, info = resource$info,
7628                                 updated_at = resource$updated_at, properties = resource$properties,
7629                                 job_uuid = resource$job_uuid)
7630
7631                         if(result$isEmpty())
7632                                 resource
7633                         else
7634                                 result
7635                 },
7636
7637                 nodes.destroy = function(uuid)
7638                 {
7639                         endPoint <- stringr::str_interp("nodes/${uuid}")
7640                         url <- paste0(private$host, endPoint)
7641                         headers <- list(Authorization = paste("OAuth2", private$token),
7642                                         "Content-Type" = "application/json")
7643                         queryArgs <- list(uuid = uuid)
7644                         body <- NULL
7645
7646                         response <- private$REST$http$exec("DELETE", url, headers, body,
7647                                                            queryArgs, private$numRetries)
7648                         resource <- private$REST$httpParser$parseJSONResponse(response)
7649
7650                         if(!is.null(resource$errors))
7651                                 stop(resource$errors)
7652
7653                         result <- Node$new(uuid = resource$uuid,
7654                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7655                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
7656                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7657                                 modified_at = resource$modified_at, slot_number = resource$slot_number,
7658                                 hostname = resource$hostname, domain = resource$domain,
7659                                 ip_address = resource$ip_address, first_ping_at = resource$first_ping_at,
7660                                 last_ping_at = resource$last_ping_at, info = resource$info,
7661                                 updated_at = resource$updated_at, properties = resource$properties,
7662                                 job_uuid = resource$job_uuid)
7663
7664                         if(result$isEmpty())
7665                                 resource
7666                         else
7667                                 result
7668                 },
7669
7670                 repositories.get = function(uuid)
7671                 {
7672                         endPoint <- stringr::str_interp("repositories/${uuid}")
7673                         url <- paste0(private$host, endPoint)
7674                         headers <- list(Authorization = paste("OAuth2", private$token),
7675                                         "Content-Type" = "application/json")
7676                         queryArgs <- list(uuid = uuid)
7677                         body <- NULL
7678
7679                         response <- private$REST$http$exec("GET", url, headers, body,
7680                                                            queryArgs, private$numRetries)
7681                         resource <- private$REST$httpParser$parseJSONResponse(response)
7682
7683                         if(!is.null(resource$errors))
7684                                 stop(resource$errors)
7685
7686                         result <- Repository$new(uuid = resource$uuid,
7687                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7688                                 modified_by_client_uuid = resource$modified_by_client_uuid,
7689                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7690                                 modified_at = resource$modified_at, name = resource$name,
7691                                 created_at = resource$created_at, updated_at = resource$updated_at)
7692
7693                         if(result$isEmpty())
7694                                 resource
7695                         else
7696                                 result
7697                 },
7698
7699                 repositories.index = function(filters = NULL,
7700                         where = NULL, order = NULL, select = NULL,
7701                         distinct = NULL, limit = "100", offset = "0",
7702                         count = "exact")
7703                 {
7704                         endPoint <- stringr::str_interp("repositories")
7705                         url <- paste0(private$host, endPoint)
7706                         headers <- list(Authorization = paste("OAuth2", private$token),
7707                                         "Content-Type" = "application/json")
7708                         queryArgs <- list(filters = filters, where = where,
7709                                 order = order, select = select, distinct = distinct,
7710                                 limit = limit, offset = offset, count = count)
7711                         body <- NULL
7712
7713                         response <- private$REST$http$exec("GET", url, headers, body,
7714                                                            queryArgs, private$numRetries)
7715                         resource <- private$REST$httpParser$parseJSONResponse(response)
7716
7717                         if(!is.null(resource$errors))
7718                                 stop(resource$errors)
7719
7720                         result <- RepositoryList$new(kind = resource$kind,
7721                                 etag = resource$etag, items = resource$items,
7722                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
7723                                 selfLink = resource$selfLink)
7724
7725                         if(result$isEmpty())
7726                                 resource
7727                         else
7728                                 result
7729                 },
7730
7731                 repositories.create = function(repository, ensure_unique_name = "false")
7732                 {
7733                         endPoint <- stringr::str_interp("repositories")
7734                         url <- paste0(private$host, endPoint)
7735                         headers <- list(Authorization = paste("OAuth2", private$token),
7736                                         "Content-Type" = "application/json")
7737                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
7738                         body <- repository$toJSON()
7739
7740                         response <- private$REST$http$exec("POST", url, headers, body,
7741                                                            queryArgs, private$numRetries)
7742                         resource <- private$REST$httpParser$parseJSONResponse(response)
7743
7744                         if(!is.null(resource$errors))
7745                                 stop(resource$errors)
7746
7747                         result <- Repository$new(uuid = resource$uuid,
7748                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7749                                 modified_by_client_uuid = resource$modified_by_client_uuid,
7750                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7751                                 modified_at = resource$modified_at, name = resource$name,
7752                                 created_at = resource$created_at, updated_at = resource$updated_at)
7753
7754                         if(result$isEmpty())
7755                                 resource
7756                         else
7757                                 result
7758                 },
7759
7760                 repositories.update = function(repository, uuid)
7761                 {
7762                         endPoint <- stringr::str_interp("repositories/${uuid}")
7763                         url <- paste0(private$host, endPoint)
7764                         headers <- list(Authorization = paste("OAuth2", private$token),
7765                                         "Content-Type" = "application/json")
7766                         queryArgs <- list(uuid = uuid)
7767                         body <- repository$toJSON()
7768
7769                         response <- private$REST$http$exec("PUT", url, headers, body,
7770                                                            queryArgs, private$numRetries)
7771                         resource <- private$REST$httpParser$parseJSONResponse(response)
7772
7773                         if(!is.null(resource$errors))
7774                                 stop(resource$errors)
7775
7776                         result <- Repository$new(uuid = resource$uuid,
7777                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7778                                 modified_by_client_uuid = resource$modified_by_client_uuid,
7779                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7780                                 modified_at = resource$modified_at, name = resource$name,
7781                                 created_at = resource$created_at, updated_at = resource$updated_at)
7782
7783                         if(result$isEmpty())
7784                                 resource
7785                         else
7786                                 result
7787                 },
7788
7789                 repositories.delete = function(uuid)
7790                 {
7791                         endPoint <- stringr::str_interp("repositories/${uuid}")
7792                         url <- paste0(private$host, endPoint)
7793                         headers <- list(Authorization = paste("OAuth2", private$token),
7794                                         "Content-Type" = "application/json")
7795                         queryArgs <- list(uuid = uuid)
7796                         body <- NULL
7797
7798                         response <- private$REST$http$exec("DELETE", url, headers, body,
7799                                                            queryArgs, private$numRetries)
7800                         resource <- private$REST$httpParser$parseJSONResponse(response)
7801
7802                         if(!is.null(resource$errors))
7803                                 stop(resource$errors)
7804
7805                         result <- Repository$new(uuid = resource$uuid,
7806                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7807                                 modified_by_client_uuid = resource$modified_by_client_uuid,
7808                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7809                                 modified_at = resource$modified_at, name = resource$name,
7810                                 created_at = resource$created_at, updated_at = resource$updated_at)
7811
7812                         if(result$isEmpty())
7813                                 resource
7814                         else
7815                                 result
7816                 },
7817
7818                 repositories.get_all_permissions = function()
7819                 {
7820                         endPoint <- stringr::str_interp("repositories/get_all_permissions")
7821                         url <- paste0(private$host, endPoint)
7822                         headers <- list(Authorization = paste("OAuth2", private$token),
7823                                         "Content-Type" = "application/json")
7824                         queryArgs <- NULL
7825                         body <- NULL
7826
7827                         response <- private$REST$http$exec("GET", url, headers, body,
7828                                                            queryArgs, private$numRetries)
7829                         resource <- private$REST$httpParser$parseJSONResponse(response)
7830
7831                         if(!is.null(resource$errors))
7832                                 stop(resource$errors)
7833
7834                         result <- Repository$new(uuid = resource$uuid,
7835                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7836                                 modified_by_client_uuid = resource$modified_by_client_uuid,
7837                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7838                                 modified_at = resource$modified_at, name = resource$name,
7839                                 created_at = resource$created_at, updated_at = resource$updated_at)
7840
7841                         if(result$isEmpty())
7842                                 resource
7843                         else
7844                                 result
7845                 },
7846
7847                 repositories.list = function(filters = NULL,
7848                         where = NULL, order = NULL, select = NULL,
7849                         distinct = NULL, limit = "100", offset = "0",
7850                         count = "exact")
7851                 {
7852                         endPoint <- stringr::str_interp("repositories")
7853                         url <- paste0(private$host, endPoint)
7854                         headers <- list(Authorization = paste("OAuth2", private$token),
7855                                         "Content-Type" = "application/json")
7856                         queryArgs <- list(filters = filters, where = where,
7857                                 order = order, select = select, distinct = distinct,
7858                                 limit = limit, offset = offset, count = count)
7859                         body <- NULL
7860
7861                         response <- private$REST$http$exec("GET", url, headers, body,
7862                                                            queryArgs, private$numRetries)
7863                         resource <- private$REST$httpParser$parseJSONResponse(response)
7864
7865                         if(!is.null(resource$errors))
7866                                 stop(resource$errors)
7867
7868                         result <- RepositoryList$new(kind = resource$kind,
7869                                 etag = resource$etag, items = resource$items,
7870                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
7871                                 selfLink = resource$selfLink)
7872
7873                         if(result$isEmpty())
7874                                 resource
7875                         else
7876                                 result
7877                 },
7878
7879                 repositories.show = function(uuid)
7880                 {
7881                         endPoint <- stringr::str_interp("repositories/${uuid}")
7882                         url <- paste0(private$host, endPoint)
7883                         headers <- list(Authorization = paste("OAuth2", private$token),
7884                                         "Content-Type" = "application/json")
7885                         queryArgs <- list(uuid = uuid)
7886                         body <- NULL
7887
7888                         response <- private$REST$http$exec("GET", url, headers, body,
7889                                                            queryArgs, private$numRetries)
7890                         resource <- private$REST$httpParser$parseJSONResponse(response)
7891
7892                         if(!is.null(resource$errors))
7893                                 stop(resource$errors)
7894
7895                         result <- Repository$new(uuid = resource$uuid,
7896                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7897                                 modified_by_client_uuid = resource$modified_by_client_uuid,
7898                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7899                                 modified_at = resource$modified_at, name = resource$name,
7900                                 created_at = resource$created_at, updated_at = resource$updated_at)
7901
7902                         if(result$isEmpty())
7903                                 resource
7904                         else
7905                                 result
7906                 },
7907
7908                 repositories.destroy = function(uuid)
7909                 {
7910                         endPoint <- stringr::str_interp("repositories/${uuid}")
7911                         url <- paste0(private$host, endPoint)
7912                         headers <- list(Authorization = paste("OAuth2", private$token),
7913                                         "Content-Type" = "application/json")
7914                         queryArgs <- list(uuid = uuid)
7915                         body <- NULL
7916
7917                         response <- private$REST$http$exec("DELETE", url, headers, body,
7918                                                            queryArgs, private$numRetries)
7919                         resource <- private$REST$httpParser$parseJSONResponse(response)
7920
7921                         if(!is.null(resource$errors))
7922                                 stop(resource$errors)
7923
7924                         result <- Repository$new(uuid = resource$uuid,
7925                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7926                                 modified_by_client_uuid = resource$modified_by_client_uuid,
7927                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7928                                 modified_at = resource$modified_at, name = resource$name,
7929                                 created_at = resource$created_at, updated_at = resource$updated_at)
7930
7931                         if(result$isEmpty())
7932                                 resource
7933                         else
7934                                 result
7935                 },
7936
7937                 specimens.get = function(uuid)
7938                 {
7939                         endPoint <- stringr::str_interp("specimens/${uuid}")
7940                         url <- paste0(private$host, endPoint)
7941                         headers <- list(Authorization = paste("OAuth2", private$token),
7942                                         "Content-Type" = "application/json")
7943                         queryArgs <- list(uuid = uuid)
7944                         body <- NULL
7945
7946                         response <- private$REST$http$exec("GET", url, headers, body,
7947                                                            queryArgs, private$numRetries)
7948                         resource <- private$REST$httpParser$parseJSONResponse(response)
7949
7950                         if(!is.null(resource$errors))
7951                                 stop(resource$errors)
7952
7953                         result <- Specimen$new(uuid = resource$uuid,
7954                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
7955                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
7956                                 modified_by_user_uuid = resource$modified_by_user_uuid,
7957                                 modified_at = resource$modified_at, material = resource$material,
7958                                 updated_at = resource$updated_at, properties = resource$properties)
7959
7960                         if(result$isEmpty())
7961                                 resource
7962                         else
7963                                 result
7964                 },
7965
7966                 specimens.index = function(filters = NULL,
7967                         where = NULL, order = NULL, select = NULL,
7968                         distinct = NULL, limit = "100", offset = "0",
7969                         count = "exact")
7970                 {
7971                         endPoint <- stringr::str_interp("specimens")
7972                         url <- paste0(private$host, endPoint)
7973                         headers <- list(Authorization = paste("OAuth2", private$token),
7974                                         "Content-Type" = "application/json")
7975                         queryArgs <- list(filters = filters, where = where,
7976                                 order = order, select = select, distinct = distinct,
7977                                 limit = limit, offset = offset, count = count)
7978                         body <- NULL
7979
7980                         response <- private$REST$http$exec("GET", url, headers, body,
7981                                                            queryArgs, private$numRetries)
7982                         resource <- private$REST$httpParser$parseJSONResponse(response)
7983
7984                         if(!is.null(resource$errors))
7985                                 stop(resource$errors)
7986
7987                         result <- SpecimenList$new(kind = resource$kind,
7988                                 etag = resource$etag, items = resource$items,
7989                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
7990                                 selfLink = resource$selfLink)
7991
7992                         if(result$isEmpty())
7993                                 resource
7994                         else
7995                                 result
7996                 },
7997
7998                 specimens.create = function(specimen, ensure_unique_name = "false")
7999                 {
8000                         endPoint <- stringr::str_interp("specimens")
8001                         url <- paste0(private$host, endPoint)
8002                         headers <- list(Authorization = paste("OAuth2", private$token),
8003                                         "Content-Type" = "application/json")
8004                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
8005                         body <- specimen$toJSON()
8006
8007                         response <- private$REST$http$exec("POST", url, headers, body,
8008                                                            queryArgs, private$numRetries)
8009                         resource <- private$REST$httpParser$parseJSONResponse(response)
8010
8011                         if(!is.null(resource$errors))
8012                                 stop(resource$errors)
8013
8014                         result <- Specimen$new(uuid = resource$uuid,
8015                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8016                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
8017                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8018                                 modified_at = resource$modified_at, material = resource$material,
8019                                 updated_at = resource$updated_at, properties = resource$properties)
8020
8021                         if(result$isEmpty())
8022                                 resource
8023                         else
8024                                 result
8025                 },
8026
8027                 specimens.update = function(specimen, uuid)
8028                 {
8029                         endPoint <- stringr::str_interp("specimens/${uuid}")
8030                         url <- paste0(private$host, endPoint)
8031                         headers <- list(Authorization = paste("OAuth2", private$token),
8032                                         "Content-Type" = "application/json")
8033                         queryArgs <- list(uuid = uuid)
8034                         body <- specimen$toJSON()
8035
8036                         response <- private$REST$http$exec("PUT", url, headers, body,
8037                                                            queryArgs, private$numRetries)
8038                         resource <- private$REST$httpParser$parseJSONResponse(response)
8039
8040                         if(!is.null(resource$errors))
8041                                 stop(resource$errors)
8042
8043                         result <- Specimen$new(uuid = resource$uuid,
8044                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8045                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
8046                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8047                                 modified_at = resource$modified_at, material = resource$material,
8048                                 updated_at = resource$updated_at, properties = resource$properties)
8049
8050                         if(result$isEmpty())
8051                                 resource
8052                         else
8053                                 result
8054                 },
8055
8056                 specimens.delete = function(uuid)
8057                 {
8058                         endPoint <- stringr::str_interp("specimens/${uuid}")
8059                         url <- paste0(private$host, endPoint)
8060                         headers <- list(Authorization = paste("OAuth2", private$token),
8061                                         "Content-Type" = "application/json")
8062                         queryArgs <- list(uuid = uuid)
8063                         body <- NULL
8064
8065                         response <- private$REST$http$exec("DELETE", url, headers, body,
8066                                                            queryArgs, private$numRetries)
8067                         resource <- private$REST$httpParser$parseJSONResponse(response)
8068
8069                         if(!is.null(resource$errors))
8070                                 stop(resource$errors)
8071
8072                         result <- Specimen$new(uuid = resource$uuid,
8073                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8074                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
8075                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8076                                 modified_at = resource$modified_at, material = resource$material,
8077                                 updated_at = resource$updated_at, properties = resource$properties)
8078
8079                         if(result$isEmpty())
8080                                 resource
8081                         else
8082                                 result
8083                 },
8084
8085                 specimens.list = function(filters = NULL,
8086                         where = NULL, order = NULL, select = NULL,
8087                         distinct = NULL, limit = "100", offset = "0",
8088                         count = "exact")
8089                 {
8090                         endPoint <- stringr::str_interp("specimens")
8091                         url <- paste0(private$host, endPoint)
8092                         headers <- list(Authorization = paste("OAuth2", private$token),
8093                                         "Content-Type" = "application/json")
8094                         queryArgs <- list(filters = filters, where = where,
8095                                 order = order, select = select, distinct = distinct,
8096                                 limit = limit, offset = offset, count = count)
8097                         body <- NULL
8098
8099                         response <- private$REST$http$exec("GET", url, headers, body,
8100                                                            queryArgs, private$numRetries)
8101                         resource <- private$REST$httpParser$parseJSONResponse(response)
8102
8103                         if(!is.null(resource$errors))
8104                                 stop(resource$errors)
8105
8106                         result <- SpecimenList$new(kind = resource$kind,
8107                                 etag = resource$etag, items = resource$items,
8108                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
8109                                 selfLink = resource$selfLink)
8110
8111                         if(result$isEmpty())
8112                                 resource
8113                         else
8114                                 result
8115                 },
8116
8117                 specimens.show = function(uuid)
8118                 {
8119                         endPoint <- stringr::str_interp("specimens/${uuid}")
8120                         url <- paste0(private$host, endPoint)
8121                         headers <- list(Authorization = paste("OAuth2", private$token),
8122                                         "Content-Type" = "application/json")
8123                         queryArgs <- list(uuid = uuid)
8124                         body <- NULL
8125
8126                         response <- private$REST$http$exec("GET", url, headers, body,
8127                                                            queryArgs, private$numRetries)
8128                         resource <- private$REST$httpParser$parseJSONResponse(response)
8129
8130                         if(!is.null(resource$errors))
8131                                 stop(resource$errors)
8132
8133                         result <- Specimen$new(uuid = resource$uuid,
8134                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8135                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
8136                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8137                                 modified_at = resource$modified_at, material = resource$material,
8138                                 updated_at = resource$updated_at, properties = resource$properties)
8139
8140                         if(result$isEmpty())
8141                                 resource
8142                         else
8143                                 result
8144                 },
8145
8146                 specimens.destroy = function(uuid)
8147                 {
8148                         endPoint <- stringr::str_interp("specimens/${uuid}")
8149                         url <- paste0(private$host, endPoint)
8150                         headers <- list(Authorization = paste("OAuth2", private$token),
8151                                         "Content-Type" = "application/json")
8152                         queryArgs <- list(uuid = uuid)
8153                         body <- NULL
8154
8155                         response <- private$REST$http$exec("DELETE", url, headers, body,
8156                                                            queryArgs, private$numRetries)
8157                         resource <- private$REST$httpParser$parseJSONResponse(response)
8158
8159                         if(!is.null(resource$errors))
8160                                 stop(resource$errors)
8161
8162                         result <- Specimen$new(uuid = resource$uuid,
8163                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8164                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
8165                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8166                                 modified_at = resource$modified_at, material = resource$material,
8167                                 updated_at = resource$updated_at, properties = resource$properties)
8168
8169                         if(result$isEmpty())
8170                                 resource
8171                         else
8172                                 result
8173                 },
8174
8175                 logs.get = function(uuid)
8176                 {
8177                         endPoint <- stringr::str_interp("logs/${uuid}")
8178                         url <- paste0(private$host, endPoint)
8179                         headers <- list(Authorization = paste("OAuth2", private$token),
8180                                         "Content-Type" = "application/json")
8181                         queryArgs <- list(uuid = uuid)
8182                         body <- NULL
8183
8184                         response <- private$REST$http$exec("GET", url, headers, body,
8185                                                            queryArgs, private$numRetries)
8186                         resource <- private$REST$httpParser$parseJSONResponse(response)
8187
8188                         if(!is.null(resource$errors))
8189                                 stop(resource$errors)
8190
8191                         result <- Log$new(uuid = resource$uuid, etag = resource$etag,
8192                                 owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
8193                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8194                                 object_uuid = resource$object_uuid, event_at = resource$event_at,
8195                                 event_type = resource$event_type, summary = resource$summary,
8196                                 properties = resource$properties, created_at = resource$created_at,
8197                                 updated_at = resource$updated_at, modified_at = resource$modified_at,
8198                                 object_owner_uuid = resource$object_owner_uuid)
8199
8200                         if(result$isEmpty())
8201                                 resource
8202                         else
8203                                 result
8204                 },
8205
8206                 logs.index = function(filters = NULL, where = NULL,
8207                         order = NULL, select = NULL, distinct = NULL,
8208                         limit = "100", offset = "0", count = "exact")
8209                 {
8210                         endPoint <- stringr::str_interp("logs")
8211                         url <- paste0(private$host, endPoint)
8212                         headers <- list(Authorization = paste("OAuth2", private$token),
8213                                         "Content-Type" = "application/json")
8214                         queryArgs <- list(filters = filters, where = where,
8215                                 order = order, select = select, distinct = distinct,
8216                                 limit = limit, offset = offset, count = count)
8217                         body <- NULL
8218
8219                         response <- private$REST$http$exec("GET", url, headers, body,
8220                                                            queryArgs, private$numRetries)
8221                         resource <- private$REST$httpParser$parseJSONResponse(response)
8222
8223                         if(!is.null(resource$errors))
8224                                 stop(resource$errors)
8225
8226                         result <- LogList$new(kind = resource$kind,
8227                                 etag = resource$etag, items = resource$items,
8228                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
8229                                 selfLink = resource$selfLink)
8230
8231                         if(result$isEmpty())
8232                                 resource
8233                         else
8234                                 result
8235                 },
8236
8237                 logs.create = function(log, ensure_unique_name = "false")
8238                 {
8239                         endPoint <- stringr::str_interp("logs")
8240                         url <- paste0(private$host, endPoint)
8241                         headers <- list(Authorization = paste("OAuth2", private$token),
8242                                         "Content-Type" = "application/json")
8243                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
8244                         body <- log$toJSON()
8245
8246                         response <- private$REST$http$exec("POST", url, headers, body,
8247                                                            queryArgs, private$numRetries)
8248                         resource <- private$REST$httpParser$parseJSONResponse(response)
8249
8250                         if(!is.null(resource$errors))
8251                                 stop(resource$errors)
8252
8253                         result <- Log$new(uuid = resource$uuid, etag = resource$etag,
8254                                 owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
8255                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8256                                 object_uuid = resource$object_uuid, event_at = resource$event_at,
8257                                 event_type = resource$event_type, summary = resource$summary,
8258                                 properties = resource$properties, created_at = resource$created_at,
8259                                 updated_at = resource$updated_at, modified_at = resource$modified_at,
8260                                 object_owner_uuid = resource$object_owner_uuid)
8261
8262                         if(result$isEmpty())
8263                                 resource
8264                         else
8265                                 result
8266                 },
8267
8268                 logs.update = function(log, uuid)
8269                 {
8270                         endPoint <- stringr::str_interp("logs/${uuid}")
8271                         url <- paste0(private$host, endPoint)
8272                         headers <- list(Authorization = paste("OAuth2", private$token),
8273                                         "Content-Type" = "application/json")
8274                         queryArgs <- list(uuid = uuid)
8275                         body <- log$toJSON()
8276
8277                         response <- private$REST$http$exec("PUT", url, headers, body,
8278                                                            queryArgs, private$numRetries)
8279                         resource <- private$REST$httpParser$parseJSONResponse(response)
8280
8281                         if(!is.null(resource$errors))
8282                                 stop(resource$errors)
8283
8284                         result <- Log$new(uuid = resource$uuid, etag = resource$etag,
8285                                 owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
8286                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8287                                 object_uuid = resource$object_uuid, event_at = resource$event_at,
8288                                 event_type = resource$event_type, summary = resource$summary,
8289                                 properties = resource$properties, created_at = resource$created_at,
8290                                 updated_at = resource$updated_at, modified_at = resource$modified_at,
8291                                 object_owner_uuid = resource$object_owner_uuid)
8292
8293                         if(result$isEmpty())
8294                                 resource
8295                         else
8296                                 result
8297                 },
8298
8299                 logs.delete = function(uuid)
8300                 {
8301                         endPoint <- stringr::str_interp("logs/${uuid}")
8302                         url <- paste0(private$host, endPoint)
8303                         headers <- list(Authorization = paste("OAuth2", private$token),
8304                                         "Content-Type" = "application/json")
8305                         queryArgs <- list(uuid = uuid)
8306                         body <- NULL
8307
8308                         response <- private$REST$http$exec("DELETE", url, headers, body,
8309                                                            queryArgs, private$numRetries)
8310                         resource <- private$REST$httpParser$parseJSONResponse(response)
8311
8312                         if(!is.null(resource$errors))
8313                                 stop(resource$errors)
8314
8315                         result <- Log$new(uuid = resource$uuid, etag = resource$etag,
8316                                 owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
8317                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8318                                 object_uuid = resource$object_uuid, event_at = resource$event_at,
8319                                 event_type = resource$event_type, summary = resource$summary,
8320                                 properties = resource$properties, created_at = resource$created_at,
8321                                 updated_at = resource$updated_at, modified_at = resource$modified_at,
8322                                 object_owner_uuid = resource$object_owner_uuid)
8323
8324                         if(result$isEmpty())
8325                                 resource
8326                         else
8327                                 result
8328                 },
8329
8330                 logs.list = function(filters = NULL, where = NULL,
8331                         order = NULL, select = NULL, distinct = NULL,
8332                         limit = "100", offset = "0", count = "exact")
8333                 {
8334                         endPoint <- stringr::str_interp("logs")
8335                         url <- paste0(private$host, endPoint)
8336                         headers <- list(Authorization = paste("OAuth2", private$token),
8337                                         "Content-Type" = "application/json")
8338                         queryArgs <- list(filters = filters, where = where,
8339                                 order = order, select = select, distinct = distinct,
8340                                 limit = limit, offset = offset, count = count)
8341                         body <- NULL
8342
8343                         response <- private$REST$http$exec("GET", url, headers, body,
8344                                                            queryArgs, private$numRetries)
8345                         resource <- private$REST$httpParser$parseJSONResponse(response)
8346
8347                         if(!is.null(resource$errors))
8348                                 stop(resource$errors)
8349
8350                         result <- LogList$new(kind = resource$kind,
8351                                 etag = resource$etag, items = resource$items,
8352                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
8353                                 selfLink = resource$selfLink)
8354
8355                         if(result$isEmpty())
8356                                 resource
8357                         else
8358                                 result
8359                 },
8360
8361                 logs.show = function(uuid)
8362                 {
8363                         endPoint <- stringr::str_interp("logs/${uuid}")
8364                         url <- paste0(private$host, endPoint)
8365                         headers <- list(Authorization = paste("OAuth2", private$token),
8366                                         "Content-Type" = "application/json")
8367                         queryArgs <- list(uuid = uuid)
8368                         body <- NULL
8369
8370                         response <- private$REST$http$exec("GET", url, headers, body,
8371                                                            queryArgs, private$numRetries)
8372                         resource <- private$REST$httpParser$parseJSONResponse(response)
8373
8374                         if(!is.null(resource$errors))
8375                                 stop(resource$errors)
8376
8377                         result <- Log$new(uuid = resource$uuid, etag = resource$etag,
8378                                 owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
8379                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8380                                 object_uuid = resource$object_uuid, event_at = resource$event_at,
8381                                 event_type = resource$event_type, summary = resource$summary,
8382                                 properties = resource$properties, created_at = resource$created_at,
8383                                 updated_at = resource$updated_at, modified_at = resource$modified_at,
8384                                 object_owner_uuid = resource$object_owner_uuid)
8385
8386                         if(result$isEmpty())
8387                                 resource
8388                         else
8389                                 result
8390                 },
8391
8392                 logs.destroy = function(uuid)
8393                 {
8394                         endPoint <- stringr::str_interp("logs/${uuid}")
8395                         url <- paste0(private$host, endPoint)
8396                         headers <- list(Authorization = paste("OAuth2", private$token),
8397                                         "Content-Type" = "application/json")
8398                         queryArgs <- list(uuid = uuid)
8399                         body <- NULL
8400
8401                         response <- private$REST$http$exec("DELETE", url, headers, body,
8402                                                            queryArgs, private$numRetries)
8403                         resource <- private$REST$httpParser$parseJSONResponse(response)
8404
8405                         if(!is.null(resource$errors))
8406                                 stop(resource$errors)
8407
8408                         result <- Log$new(uuid = resource$uuid, etag = resource$etag,
8409                                 owner_uuid = resource$owner_uuid, modified_by_client_uuid = resource$modified_by_client_uuid,
8410                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8411                                 object_uuid = resource$object_uuid, event_at = resource$event_at,
8412                                 event_type = resource$event_type, summary = resource$summary,
8413                                 properties = resource$properties, created_at = resource$created_at,
8414                                 updated_at = resource$updated_at, modified_at = resource$modified_at,
8415                                 object_owner_uuid = resource$object_owner_uuid)
8416
8417                         if(result$isEmpty())
8418                                 resource
8419                         else
8420                                 result
8421                 },
8422
8423                 traits.get = function(uuid)
8424                 {
8425                         endPoint <- stringr::str_interp("traits/${uuid}")
8426                         url <- paste0(private$host, endPoint)
8427                         headers <- list(Authorization = paste("OAuth2", private$token),
8428                                         "Content-Type" = "application/json")
8429                         queryArgs <- list(uuid = uuid)
8430                         body <- NULL
8431
8432                         response <- private$REST$http$exec("GET", url, headers, body,
8433                                                            queryArgs, private$numRetries)
8434                         resource <- private$REST$httpParser$parseJSONResponse(response)
8435
8436                         if(!is.null(resource$errors))
8437                                 stop(resource$errors)
8438
8439                         result <- Trait$new(uuid = resource$uuid,
8440                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8441                                 modified_by_client_uuid = resource$modified_by_client_uuid,
8442                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8443                                 modified_at = resource$modified_at, name = resource$name,
8444                                 properties = resource$properties, created_at = resource$created_at,
8445                                 updated_at = resource$updated_at)
8446
8447                         if(result$isEmpty())
8448                                 resource
8449                         else
8450                                 result
8451                 },
8452
8453                 traits.index = function(filters = NULL, where = NULL,
8454                         order = NULL, select = NULL, distinct = NULL,
8455                         limit = "100", offset = "0", count = "exact")
8456                 {
8457                         endPoint <- stringr::str_interp("traits")
8458                         url <- paste0(private$host, endPoint)
8459                         headers <- list(Authorization = paste("OAuth2", private$token),
8460                                         "Content-Type" = "application/json")
8461                         queryArgs <- list(filters = filters, where = where,
8462                                 order = order, select = select, distinct = distinct,
8463                                 limit = limit, offset = offset, count = count)
8464                         body <- NULL
8465
8466                         response <- private$REST$http$exec("GET", url, headers, body,
8467                                                            queryArgs, private$numRetries)
8468                         resource <- private$REST$httpParser$parseJSONResponse(response)
8469
8470                         if(!is.null(resource$errors))
8471                                 stop(resource$errors)
8472
8473                         result <- TraitList$new(kind = resource$kind,
8474                                 etag = resource$etag, items = resource$items,
8475                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
8476                                 selfLink = resource$selfLink)
8477
8478                         if(result$isEmpty())
8479                                 resource
8480                         else
8481                                 result
8482                 },
8483
8484                 traits.create = function(trait, ensure_unique_name = "false")
8485                 {
8486                         endPoint <- stringr::str_interp("traits")
8487                         url <- paste0(private$host, endPoint)
8488                         headers <- list(Authorization = paste("OAuth2", private$token),
8489                                         "Content-Type" = "application/json")
8490                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
8491                         body <- trait$toJSON()
8492
8493                         response <- private$REST$http$exec("POST", url, headers, body,
8494                                                            queryArgs, private$numRetries)
8495                         resource <- private$REST$httpParser$parseJSONResponse(response)
8496
8497                         if(!is.null(resource$errors))
8498                                 stop(resource$errors)
8499
8500                         result <- Trait$new(uuid = resource$uuid,
8501                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8502                                 modified_by_client_uuid = resource$modified_by_client_uuid,
8503                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8504                                 modified_at = resource$modified_at, name = resource$name,
8505                                 properties = resource$properties, created_at = resource$created_at,
8506                                 updated_at = resource$updated_at)
8507
8508                         if(result$isEmpty())
8509                                 resource
8510                         else
8511                                 result
8512                 },
8513
8514                 traits.update = function(trait, uuid)
8515                 {
8516                         endPoint <- stringr::str_interp("traits/${uuid}")
8517                         url <- paste0(private$host, endPoint)
8518                         headers <- list(Authorization = paste("OAuth2", private$token),
8519                                         "Content-Type" = "application/json")
8520                         queryArgs <- list(uuid = uuid)
8521                         body <- trait$toJSON()
8522
8523                         response <- private$REST$http$exec("PUT", url, headers, body,
8524                                                            queryArgs, private$numRetries)
8525                         resource <- private$REST$httpParser$parseJSONResponse(response)
8526
8527                         if(!is.null(resource$errors))
8528                                 stop(resource$errors)
8529
8530                         result <- Trait$new(uuid = resource$uuid,
8531                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8532                                 modified_by_client_uuid = resource$modified_by_client_uuid,
8533                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8534                                 modified_at = resource$modified_at, name = resource$name,
8535                                 properties = resource$properties, created_at = resource$created_at,
8536                                 updated_at = resource$updated_at)
8537
8538                         if(result$isEmpty())
8539                                 resource
8540                         else
8541                                 result
8542                 },
8543
8544                 traits.delete = function(uuid)
8545                 {
8546                         endPoint <- stringr::str_interp("traits/${uuid}")
8547                         url <- paste0(private$host, endPoint)
8548                         headers <- list(Authorization = paste("OAuth2", private$token),
8549                                         "Content-Type" = "application/json")
8550                         queryArgs <- list(uuid = uuid)
8551                         body <- NULL
8552
8553                         response <- private$REST$http$exec("DELETE", url, headers, body,
8554                                                            queryArgs, private$numRetries)
8555                         resource <- private$REST$httpParser$parseJSONResponse(response)
8556
8557                         if(!is.null(resource$errors))
8558                                 stop(resource$errors)
8559
8560                         result <- Trait$new(uuid = resource$uuid,
8561                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8562                                 modified_by_client_uuid = resource$modified_by_client_uuid,
8563                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8564                                 modified_at = resource$modified_at, name = resource$name,
8565                                 properties = resource$properties, created_at = resource$created_at,
8566                                 updated_at = resource$updated_at)
8567
8568                         if(result$isEmpty())
8569                                 resource
8570                         else
8571                                 result
8572                 },
8573
8574                 traits.list = function(filters = NULL, where = NULL,
8575                         order = NULL, select = NULL, distinct = NULL,
8576                         limit = "100", offset = "0", count = "exact")
8577                 {
8578                         endPoint <- stringr::str_interp("traits")
8579                         url <- paste0(private$host, endPoint)
8580                         headers <- list(Authorization = paste("OAuth2", private$token),
8581                                         "Content-Type" = "application/json")
8582                         queryArgs <- list(filters = filters, where = where,
8583                                 order = order, select = select, distinct = distinct,
8584                                 limit = limit, offset = offset, count = count)
8585                         body <- NULL
8586
8587                         response <- private$REST$http$exec("GET", url, headers, body,
8588                                                            queryArgs, private$numRetries)
8589                         resource <- private$REST$httpParser$parseJSONResponse(response)
8590
8591                         if(!is.null(resource$errors))
8592                                 stop(resource$errors)
8593
8594                         result <- TraitList$new(kind = resource$kind,
8595                                 etag = resource$etag, items = resource$items,
8596                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
8597                                 selfLink = resource$selfLink)
8598
8599                         if(result$isEmpty())
8600                                 resource
8601                         else
8602                                 result
8603                 },
8604
8605                 traits.show = function(uuid)
8606                 {
8607                         endPoint <- stringr::str_interp("traits/${uuid}")
8608                         url <- paste0(private$host, endPoint)
8609                         headers <- list(Authorization = paste("OAuth2", private$token),
8610                                         "Content-Type" = "application/json")
8611                         queryArgs <- list(uuid = uuid)
8612                         body <- NULL
8613
8614                         response <- private$REST$http$exec("GET", url, headers, body,
8615                                                            queryArgs, private$numRetries)
8616                         resource <- private$REST$httpParser$parseJSONResponse(response)
8617
8618                         if(!is.null(resource$errors))
8619                                 stop(resource$errors)
8620
8621                         result <- Trait$new(uuid = resource$uuid,
8622                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8623                                 modified_by_client_uuid = resource$modified_by_client_uuid,
8624                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8625                                 modified_at = resource$modified_at, name = resource$name,
8626                                 properties = resource$properties, created_at = resource$created_at,
8627                                 updated_at = resource$updated_at)
8628
8629                         if(result$isEmpty())
8630                                 resource
8631                         else
8632                                 result
8633                 },
8634
8635                 traits.destroy = function(uuid)
8636                 {
8637                         endPoint <- stringr::str_interp("traits/${uuid}")
8638                         url <- paste0(private$host, endPoint)
8639                         headers <- list(Authorization = paste("OAuth2", private$token),
8640                                         "Content-Type" = "application/json")
8641                         queryArgs <- list(uuid = uuid)
8642                         body <- NULL
8643
8644                         response <- private$REST$http$exec("DELETE", url, headers, body,
8645                                                            queryArgs, private$numRetries)
8646                         resource <- private$REST$httpParser$parseJSONResponse(response)
8647
8648                         if(!is.null(resource$errors))
8649                                 stop(resource$errors)
8650
8651                         result <- Trait$new(uuid = resource$uuid,
8652                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8653                                 modified_by_client_uuid = resource$modified_by_client_uuid,
8654                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8655                                 modified_at = resource$modified_at, name = resource$name,
8656                                 properties = resource$properties, created_at = resource$created_at,
8657                                 updated_at = resource$updated_at)
8658
8659                         if(result$isEmpty())
8660                                 resource
8661                         else
8662                                 result
8663                 },
8664
8665                 virtual_machines.get = function(uuid)
8666                 {
8667                         endPoint <- stringr::str_interp("virtual_machines/${uuid}")
8668                         url <- paste0(private$host, endPoint)
8669                         headers <- list(Authorization = paste("OAuth2", private$token),
8670                                         "Content-Type" = "application/json")
8671                         queryArgs <- list(uuid = uuid)
8672                         body <- NULL
8673
8674                         response <- private$REST$http$exec("GET", url, headers, body,
8675                                                            queryArgs, private$numRetries)
8676                         resource <- private$REST$httpParser$parseJSONResponse(response)
8677
8678                         if(!is.null(resource$errors))
8679                                 stop(resource$errors)
8680
8681                         result <- VirtualMachine$new(uuid = resource$uuid,
8682                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8683                                 modified_by_client_uuid = resource$modified_by_client_uuid,
8684                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8685                                 modified_at = resource$modified_at, hostname = resource$hostname,
8686                                 created_at = resource$created_at, updated_at = resource$updated_at)
8687
8688                         if(result$isEmpty())
8689                                 resource
8690                         else
8691                                 result
8692                 },
8693
8694                 virtual_machines.index = function(filters = NULL,
8695                         where = NULL, order = NULL, select = NULL,
8696                         distinct = NULL, limit = "100", offset = "0",
8697                         count = "exact")
8698                 {
8699                         endPoint <- stringr::str_interp("virtual_machines")
8700                         url <- paste0(private$host, endPoint)
8701                         headers <- list(Authorization = paste("OAuth2", private$token),
8702                                         "Content-Type" = "application/json")
8703                         queryArgs <- list(filters = filters, where = where,
8704                                 order = order, select = select, distinct = distinct,
8705                                 limit = limit, offset = offset, count = count)
8706                         body <- NULL
8707
8708                         response <- private$REST$http$exec("GET", url, headers, body,
8709                                                            queryArgs, private$numRetries)
8710                         resource <- private$REST$httpParser$parseJSONResponse(response)
8711
8712                         if(!is.null(resource$errors))
8713                                 stop(resource$errors)
8714
8715                         result <- VirtualMachineList$new(kind = resource$kind,
8716                                 etag = resource$etag, items = resource$items,
8717                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
8718                                 selfLink = resource$selfLink)
8719
8720                         if(result$isEmpty())
8721                                 resource
8722                         else
8723                                 result
8724                 },
8725
8726                 virtual_machines.create = function(virtual_machine,
8727                         ensure_unique_name = "false")
8728                 {
8729                         endPoint <- stringr::str_interp("virtual_machines")
8730                         url <- paste0(private$host, endPoint)
8731                         headers <- list(Authorization = paste("OAuth2", private$token),
8732                                         "Content-Type" = "application/json")
8733                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
8734                         body <- virtual_machine$toJSON()
8735
8736                         response <- private$REST$http$exec("POST", url, headers, body,
8737                                                            queryArgs, private$numRetries)
8738                         resource <- private$REST$httpParser$parseJSONResponse(response)
8739
8740                         if(!is.null(resource$errors))
8741                                 stop(resource$errors)
8742
8743                         result <- VirtualMachine$new(uuid = resource$uuid,
8744                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8745                                 modified_by_client_uuid = resource$modified_by_client_uuid,
8746                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8747                                 modified_at = resource$modified_at, hostname = resource$hostname,
8748                                 created_at = resource$created_at, updated_at = resource$updated_at)
8749
8750                         if(result$isEmpty())
8751                                 resource
8752                         else
8753                                 result
8754                 },
8755
8756                 virtual_machines.update = function(virtual_machine, uuid)
8757                 {
8758                         endPoint <- stringr::str_interp("virtual_machines/${uuid}")
8759                         url <- paste0(private$host, endPoint)
8760                         headers <- list(Authorization = paste("OAuth2", private$token),
8761                                         "Content-Type" = "application/json")
8762                         queryArgs <- list(uuid = uuid)
8763                         body <- virtual_machine$toJSON()
8764
8765                         response <- private$REST$http$exec("PUT", url, headers, body,
8766                                                            queryArgs, private$numRetries)
8767                         resource <- private$REST$httpParser$parseJSONResponse(response)
8768
8769                         if(!is.null(resource$errors))
8770                                 stop(resource$errors)
8771
8772                         result <- VirtualMachine$new(uuid = resource$uuid,
8773                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8774                                 modified_by_client_uuid = resource$modified_by_client_uuid,
8775                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8776                                 modified_at = resource$modified_at, hostname = resource$hostname,
8777                                 created_at = resource$created_at, updated_at = resource$updated_at)
8778
8779                         if(result$isEmpty())
8780                                 resource
8781                         else
8782                                 result
8783                 },
8784
8785                 virtual_machines.delete = function(uuid)
8786                 {
8787                         endPoint <- stringr::str_interp("virtual_machines/${uuid}")
8788                         url <- paste0(private$host, endPoint)
8789                         headers <- list(Authorization = paste("OAuth2", private$token),
8790                                         "Content-Type" = "application/json")
8791                         queryArgs <- list(uuid = uuid)
8792                         body <- NULL
8793
8794                         response <- private$REST$http$exec("DELETE", url, headers, body,
8795                                                            queryArgs, private$numRetries)
8796                         resource <- private$REST$httpParser$parseJSONResponse(response)
8797
8798                         if(!is.null(resource$errors))
8799                                 stop(resource$errors)
8800
8801                         result <- VirtualMachine$new(uuid = resource$uuid,
8802                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8803                                 modified_by_client_uuid = resource$modified_by_client_uuid,
8804                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8805                                 modified_at = resource$modified_at, hostname = resource$hostname,
8806                                 created_at = resource$created_at, updated_at = resource$updated_at)
8807
8808                         if(result$isEmpty())
8809                                 resource
8810                         else
8811                                 result
8812                 },
8813
8814                 virtual_machines.logins = function(uuid)
8815                 {
8816                         endPoint <- stringr::str_interp("virtual_machines/${uuid}/logins")
8817                         url <- paste0(private$host, endPoint)
8818                         headers <- list(Authorization = paste("OAuth2", private$token),
8819                                         "Content-Type" = "application/json")
8820                         queryArgs <- list(uuid = uuid)
8821                         body <- NULL
8822
8823                         response <- private$REST$http$exec("GET", url, headers, body,
8824                                                            queryArgs, private$numRetries)
8825                         resource <- private$REST$httpParser$parseJSONResponse(response)
8826
8827                         if(!is.null(resource$errors))
8828                                 stop(resource$errors)
8829
8830                         result <- VirtualMachine$new(uuid = resource$uuid,
8831                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8832                                 modified_by_client_uuid = resource$modified_by_client_uuid,
8833                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8834                                 modified_at = resource$modified_at, hostname = resource$hostname,
8835                                 created_at = resource$created_at, updated_at = resource$updated_at)
8836
8837                         if(result$isEmpty())
8838                                 resource
8839                         else
8840                                 result
8841                 },
8842
8843                 virtual_machines.get_all_logins = function()
8844                 {
8845                         endPoint <- stringr::str_interp("virtual_machines/get_all_logins")
8846                         url <- paste0(private$host, endPoint)
8847                         headers <- list(Authorization = paste("OAuth2", private$token),
8848                                         "Content-Type" = "application/json")
8849                         queryArgs <- NULL
8850                         body <- NULL
8851
8852                         response <- private$REST$http$exec("GET", url, headers, body,
8853                                                            queryArgs, private$numRetries)
8854                         resource <- private$REST$httpParser$parseJSONResponse(response)
8855
8856                         if(!is.null(resource$errors))
8857                                 stop(resource$errors)
8858
8859                         result <- VirtualMachine$new(uuid = resource$uuid,
8860                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8861                                 modified_by_client_uuid = resource$modified_by_client_uuid,
8862                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8863                                 modified_at = resource$modified_at, hostname = resource$hostname,
8864                                 created_at = resource$created_at, updated_at = resource$updated_at)
8865
8866                         if(result$isEmpty())
8867                                 resource
8868                         else
8869                                 result
8870                 },
8871
8872                 virtual_machines.list = function(filters = NULL,
8873                         where = NULL, order = NULL, select = NULL,
8874                         distinct = NULL, limit = "100", offset = "0",
8875                         count = "exact")
8876                 {
8877                         endPoint <- stringr::str_interp("virtual_machines")
8878                         url <- paste0(private$host, endPoint)
8879                         headers <- list(Authorization = paste("OAuth2", private$token),
8880                                         "Content-Type" = "application/json")
8881                         queryArgs <- list(filters = filters, where = where,
8882                                 order = order, select = select, distinct = distinct,
8883                                 limit = limit, offset = offset, count = count)
8884                         body <- NULL
8885
8886                         response <- private$REST$http$exec("GET", url, headers, body,
8887                                                            queryArgs, private$numRetries)
8888                         resource <- private$REST$httpParser$parseJSONResponse(response)
8889
8890                         if(!is.null(resource$errors))
8891                                 stop(resource$errors)
8892
8893                         result <- VirtualMachineList$new(kind = resource$kind,
8894                                 etag = resource$etag, items = resource$items,
8895                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
8896                                 selfLink = resource$selfLink)
8897
8898                         if(result$isEmpty())
8899                                 resource
8900                         else
8901                                 result
8902                 },
8903
8904                 virtual_machines.show = function(uuid)
8905                 {
8906                         endPoint <- stringr::str_interp("virtual_machines/${uuid}")
8907                         url <- paste0(private$host, endPoint)
8908                         headers <- list(Authorization = paste("OAuth2", private$token),
8909                                         "Content-Type" = "application/json")
8910                         queryArgs <- list(uuid = uuid)
8911                         body <- NULL
8912
8913                         response <- private$REST$http$exec("GET", url, headers, body,
8914                                                            queryArgs, private$numRetries)
8915                         resource <- private$REST$httpParser$parseJSONResponse(response)
8916
8917                         if(!is.null(resource$errors))
8918                                 stop(resource$errors)
8919
8920                         result <- VirtualMachine$new(uuid = resource$uuid,
8921                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8922                                 modified_by_client_uuid = resource$modified_by_client_uuid,
8923                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8924                                 modified_at = resource$modified_at, hostname = resource$hostname,
8925                                 created_at = resource$created_at, updated_at = resource$updated_at)
8926
8927                         if(result$isEmpty())
8928                                 resource
8929                         else
8930                                 result
8931                 },
8932
8933                 virtual_machines.destroy = function(uuid)
8934                 {
8935                         endPoint <- stringr::str_interp("virtual_machines/${uuid}")
8936                         url <- paste0(private$host, endPoint)
8937                         headers <- list(Authorization = paste("OAuth2", private$token),
8938                                         "Content-Type" = "application/json")
8939                         queryArgs <- list(uuid = uuid)
8940                         body <- NULL
8941
8942                         response <- private$REST$http$exec("DELETE", url, headers, body,
8943                                                            queryArgs, private$numRetries)
8944                         resource <- private$REST$httpParser$parseJSONResponse(response)
8945
8946                         if(!is.null(resource$errors))
8947                                 stop(resource$errors)
8948
8949                         result <- VirtualMachine$new(uuid = resource$uuid,
8950                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8951                                 modified_by_client_uuid = resource$modified_by_client_uuid,
8952                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8953                                 modified_at = resource$modified_at, hostname = resource$hostname,
8954                                 created_at = resource$created_at, updated_at = resource$updated_at)
8955
8956                         if(result$isEmpty())
8957                                 resource
8958                         else
8959                                 result
8960                 },
8961
8962                 workflows.get = function(uuid)
8963                 {
8964                         endPoint <- stringr::str_interp("workflows/${uuid}")
8965                         url <- paste0(private$host, endPoint)
8966                         headers <- list(Authorization = paste("OAuth2", private$token),
8967                                         "Content-Type" = "application/json")
8968                         queryArgs <- list(uuid = uuid)
8969                         body <- NULL
8970
8971                         response <- private$REST$http$exec("GET", url, headers, body,
8972                                                            queryArgs, private$numRetries)
8973                         resource <- private$REST$httpParser$parseJSONResponse(response)
8974
8975                         if(!is.null(resource$errors))
8976                                 stop(resource$errors)
8977
8978                         result <- Workflow$new(uuid = resource$uuid,
8979                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
8980                                 created_at = resource$created_at, modified_at = resource$modified_at,
8981                                 modified_by_client_uuid = resource$modified_by_client_uuid,
8982                                 modified_by_user_uuid = resource$modified_by_user_uuid,
8983                                 name = resource$name, description = resource$description,
8984                                 definition = resource$definition, updated_at = resource$updated_at)
8985
8986                         if(result$isEmpty())
8987                                 resource
8988                         else
8989                                 result
8990                 },
8991
8992                 workflows.index = function(filters = NULL,
8993                         where = NULL, order = NULL, select = NULL,
8994                         distinct = NULL, limit = "100", offset = "0",
8995                         count = "exact")
8996                 {
8997                         endPoint <- stringr::str_interp("workflows")
8998                         url <- paste0(private$host, endPoint)
8999                         headers <- list(Authorization = paste("OAuth2", private$token),
9000                                         "Content-Type" = "application/json")
9001                         queryArgs <- list(filters = filters, where = where,
9002                                 order = order, select = select, distinct = distinct,
9003                                 limit = limit, offset = offset, count = count)
9004                         body <- NULL
9005
9006                         response <- private$REST$http$exec("GET", url, headers, body,
9007                                                            queryArgs, private$numRetries)
9008                         resource <- private$REST$httpParser$parseJSONResponse(response)
9009
9010                         if(!is.null(resource$errors))
9011                                 stop(resource$errors)
9012
9013                         result <- WorkflowList$new(kind = resource$kind,
9014                                 etag = resource$etag, items = resource$items,
9015                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
9016                                 selfLink = resource$selfLink)
9017
9018                         if(result$isEmpty())
9019                                 resource
9020                         else
9021                                 result
9022                 },
9023
9024                 workflows.create = function(workflow, ensure_unique_name = "false")
9025                 {
9026                         endPoint <- stringr::str_interp("workflows")
9027                         url <- paste0(private$host, endPoint)
9028                         headers <- list(Authorization = paste("OAuth2", private$token),
9029                                         "Content-Type" = "application/json")
9030                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
9031                         body <- workflow$toJSON()
9032
9033                         response <- private$REST$http$exec("POST", url, headers, body,
9034                                                            queryArgs, private$numRetries)
9035                         resource <- private$REST$httpParser$parseJSONResponse(response)
9036
9037                         if(!is.null(resource$errors))
9038                                 stop(resource$errors)
9039
9040                         result <- Workflow$new(uuid = resource$uuid,
9041                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9042                                 created_at = resource$created_at, modified_at = resource$modified_at,
9043                                 modified_by_client_uuid = resource$modified_by_client_uuid,
9044                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9045                                 name = resource$name, description = resource$description,
9046                                 definition = resource$definition, updated_at = resource$updated_at)
9047
9048                         if(result$isEmpty())
9049                                 resource
9050                         else
9051                                 result
9052                 },
9053
9054                 workflows.update = function(workflow, uuid)
9055                 {
9056                         endPoint <- stringr::str_interp("workflows/${uuid}")
9057                         url <- paste0(private$host, endPoint)
9058                         headers <- list(Authorization = paste("OAuth2", private$token),
9059                                         "Content-Type" = "application/json")
9060                         queryArgs <- list(uuid = uuid)
9061                         body <- workflow$toJSON()
9062
9063                         response <- private$REST$http$exec("PUT", url, headers, body,
9064                                                            queryArgs, private$numRetries)
9065                         resource <- private$REST$httpParser$parseJSONResponse(response)
9066
9067                         if(!is.null(resource$errors))
9068                                 stop(resource$errors)
9069
9070                         result <- Workflow$new(uuid = resource$uuid,
9071                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9072                                 created_at = resource$created_at, modified_at = resource$modified_at,
9073                                 modified_by_client_uuid = resource$modified_by_client_uuid,
9074                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9075                                 name = resource$name, description = resource$description,
9076                                 definition = resource$definition, updated_at = resource$updated_at)
9077
9078                         if(result$isEmpty())
9079                                 resource
9080                         else
9081                                 result
9082                 },
9083
9084                 workflows.delete = function(uuid)
9085                 {
9086                         endPoint <- stringr::str_interp("workflows/${uuid}")
9087                         url <- paste0(private$host, endPoint)
9088                         headers <- list(Authorization = paste("OAuth2", private$token),
9089                                         "Content-Type" = "application/json")
9090                         queryArgs <- list(uuid = uuid)
9091                         body <- NULL
9092
9093                         response <- private$REST$http$exec("DELETE", url, headers, body,
9094                                                            queryArgs, private$numRetries)
9095                         resource <- private$REST$httpParser$parseJSONResponse(response)
9096
9097                         if(!is.null(resource$errors))
9098                                 stop(resource$errors)
9099
9100                         result <- Workflow$new(uuid = resource$uuid,
9101                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9102                                 created_at = resource$created_at, modified_at = resource$modified_at,
9103                                 modified_by_client_uuid = resource$modified_by_client_uuid,
9104                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9105                                 name = resource$name, description = resource$description,
9106                                 definition = resource$definition, updated_at = resource$updated_at)
9107
9108                         if(result$isEmpty())
9109                                 resource
9110                         else
9111                                 result
9112                 },
9113
9114                 workflows.list = function(filters = NULL,
9115                         where = NULL, order = NULL, select = NULL,
9116                         distinct = NULL, limit = "100", offset = "0",
9117                         count = "exact")
9118                 {
9119                         endPoint <- stringr::str_interp("workflows")
9120                         url <- paste0(private$host, endPoint)
9121                         headers <- list(Authorization = paste("OAuth2", private$token),
9122                                         "Content-Type" = "application/json")
9123                         queryArgs <- list(filters = filters, where = where,
9124                                 order = order, select = select, distinct = distinct,
9125                                 limit = limit, offset = offset, count = count)
9126                         body <- NULL
9127
9128                         response <- private$REST$http$exec("GET", url, headers, body,
9129                                                            queryArgs, private$numRetries)
9130                         resource <- private$REST$httpParser$parseJSONResponse(response)
9131
9132                         if(!is.null(resource$errors))
9133                                 stop(resource$errors)
9134
9135                         result <- WorkflowList$new(kind = resource$kind,
9136                                 etag = resource$etag, items = resource$items,
9137                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
9138                                 selfLink = resource$selfLink)
9139
9140                         if(result$isEmpty())
9141                                 resource
9142                         else
9143                                 result
9144                 },
9145
9146                 workflows.show = function(uuid)
9147                 {
9148                         endPoint <- stringr::str_interp("workflows/${uuid}")
9149                         url <- paste0(private$host, endPoint)
9150                         headers <- list(Authorization = paste("OAuth2", private$token),
9151                                         "Content-Type" = "application/json")
9152                         queryArgs <- list(uuid = uuid)
9153                         body <- NULL
9154
9155                         response <- private$REST$http$exec("GET", url, headers, body,
9156                                                            queryArgs, private$numRetries)
9157                         resource <- private$REST$httpParser$parseJSONResponse(response)
9158
9159                         if(!is.null(resource$errors))
9160                                 stop(resource$errors)
9161
9162                         result <- Workflow$new(uuid = resource$uuid,
9163                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9164                                 created_at = resource$created_at, modified_at = resource$modified_at,
9165                                 modified_by_client_uuid = resource$modified_by_client_uuid,
9166                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9167                                 name = resource$name, description = resource$description,
9168                                 definition = resource$definition, updated_at = resource$updated_at)
9169
9170                         if(result$isEmpty())
9171                                 resource
9172                         else
9173                                 result
9174                 },
9175
9176                 workflows.destroy = function(uuid)
9177                 {
9178                         endPoint <- stringr::str_interp("workflows/${uuid}")
9179                         url <- paste0(private$host, endPoint)
9180                         headers <- list(Authorization = paste("OAuth2", private$token),
9181                                         "Content-Type" = "application/json")
9182                         queryArgs <- list(uuid = uuid)
9183                         body <- NULL
9184
9185                         response <- private$REST$http$exec("DELETE", url, headers, body,
9186                                                            queryArgs, private$numRetries)
9187                         resource <- private$REST$httpParser$parseJSONResponse(response)
9188
9189                         if(!is.null(resource$errors))
9190                                 stop(resource$errors)
9191
9192                         result <- Workflow$new(uuid = resource$uuid,
9193                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9194                                 created_at = resource$created_at, modified_at = resource$modified_at,
9195                                 modified_by_client_uuid = resource$modified_by_client_uuid,
9196                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9197                                 name = resource$name, description = resource$description,
9198                                 definition = resource$definition, updated_at = resource$updated_at)
9199
9200                         if(result$isEmpty())
9201                                 resource
9202                         else
9203                                 result
9204                 },
9205
9206                 groups.get = function(uuid)
9207                 {
9208                         endPoint <- stringr::str_interp("groups/${uuid}")
9209                         url <- paste0(private$host, endPoint)
9210                         headers <- list(Authorization = paste("OAuth2", private$token),
9211                                         "Content-Type" = "application/json")
9212                         queryArgs <- list(uuid = uuid)
9213                         body <- NULL
9214
9215                         response <- private$REST$http$exec("GET", url, headers, body,
9216                                                            queryArgs, private$numRetries)
9217                         resource <- private$REST$httpParser$parseJSONResponse(response)
9218
9219                         if(!is.null(resource$errors))
9220                                 stop(resource$errors)
9221
9222                         result <- Group$new(uuid = resource$uuid,
9223                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9224                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9225                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9226                                 modified_at = resource$modified_at, name = resource$name,
9227                                 description = resource$description, updated_at = resource$updated_at,
9228                                 group_class = resource$group_class, trash_at = resource$trash_at,
9229                                 is_trashed = resource$is_trashed, delete_at = resource$delete_at)
9230
9231                         if(result$isEmpty())
9232                                 resource
9233                         else
9234                                 result
9235                 },
9236
9237                 groups.index = function(filters = NULL, where = NULL,
9238                         order = NULL, select = NULL, distinct = NULL,
9239                         limit = "100", offset = "0", count = "exact",
9240                         include_trash = NULL)
9241                 {
9242                         endPoint <- stringr::str_interp("groups")
9243                         url <- paste0(private$host, endPoint)
9244                         headers <- list(Authorization = paste("OAuth2", private$token),
9245                                         "Content-Type" = "application/json")
9246                         queryArgs <- list(filters = filters, where = where,
9247                                 order = order, select = select, distinct = distinct,
9248                                 limit = limit, offset = offset, count = count,
9249                                 include_trash = include_trash)
9250                         body <- NULL
9251
9252                         response <- private$REST$http$exec("GET", url, headers, body,
9253                                                            queryArgs, private$numRetries)
9254                         resource <- private$REST$httpParser$parseJSONResponse(response)
9255
9256                         if(!is.null(resource$errors))
9257                                 stop(resource$errors)
9258
9259                         result <- GroupList$new(kind = resource$kind,
9260                                 etag = resource$etag, items = resource$items,
9261                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
9262                                 selfLink = resource$selfLink)
9263
9264                         if(result$isEmpty())
9265                                 resource
9266                         else
9267                                 result
9268                 },
9269
9270                 groups.create = function(group, ensure_unique_name = "false")
9271                 {
9272                         endPoint <- stringr::str_interp("groups")
9273                         url <- paste0(private$host, endPoint)
9274                         headers <- list(Authorization = paste("OAuth2", private$token),
9275                                         "Content-Type" = "application/json")
9276                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
9277                         body <- group$toJSON()
9278
9279                         response <- private$REST$http$exec("POST", url, headers, body,
9280                                                            queryArgs, private$numRetries)
9281                         resource <- private$REST$httpParser$parseJSONResponse(response)
9282
9283                         if(!is.null(resource$errors))
9284                                 stop(resource$errors)
9285
9286                         result <- Group$new(uuid = resource$uuid,
9287                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9288                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9289                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9290                                 modified_at = resource$modified_at, name = resource$name,
9291                                 description = resource$description, updated_at = resource$updated_at,
9292                                 group_class = resource$group_class, trash_at = resource$trash_at,
9293                                 is_trashed = resource$is_trashed, delete_at = resource$delete_at)
9294
9295                         if(result$isEmpty())
9296                                 resource
9297                         else
9298                                 result
9299                 },
9300
9301                 groups.update = function(group, uuid)
9302                 {
9303                         endPoint <- stringr::str_interp("groups/${uuid}")
9304                         url <- paste0(private$host, endPoint)
9305                         headers <- list(Authorization = paste("OAuth2", private$token),
9306                                         "Content-Type" = "application/json")
9307                         queryArgs <- list(uuid = uuid)
9308                         body <- group$toJSON()
9309
9310                         response <- private$REST$http$exec("PUT", url, headers, body,
9311                                                            queryArgs, private$numRetries)
9312                         resource <- private$REST$httpParser$parseJSONResponse(response)
9313
9314                         if(!is.null(resource$errors))
9315                                 stop(resource$errors)
9316
9317                         result <- Group$new(uuid = resource$uuid,
9318                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9319                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9320                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9321                                 modified_at = resource$modified_at, name = resource$name,
9322                                 description = resource$description, updated_at = resource$updated_at,
9323                                 group_class = resource$group_class, trash_at = resource$trash_at,
9324                                 is_trashed = resource$is_trashed, delete_at = resource$delete_at)
9325
9326                         if(result$isEmpty())
9327                                 resource
9328                         else
9329                                 result
9330                 },
9331
9332                 groups.delete = function(uuid)
9333                 {
9334                         endPoint <- stringr::str_interp("groups/${uuid}")
9335                         url <- paste0(private$host, endPoint)
9336                         headers <- list(Authorization = paste("OAuth2", private$token),
9337                                         "Content-Type" = "application/json")
9338                         queryArgs <- list(uuid = uuid)
9339                         body <- NULL
9340
9341                         response <- private$REST$http$exec("DELETE", url, headers, body,
9342                                                            queryArgs, private$numRetries)
9343                         resource <- private$REST$httpParser$parseJSONResponse(response)
9344
9345                         if(!is.null(resource$errors))
9346                                 stop(resource$errors)
9347
9348                         result <- Group$new(uuid = resource$uuid,
9349                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9350                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9351                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9352                                 modified_at = resource$modified_at, name = resource$name,
9353                                 description = resource$description, updated_at = resource$updated_at,
9354                                 group_class = resource$group_class, trash_at = resource$trash_at,
9355                                 is_trashed = resource$is_trashed, delete_at = resource$delete_at)
9356
9357                         if(result$isEmpty())
9358                                 resource
9359                         else
9360                                 result
9361                 },
9362
9363                 groups.contents = function(filters = NULL,
9364                         where = NULL, order = NULL, distinct = NULL,
9365                         limit = "100", offset = "0", count = "exact",
9366                         include_trash = NULL, uuid = NULL, recursive = NULL)
9367                 {
9368                         endPoint <- stringr::str_interp("groups/contents")
9369                         url <- paste0(private$host, endPoint)
9370                         headers <- list(Authorization = paste("OAuth2", private$token),
9371                                         "Content-Type" = "application/json")
9372                         queryArgs <- list(filters = filters, where = where,
9373                                 order = order, distinct = distinct, limit = limit,
9374                                 offset = offset, count = count, include_trash = include_trash,
9375                                 uuid = uuid, recursive = recursive)
9376                         body <- NULL
9377
9378                         response <- private$REST$http$exec("GET", url, headers, body,
9379                                                            queryArgs, private$numRetries)
9380                         resource <- private$REST$httpParser$parseJSONResponse(response)
9381
9382                         if(!is.null(resource$errors))
9383                                 stop(resource$errors)
9384
9385                         result <- Group$new(uuid = resource$uuid,
9386                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9387                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9388                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9389                                 modified_at = resource$modified_at, name = resource$name,
9390                                 description = resource$description, updated_at = resource$updated_at,
9391                                 group_class = resource$group_class, trash_at = resource$trash_at,
9392                                 is_trashed = resource$is_trashed, delete_at = resource$delete_at)
9393
9394                         if(result$isEmpty())
9395                                 resource
9396                         else
9397                                 result
9398                 },
9399
9400                 groups.trash = function(uuid)
9401                 {
9402                         endPoint <- stringr::str_interp("groups/${uuid}/trash")
9403                         url <- paste0(private$host, endPoint)
9404                         headers <- list(Authorization = paste("OAuth2", private$token),
9405                                         "Content-Type" = "application/json")
9406                         queryArgs <- list(uuid = uuid)
9407                         body <- NULL
9408
9409                         response <- private$REST$http$exec("POST", url, headers, body,
9410                                                            queryArgs, private$numRetries)
9411                         resource <- private$REST$httpParser$parseJSONResponse(response)
9412
9413                         if(!is.null(resource$errors))
9414                                 stop(resource$errors)
9415
9416                         result <- Group$new(uuid = resource$uuid,
9417                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9418                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9419                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9420                                 modified_at = resource$modified_at, name = resource$name,
9421                                 description = resource$description, updated_at = resource$updated_at,
9422                                 group_class = resource$group_class, trash_at = resource$trash_at,
9423                                 is_trashed = resource$is_trashed, delete_at = resource$delete_at)
9424
9425                         if(result$isEmpty())
9426                                 resource
9427                         else
9428                                 result
9429                 },
9430
9431                 groups.untrash = function(uuid)
9432                 {
9433                         endPoint <- stringr::str_interp("groups/${uuid}/untrash")
9434                         url <- paste0(private$host, endPoint)
9435                         headers <- list(Authorization = paste("OAuth2", private$token),
9436                                         "Content-Type" = "application/json")
9437                         queryArgs <- list(uuid = uuid)
9438                         body <- NULL
9439
9440                         response <- private$REST$http$exec("POST", url, headers, body,
9441                                                            queryArgs, private$numRetries)
9442                         resource <- private$REST$httpParser$parseJSONResponse(response)
9443
9444                         if(!is.null(resource$errors))
9445                                 stop(resource$errors)
9446
9447                         result <- Group$new(uuid = resource$uuid,
9448                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9449                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9450                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9451                                 modified_at = resource$modified_at, name = resource$name,
9452                                 description = resource$description, updated_at = resource$updated_at,
9453                                 group_class = resource$group_class, trash_at = resource$trash_at,
9454                                 is_trashed = resource$is_trashed, delete_at = resource$delete_at)
9455
9456                         if(result$isEmpty())
9457                                 resource
9458                         else
9459                                 result
9460                 },
9461
9462                 groups.list = function(filters = NULL, where = NULL,
9463                         order = NULL, select = NULL, distinct = NULL,
9464                         limit = "100", offset = "0", count = "exact",
9465                         include_trash = NULL)
9466                 {
9467                         endPoint <- stringr::str_interp("groups")
9468                         url <- paste0(private$host, endPoint)
9469                         headers <- list(Authorization = paste("OAuth2", private$token),
9470                                         "Content-Type" = "application/json")
9471                         queryArgs <- list(filters = filters, where = where,
9472                                 order = order, select = select, distinct = distinct,
9473                                 limit = limit, offset = offset, count = count,
9474                                 include_trash = include_trash)
9475                         body <- NULL
9476
9477                         response <- private$REST$http$exec("GET", url, headers, body,
9478                                                            queryArgs, private$numRetries)
9479                         resource <- private$REST$httpParser$parseJSONResponse(response)
9480
9481                         if(!is.null(resource$errors))
9482                                 stop(resource$errors)
9483
9484                         result <- GroupList$new(kind = resource$kind,
9485                                 etag = resource$etag, items = resource$items,
9486                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
9487                                 selfLink = resource$selfLink)
9488
9489                         if(result$isEmpty())
9490                                 resource
9491                         else
9492                                 result
9493                 },
9494
9495                 groups.show = function(uuid)
9496                 {
9497                         endPoint <- stringr::str_interp("groups/${uuid}")
9498                         url <- paste0(private$host, endPoint)
9499                         headers <- list(Authorization = paste("OAuth2", private$token),
9500                                         "Content-Type" = "application/json")
9501                         queryArgs <- list(uuid = uuid)
9502                         body <- NULL
9503
9504                         response <- private$REST$http$exec("GET", url, headers, body,
9505                                                            queryArgs, private$numRetries)
9506                         resource <- private$REST$httpParser$parseJSONResponse(response)
9507
9508                         if(!is.null(resource$errors))
9509                                 stop(resource$errors)
9510
9511                         result <- Group$new(uuid = resource$uuid,
9512                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9513                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9514                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9515                                 modified_at = resource$modified_at, name = resource$name,
9516                                 description = resource$description, updated_at = resource$updated_at,
9517                                 group_class = resource$group_class, trash_at = resource$trash_at,
9518                                 is_trashed = resource$is_trashed, delete_at = resource$delete_at)
9519
9520                         if(result$isEmpty())
9521                                 resource
9522                         else
9523                                 result
9524                 },
9525
9526                 groups.destroy = function(uuid)
9527                 {
9528                         endPoint <- stringr::str_interp("groups/${uuid}")
9529                         url <- paste0(private$host, endPoint)
9530                         headers <- list(Authorization = paste("OAuth2", private$token),
9531                                         "Content-Type" = "application/json")
9532                         queryArgs <- list(uuid = uuid)
9533                         body <- NULL
9534
9535                         response <- private$REST$http$exec("DELETE", url, headers, body,
9536                                                            queryArgs, private$numRetries)
9537                         resource <- private$REST$httpParser$parseJSONResponse(response)
9538
9539                         if(!is.null(resource$errors))
9540                                 stop(resource$errors)
9541
9542                         result <- Group$new(uuid = resource$uuid,
9543                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9544                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9545                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9546                                 modified_at = resource$modified_at, name = resource$name,
9547                                 description = resource$description, updated_at = resource$updated_at,
9548                                 group_class = resource$group_class, trash_at = resource$trash_at,
9549                                 is_trashed = resource$is_trashed, delete_at = resource$delete_at)
9550
9551                         if(result$isEmpty())
9552                                 resource
9553                         else
9554                                 result
9555                 },
9556
9557                 user_agreements.get = function(uuid)
9558                 {
9559                         endPoint <- stringr::str_interp("user_agreements/${uuid}")
9560                         url <- paste0(private$host, endPoint)
9561                         headers <- list(Authorization = paste("OAuth2", private$token),
9562                                         "Content-Type" = "application/json")
9563                         queryArgs <- list(uuid = uuid)
9564                         body <- NULL
9565
9566                         response <- private$REST$http$exec("GET", url, headers, body,
9567                                                            queryArgs, private$numRetries)
9568                         resource <- private$REST$httpParser$parseJSONResponse(response)
9569
9570                         if(!is.null(resource$errors))
9571                                 stop(resource$errors)
9572
9573                         result <- UserAgreement$new(uuid = resource$uuid,
9574                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9575                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9576                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9577                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
9578                                 replication_desired = resource$replication_desired,
9579                                 replication_confirmed_at = resource$replication_confirmed_at,
9580                                 replication_confirmed = resource$replication_confirmed,
9581                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
9582                                 name = resource$name, description = resource$description,
9583                                 properties = resource$properties, delete_at = resource$delete_at,
9584                                 file_names = resource$file_names, trash_at = resource$trash_at,
9585                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
9586                                 storage_classes_confirmed = resource$storage_classes_confirmed,
9587                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
9588
9589                         if(result$isEmpty())
9590                                 resource
9591                         else
9592                                 result
9593                 },
9594
9595                 user_agreements.index = function(filters = NULL,
9596                         where = NULL, order = NULL, select = NULL,
9597                         distinct = NULL, limit = "100", offset = "0",
9598                         count = "exact")
9599                 {
9600                         endPoint <- stringr::str_interp("user_agreements")
9601                         url <- paste0(private$host, endPoint)
9602                         headers <- list(Authorization = paste("OAuth2", private$token),
9603                                         "Content-Type" = "application/json")
9604                         queryArgs <- list(filters = filters, where = where,
9605                                 order = order, select = select, distinct = distinct,
9606                                 limit = limit, offset = offset, count = count)
9607                         body <- NULL
9608
9609                         response <- private$REST$http$exec("GET", url, headers, body,
9610                                                            queryArgs, private$numRetries)
9611                         resource <- private$REST$httpParser$parseJSONResponse(response)
9612
9613                         if(!is.null(resource$errors))
9614                                 stop(resource$errors)
9615
9616                         result <- UserAgreementList$new(kind = resource$kind,
9617                                 etag = resource$etag, items = resource$items,
9618                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
9619                                 selfLink = resource$selfLink)
9620
9621                         if(result$isEmpty())
9622                                 resource
9623                         else
9624                                 result
9625                 },
9626
9627                 user_agreements.create = function(user_agreement,
9628                         ensure_unique_name = "false")
9629                 {
9630                         endPoint <- stringr::str_interp("user_agreements")
9631                         url <- paste0(private$host, endPoint)
9632                         headers <- list(Authorization = paste("OAuth2", private$token),
9633                                         "Content-Type" = "application/json")
9634                         queryArgs <- list(ensure_unique_name = ensure_unique_name)
9635                         body <- user_agreement$toJSON()
9636
9637                         response <- private$REST$http$exec("POST", url, headers, body,
9638                                                            queryArgs, private$numRetries)
9639                         resource <- private$REST$httpParser$parseJSONResponse(response)
9640
9641                         if(!is.null(resource$errors))
9642                                 stop(resource$errors)
9643
9644                         result <- UserAgreement$new(uuid = resource$uuid,
9645                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9646                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9647                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9648                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
9649                                 replication_desired = resource$replication_desired,
9650                                 replication_confirmed_at = resource$replication_confirmed_at,
9651                                 replication_confirmed = resource$replication_confirmed,
9652                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
9653                                 name = resource$name, description = resource$description,
9654                                 properties = resource$properties, delete_at = resource$delete_at,
9655                                 file_names = resource$file_names, trash_at = resource$trash_at,
9656                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
9657                                 storage_classes_confirmed = resource$storage_classes_confirmed,
9658                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
9659
9660                         if(result$isEmpty())
9661                                 resource
9662                         else
9663                                 result
9664                 },
9665
9666                 user_agreements.update = function(user_agreement, uuid)
9667                 {
9668                         endPoint <- stringr::str_interp("user_agreements/${uuid}")
9669                         url <- paste0(private$host, endPoint)
9670                         headers <- list(Authorization = paste("OAuth2", private$token),
9671                                         "Content-Type" = "application/json")
9672                         queryArgs <- list(uuid = uuid)
9673                         body <- user_agreement$toJSON()
9674
9675                         response <- private$REST$http$exec("PUT", url, headers, body,
9676                                                            queryArgs, private$numRetries)
9677                         resource <- private$REST$httpParser$parseJSONResponse(response)
9678
9679                         if(!is.null(resource$errors))
9680                                 stop(resource$errors)
9681
9682                         result <- UserAgreement$new(uuid = resource$uuid,
9683                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9684                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9685                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9686                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
9687                                 replication_desired = resource$replication_desired,
9688                                 replication_confirmed_at = resource$replication_confirmed_at,
9689                                 replication_confirmed = resource$replication_confirmed,
9690                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
9691                                 name = resource$name, description = resource$description,
9692                                 properties = resource$properties, delete_at = resource$delete_at,
9693                                 file_names = resource$file_names, trash_at = resource$trash_at,
9694                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
9695                                 storage_classes_confirmed = resource$storage_classes_confirmed,
9696                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
9697
9698                         if(result$isEmpty())
9699                                 resource
9700                         else
9701                                 result
9702                 },
9703
9704                 user_agreements.delete = function(uuid)
9705                 {
9706                         endPoint <- stringr::str_interp("user_agreements/${uuid}")
9707                         url <- paste0(private$host, endPoint)
9708                         headers <- list(Authorization = paste("OAuth2", private$token),
9709                                         "Content-Type" = "application/json")
9710                         queryArgs <- list(uuid = uuid)
9711                         body <- NULL
9712
9713                         response <- private$REST$http$exec("DELETE", url, headers, body,
9714                                                            queryArgs, private$numRetries)
9715                         resource <- private$REST$httpParser$parseJSONResponse(response)
9716
9717                         if(!is.null(resource$errors))
9718                                 stop(resource$errors)
9719
9720                         result <- UserAgreement$new(uuid = resource$uuid,
9721                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9722                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9723                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9724                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
9725                                 replication_desired = resource$replication_desired,
9726                                 replication_confirmed_at = resource$replication_confirmed_at,
9727                                 replication_confirmed = resource$replication_confirmed,
9728                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
9729                                 name = resource$name, description = resource$description,
9730                                 properties = resource$properties, delete_at = resource$delete_at,
9731                                 file_names = resource$file_names, trash_at = resource$trash_at,
9732                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
9733                                 storage_classes_confirmed = resource$storage_classes_confirmed,
9734                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
9735
9736                         if(result$isEmpty())
9737                                 resource
9738                         else
9739                                 result
9740                 },
9741
9742                 user_agreements.signatures = function()
9743                 {
9744                         endPoint <- stringr::str_interp("user_agreements/signatures")
9745                         url <- paste0(private$host, endPoint)
9746                         headers <- list(Authorization = paste("OAuth2", private$token),
9747                                         "Content-Type" = "application/json")
9748                         queryArgs <- NULL
9749                         body <- NULL
9750
9751                         response <- private$REST$http$exec("GET", url, headers, body,
9752                                                            queryArgs, private$numRetries)
9753                         resource <- private$REST$httpParser$parseJSONResponse(response)
9754
9755                         if(!is.null(resource$errors))
9756                                 stop(resource$errors)
9757
9758                         result <- UserAgreement$new(uuid = resource$uuid,
9759                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9760                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9761                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9762                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
9763                                 replication_desired = resource$replication_desired,
9764                                 replication_confirmed_at = resource$replication_confirmed_at,
9765                                 replication_confirmed = resource$replication_confirmed,
9766                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
9767                                 name = resource$name, description = resource$description,
9768                                 properties = resource$properties, delete_at = resource$delete_at,
9769                                 file_names = resource$file_names, trash_at = resource$trash_at,
9770                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
9771                                 storage_classes_confirmed = resource$storage_classes_confirmed,
9772                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
9773
9774                         if(result$isEmpty())
9775                                 resource
9776                         else
9777                                 result
9778                 },
9779
9780                 user_agreements.sign = function()
9781                 {
9782                         endPoint <- stringr::str_interp("user_agreements/sign")
9783                         url <- paste0(private$host, endPoint)
9784                         headers <- list(Authorization = paste("OAuth2", private$token),
9785                                         "Content-Type" = "application/json")
9786                         queryArgs <- NULL
9787                         body <- NULL
9788
9789                         response <- private$REST$http$exec("POST", url, headers, body,
9790                                                            queryArgs, private$numRetries)
9791                         resource <- private$REST$httpParser$parseJSONResponse(response)
9792
9793                         if(!is.null(resource$errors))
9794                                 stop(resource$errors)
9795
9796                         result <- UserAgreement$new(uuid = resource$uuid,
9797                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9798                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9799                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9800                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
9801                                 replication_desired = resource$replication_desired,
9802                                 replication_confirmed_at = resource$replication_confirmed_at,
9803                                 replication_confirmed = resource$replication_confirmed,
9804                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
9805                                 name = resource$name, description = resource$description,
9806                                 properties = resource$properties, delete_at = resource$delete_at,
9807                                 file_names = resource$file_names, trash_at = resource$trash_at,
9808                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
9809                                 storage_classes_confirmed = resource$storage_classes_confirmed,
9810                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
9811
9812                         if(result$isEmpty())
9813                                 resource
9814                         else
9815                                 result
9816                 },
9817
9818                 user_agreements.list = function(filters = NULL,
9819                         where = NULL, order = NULL, select = NULL,
9820                         distinct = NULL, limit = "100", offset = "0",
9821                         count = "exact")
9822                 {
9823                         endPoint <- stringr::str_interp("user_agreements")
9824                         url <- paste0(private$host, endPoint)
9825                         headers <- list(Authorization = paste("OAuth2", private$token),
9826                                         "Content-Type" = "application/json")
9827                         queryArgs <- list(filters = filters, where = where,
9828                                 order = order, select = select, distinct = distinct,
9829                                 limit = limit, offset = offset, count = count)
9830                         body <- NULL
9831
9832                         response <- private$REST$http$exec("GET", url, headers, body,
9833                                                            queryArgs, private$numRetries)
9834                         resource <- private$REST$httpParser$parseJSONResponse(response)
9835
9836                         if(!is.null(resource$errors))
9837                                 stop(resource$errors)
9838
9839                         result <- UserAgreementList$new(kind = resource$kind,
9840                                 etag = resource$etag, items = resource$items,
9841                                 next_link = resource$next_link, next_page_token = resource$next_page_token,
9842                                 selfLink = resource$selfLink)
9843
9844                         if(result$isEmpty())
9845                                 resource
9846                         else
9847                                 result
9848                 },
9849
9850                 user_agreements.new = function()
9851                 {
9852                         endPoint <- stringr::str_interp("user_agreements/new")
9853                         url <- paste0(private$host, endPoint)
9854                         headers <- list(Authorization = paste("OAuth2", private$token),
9855                                         "Content-Type" = "application/json")
9856                         queryArgs <- NULL
9857                         body <- NULL
9858
9859                         response <- private$REST$http$exec("GET", url, headers, body,
9860                                                            queryArgs, private$numRetries)
9861                         resource <- private$REST$httpParser$parseJSONResponse(response)
9862
9863                         if(!is.null(resource$errors))
9864                                 stop(resource$errors)
9865
9866                         result <- UserAgreement$new(uuid = resource$uuid,
9867                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9868                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9869                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9870                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
9871                                 replication_desired = resource$replication_desired,
9872                                 replication_confirmed_at = resource$replication_confirmed_at,
9873                                 replication_confirmed = resource$replication_confirmed,
9874                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
9875                                 name = resource$name, description = resource$description,
9876                                 properties = resource$properties, delete_at = resource$delete_at,
9877                                 file_names = resource$file_names, trash_at = resource$trash_at,
9878                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
9879                                 storage_classes_confirmed = resource$storage_classes_confirmed,
9880                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
9881
9882                         if(result$isEmpty())
9883                                 resource
9884                         else
9885                                 result
9886                 },
9887
9888                 user_agreements.show = function(uuid)
9889                 {
9890                         endPoint <- stringr::str_interp("user_agreements/${uuid}")
9891                         url <- paste0(private$host, endPoint)
9892                         headers <- list(Authorization = paste("OAuth2", private$token),
9893                                         "Content-Type" = "application/json")
9894                         queryArgs <- list(uuid = uuid)
9895                         body <- NULL
9896
9897                         response <- private$REST$http$exec("GET", url, headers, body,
9898                                                            queryArgs, private$numRetries)
9899                         resource <- private$REST$httpParser$parseJSONResponse(response)
9900
9901                         if(!is.null(resource$errors))
9902                                 stop(resource$errors)
9903
9904                         result <- UserAgreement$new(uuid = resource$uuid,
9905                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9906                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9907                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9908                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
9909                                 replication_desired = resource$replication_desired,
9910                                 replication_confirmed_at = resource$replication_confirmed_at,
9911                                 replication_confirmed = resource$replication_confirmed,
9912                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
9913                                 name = resource$name, description = resource$description,
9914                                 properties = resource$properties, delete_at = resource$delete_at,
9915                                 file_names = resource$file_names, trash_at = resource$trash_at,
9916                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
9917                                 storage_classes_confirmed = resource$storage_classes_confirmed,
9918                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
9919
9920                         if(result$isEmpty())
9921                                 resource
9922                         else
9923                                 result
9924                 },
9925
9926                 user_agreements.destroy = function(uuid)
9927                 {
9928                         endPoint <- stringr::str_interp("user_agreements/${uuid}")
9929                         url <- paste0(private$host, endPoint)
9930                         headers <- list(Authorization = paste("OAuth2", private$token),
9931                                         "Content-Type" = "application/json")
9932                         queryArgs <- list(uuid = uuid)
9933                         body <- NULL
9934
9935                         response <- private$REST$http$exec("DELETE", url, headers, body,
9936                                                            queryArgs, private$numRetries)
9937                         resource <- private$REST$httpParser$parseJSONResponse(response)
9938
9939                         if(!is.null(resource$errors))
9940                                 stop(resource$errors)
9941
9942                         result <- UserAgreement$new(uuid = resource$uuid,
9943                                 etag = resource$etag, owner_uuid = resource$owner_uuid,
9944                                 created_at = resource$created_at, modified_by_client_uuid = resource$modified_by_client_uuid,
9945                                 modified_by_user_uuid = resource$modified_by_user_uuid,
9946                                 modified_at = resource$modified_at, portable_data_hash = resource$portable_data_hash,
9947                                 replication_desired = resource$replication_desired,
9948                                 replication_confirmed_at = resource$replication_confirmed_at,
9949                                 replication_confirmed = resource$replication_confirmed,
9950                                 updated_at = resource$updated_at, manifest_text = resource$manifest_text,
9951                                 name = resource$name, description = resource$description,
9952                                 properties = resource$properties, delete_at = resource$delete_at,
9953                                 file_names = resource$file_names, trash_at = resource$trash_at,
9954                                 is_trashed = resource$is_trashed, storage_classes_desired = resource$storage_classes_desired,
9955                                 storage_classes_confirmed = resource$storage_classes_confirmed,
9956                                 storage_classes_confirmed_at = resource$storage_classes_confirmed_at)
9957
9958                         if(result$isEmpty())
9959                                 resource
9960                         else
9961                                 result
9962                 },
9963
9964                 getHostName = function() private$host,
9965                 getToken = function() private$token,
9966                 setRESTService = function(newREST) private$REST <- newREST
9967         ),
9968
9969         private = list(
9970
9971                 token = NULL,
9972                 host = NULL,
9973                 REST = NULL,
9974                 numRetries = NULL
9975         ),
9976
9977         cloneable = FALSE
9978 )