fix: add code to make traced and enhanced channels work

gisler · May 25, 2024 · af73343 · af73343
1 parent 93256aa
commit af73343
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/input.R b/R/input.R
@@ -518,7 +518,12 @@ DEMrelatedInput <- function(
   rl_cha_map <- adjustExtent(rl_cha_map, sp_msk)
 
   rl_cha_map_cha <- rl_cha_map
-  rl_cha_map_cha[extend(rast("cha_trc.tif"), rl_cha_map_cha) == 1L] <- 1L
+  if (!is.null(ns_cha)) {
+    rl_cha <- rast("cha_trc.tif")
+  } else {
+    rl_cha <- rast("cha.tif")
+  }
+  rl_cha_map_cha[extend(rl_cha, rl_cha_map_cha) == 1L] <- 1L
 
   rl_dem_brd <- rast("dem_bnt_brd.tif")
   rl_dem_brd <- lapp(