itriplot: take labels from column names

kbroman · May 31, 2020 · e07a72a · e07a72a
1 parent 048d7c7
commit e07a72a
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: qtlcharts
-Version: 0.12-4
-Date: 2019-12-19
+Version: 0.12-5
+Date: 2020-05-31
 Title: Interactive Graphics for QTL Experiments
 Author: Karl W Broman [aut, cre] (<https://orcid.org/0000-0002-4914-6671>),
     Michael Bostock [ctb, cph] (d3.js library in htmlwidgets/lib,

diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,7 @@
-## qtlcharts 0.12-4 (2019-12-19)
+## qtlcharts 0.12-5 (2020-05-31)
+
+- `itriplot()` will take labels from the column names of the
+  probabilities, `p`.
 
 - Allow `title` as chart option in `iplotMScanone()`,
   `iplotScanone()`, `iheatmap()`.

diff --git a/R/itriplot.R b/R/itriplot.R
@@ -43,6 +43,10 @@ function(p, indID=NULL, group=NULL, chartOpts=NULL, digits=5)
     stopifnot(length(indID) == n)
     indID <- as.character(indID)
 
+    if(!is.null(colnames(p))) { # if column names for probabilities, use as labels
+        chartOpts <- add2chartOpts(chartOpts, labels=colnames(p))
+    }
+
     if(is.null(group)) group <- rep(1, n)
     group_levels <- sort(unique(group))
     group <- group2numeric(group)