explicit tbsegdetail and precipdata load in show_fibmatmap

tbep-tech · Sep 28, 2024 · ad18a47 · ad18a47
1 parent bb14c95
commit ad18a47
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/show_fibmatmap.R b/R/show_fibmatmap.R
@@ -40,6 +40,11 @@ show_fibmatmap <- function(fibdata, yrsel, areasel, indic, threshold = NULL,
   cols <- c('#2DC938', '#E9C318', '#EE7600', '#CC3231', '#800080')
   names(cols) <- c('A', 'B', 'C', 'D', 'E')
 
+  data(tbesegdetail)
+
+  if(is.null(precipdata))
+    data(precipdata)
+
   # check if epchc data
   isepchc <- exists("epchc_station", fibdata)