0.99.5

Handle NULL in combine function
stefangraw · Feb 14, 2019 · f3b6656 · f3b6656
1 parent a563fa7
commit f3b6656
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: pwrEWAS
 Title: A user-friendly tool for comprehensive power estimation for epigenome wide association studies (EWAS) 
-Version: 0.99.4
+Version: 0.99.5
 Description: pwrEWAS is a user-friendly tool to assists researchers in the design and planning of EWAS to help circumvent under- and overpowered studies.
 Author: Stefan Graw
 Maintainer: Stefan Graw <sgraw@kumc.edu>

diff --git a/R/pwrEWAS_v1.7.R b/R/pwrEWAS_v1.7.R
@@ -108,6 +108,7 @@ pwrEWAS <- function(minTotSampleSize, # min total sample size
 
   # combining function for foreach loops
   combine_tau <- function(listA, listB){
+    if(is.null(listA)) return(listB)
     if(!is(listA[["power"]], "array") & !is(listA[["power"]], "matrix")) listA[["power"]] <- matrix(listA[["power"]])
     if(!is(listB[["power"]], "array") & !is(listB[["power"]], "matrix")) listB[["power"]] <- matrix(listB[["power"]])
     if(!is(listA[["metric"]]$marTypeI, "array") & !is(listA[["metric"]]$marTypeI, "matrix")) listA[["metric"]]$marTypeI <- matrix(listA[["metric"]]$marTypeI)
@@ -134,6 +135,7 @@ pwrEWAS <- function(minTotSampleSize, # min total sample size
   }
 
   combine_totSampleSizes <- function(listA, listB){
+    if(is.null(listA)) return(listB)
     returnList <- list()
     returnList[["power"]] <- cbind(listA[["power"]], listB[["power"]])
     returnList[["delta"]] <- cbind(listA[["delta"]], listB[["delta"]])