fix bug in VS()

ocbe-uio · Sep 27, 2024 · c82df11 · c82df11
1 parent d3c4ca1
commit c82df11
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -13,7 +13,7 @@ URL: https://github.com/ocbe-uio/BayesSurvive
 BugReports: https://github.com/ocbe-uio/BayesSurvive/issues
 License: GPL-3
 VignetteBuilder: knitr
-Depends: R (>= 4.0)
+Depends: R (>= 4.4.0)
 Encoding: UTF-8
 RoxygenNote: 7.3.2
 LinkingTo: Rcpp, RcppArmadillo, testthat
@@ -22,7 +22,7 @@ Imports: Rcpp, ggplot2, GGally, mvtnorm, survival, riskRegression,
 Suggests: knitr, testthat
 LazyData: true
 NeedsCompilation: yes
-Packaged: 2024-09-27 15:26:16 UTC; zhiz
+Packaged: 2024-09-27 19:57:03 UTC; zhiz
 Author: Zhi Zhao [aut, cre],
   Waldir Leoncio [aut],
   Katrin Madjar [aut],

diff --git a/R/VS.R b/R/VS.R
@@ -75,7 +75,9 @@ VS <- function(x, method = "FDR", threshold = NA, subgroup = 1) {
       stop("The list input has to consist of matrices and/or arrays!")
     }
     # If the input is a matrix or array, reformat it to be an list
-    x <- list(x)
+    if (!is.list(x)) {
+      x <- list(x)
+    }
   }
   if (!method %in% c("CI", "SNC", "MPM", "FDR")) { # "SNC-BIC",
     stop("'method' should be one of c('CI', 'SNC', 'MPM', 'FDR')!")