fix number of SNPs in ggplot legend

umr1283 · May 4, 2020 · 6ab0cf7 · 6ab0cf7
1 parent fc0c99f
commit 6ab0cf7
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: rain
 Title: Reference-based Ancestry INference
-Version: 0.3.3
+Version: 0.3.4
 Authors@R: 
     c(person(given = "Mickaël",
              family = "Canouil",

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,9 @@
+# rain 0.3.4
+
+## Minor improvements and fixes
+
+* In `R/compute_pca.R`, fix number of SNPs in ggplot legend.
+
 # rain 0.3.3
 
 ## Minor improvements and fixes

diff --git a/R/compute_pca.R b/R/compute_pca.R
@@ -140,7 +140,7 @@ compute_pca <- function(cohort_name, input_plink, output_directory, ref1kg_popul
       title = "Estimated Ethnicity",
       subtitle = paste(
         "Based on Principal Component Analysis using",
-        scales::comma(nrow(res_pca[["projection"]])),
+        scales::comma(ncol(res_pca[["projection"]])),
         "SNPs."
       )
     )