fix MAT when there are NAs in climate

LandSciTech · Aug 28, 2023 · 0a16a00 · 0a16a00
1 parent 09d7468
commit 0a16a00
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/ccvi_app.R b/R/ccvi_app.R
@@ -1008,7 +1008,7 @@ ccvi_app <- function(testmode_in, ...){
       class_brks <- clim_readme()$brks_mat %>% unique() %>%
         stringr::str_split_1(";") %>% sort()
       exp_df <-  spat_res2() %>% rowwise() %>%
-        select("scenario_name", contains("MAT"), "temp_exp_cave") %>%
+        select("scenario_name", matches("MAT_\\d"), "temp_exp_cave") %>%
         purrr::set_names(c("Scenario Name", class_brks, "Exposure Multiplier"))
     }, align = "r")
 
@@ -1017,7 +1017,7 @@ ccvi_app <- function(testmode_in, ...){
       class_brks <- clim_readme()$brks_cmd %>% unique() %>%
         stringr::str_split_1(";") %>% sort()
       exp_df <-  spat_res2() %>% rowwise() %>%
-        select("scenario_name", contains("CMD"), "moist_exp_cave") %>%
+        select("scenario_name", matches("CMD_\\d"), "moist_exp_cave") %>%
         purrr::set_names(c("Scenario Name", class_brks, "Exposure Multiplier"))
     }, align = "r")