fix hunter plot for unidirectional data

willgryan · Jul 13, 2023 · 1b2b51c · 1b2b51c
1 parent a5b54e8
commit 1b2b51c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/PAVER_hunter_plot.R b/R/PAVER_hunter_plot.R
@@ -37,7 +37,7 @@ PAVER_hunter_plot <- function(PAVER_result, unit=NULL) {
   } else {
     at = c(min, max)
     labels = c(round(min, 2), round(max, 2))
-    if(levels(data$Direction) == "Up") {
+    if(levels(data$Direction) == "+") {
       col_fun = circlize::colorRamp2(c(min, max), c("white", "red"))
     } else {
       col_fun = circlize::colorRamp2(c(min, max), c("white", "blue"))