minor change to viridis H colorbar color cropping

afsc-gap-products · Jun 24, 2024 · b531a62 · b531a62
1 parent f8f9466
commit b531a62
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/code/functions.R b/code/functions.R
@@ -527,8 +527,12 @@ make_figure <- function(
                                       var_breaks[i-1],"\u2013",var_breaks[i]) # ,"\u00B0C" "\u00B0"
                       ))
     }
+    if (virids_option == "H") {
+    var_color <- viridis::viridis_pal(option = virids_option)(length(var_labels))
+    } else {
     var_color <- viridis::viridis_pal(begin = 0.2, end = 0.9, option = virids_option)(length(var_labels))
     # var_color <- viridis::viridis_pal(begin = 0.2, end = 0.9, option = "B")(length(var_labels))
+    }
     # bin var
     dat <- dat %>%
       dplyr::mutate(var_bin = base::cut(x = as.numeric(dat$var),