sdk/R/tests/testthat/fakes/FakeArvados.R

   1 FakeArvados <- R6::R6Class(
   2
   3     "FakeArvados",
   4
   5     public = list(
   6
   7         token      = NULL,
   8         host       = NULL,
   9         webdavHost = NULL,
  10         http       = NULL,
  11         httpParser = NULL,
  12         REST       = NULL,
  13
  14         initialize = function(token      = NULL,
  15                               host       = NULL,
  16                               webdavHost = NULL,
  17                               http       = NULL,
  18                               httpParser = NULL)
  19         {
  20             self$token      <- token
  21             self$host       <- host
  22             self$webdavHost <- webdavHost
  23             self$http       <- http
  24             self$httpParser <- httpParser
  25         },
  26
  27         getToken    = function() self$token,
  28         getHostName = function() self$host,
  29         getHttpClient = function() self$http,
  30         getHttpParser = function() self$httpParser,
  31         getWebDavHostName = function() self$webdavHost
  32     ),
  33
  34     cloneable = FALSE
  35 )