HOTFIX: another error in phewas.data() when 0 rows found

tobyjohnson · Jul 16, 2019 · 5eb9068 · 5eb9068
1 parent 1c08528
commit 5eb9068
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: gtx
 Type: Package
 Encoding: UTF-8
 Title: Genetics ToolboX
-Version: 2.1.5
+Version: 2.1.6
 Date: 2019-07-16
 Authors@R: c(person("Toby", "Johnson", role = c("aut", "cre"), email = "Toby.x.Johnson@gsk.com"), 
              person("Karsten", "Sieber", role = c("ctb"), email = "karsten.b.sieber@gsk.com"),

diff --git a/R/phewas.R b/R/phewas.R
@@ -351,10 +351,12 @@ phewas.data <- function(chrom, pos, ref, alt, rs,
 
     # add chrom/pos/ref/alt columns to make easier to pass through to other functions, or to help interpretation if saved to a file
     # (note, not added if v1<-NULL above)
-    res$chrom <- v1$chrom
-    res$pos <- v1$pos
-    res$ref <- v1$ref
-    res$alt <- v1$alt
+    if (nrow(res) > 0) {
+      res$chrom <- v1$chrom
+      res$pos <- v1$pos
+      res$ref <- v1$ref
+      res$alt <- v1$alt
+    }
 
     # Fix labels for entities, finding labels for the NA ones then pasting on
     tmpl <- unique(na.omit(res[ , c('entity', 'entity_type')]))