... | ... |
@@ -140,7 +140,7 @@ runScrublet <- function(inSCE, |
140 | 140 |
## Getting current arguments values |
141 | 141 |
argsList <- mget(names(formals()),sys.frame(sys.nframe())) |
142 | 142 |
argsList <- argsList[!names(argsList) %in% c("inSCE")] |
143 |
- argsList$packageVersion <- pkg_resources$require("scrublet")[[1]] |
|
143 |
+ argsList$packageVersion <- pkg_resources$"require"("scrublet")[[1]] |
|
144 | 144 |
|
145 | 145 |
sample <- .manageCellVar(inSCE, var = sample) |
146 | 146 |
if (is.null(sample)) { |