Use initialize() method instead of prototype for Params class

See issue Oshlack#132
wenjie2wang · Jan 28, 2022 · f539996 · f539996
1 parent 1eec243
commit f539996
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/R/AllClasses.R b/R/AllClasses.R
@@ -21,10 +21,14 @@ setClass("Params",
          contains = "VIRTUAL",
          slots = c(nGenes = "numeric",
                    nCells = "numeric",
-                   seed = "numeric"),
-         prototype = prototype(nGenes = 10000, nCells = 100,
-                               seed = sample(seq_len(1e6), 1)))
+                   seed = "numeric"))
 
+setMethod("initialize", "Params", function(.Object, ...) {
+    .Object@nGenes <- 10000
+    .Object@nCells <- 100
+    .Object@seed <- sample(seq_len(1e6), 1)
+    .Object
+})
 
 #' The SimpleParams class
 #'