From ad18a47e9ead8da923fe5dab46f16e4466a5d718 Mon Sep 17 00:00:00 2001 From: fawda123 Date: Sat, 28 Sep 2024 11:11:37 -0400 Subject: [PATCH] explicit tbsegdetail and precipdata load in show_fibmatmap --- R/show_fibmatmap.R | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/R/show_fibmatmap.R b/R/show_fibmatmap.R index cf80bb95..355903b1 100644 --- 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)