fix to color mapping for grades in show_fibmatrix

tbep-tech · Sep 25, 2024 · a80cd8f · a80cd8f
1 parent e092f78
commit a80cd8f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/show_fibmatrix.R b/R/show_fibmatrix.R
@@ -47,6 +47,7 @@ show_fibmatrix <- function(fibdata, yrrng = NULL,
                            size = 10, hjust = 0, plotly = FALSE, width = NULL, height = NULL){
 
   cols <- c('#2DC938', '#E9C318', '#EE7600', '#CC3231', '#800080')
+  names(cols) <- c('A', 'B', 'C', 'D', 'E')
 
   toplo <- anlz_fibmatrix(fibdata, yrrng = yrrng, stas = stas, bay_segment = bay_segment,
                           indic = indic, threshold = threshold, lagyr = lagyr,