Merge pull request #31 from mcoghill/master

pisr param override
stevenpawley · Mar 23, 2024 · 54ca49d · 54ca49d
2 parents 4aa1a22 + e40945a
commit 54ca49d
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/R/tool-overrides.R b/R/tool-overrides.R
@@ -60,6 +60,18 @@ create_tool_overrides <- function(tool_name, params) {
       params$radius_max$identifier <- "RADIUS_MAX"
       params$radius_max$default <- 100
     }
+  } else if (tool_name == "potential_incoming_solar_radiation") {
+    if (!"hour_range_min" %in% names(params)) {
+      # rename hour_range to hour_range_min
+      names(params)[names(params) == "hour_range"] <- "hour_range_min"
+      params$hour_range_min$alias <- "hour_range_min"
+      params$hour_range_min$identifier <- "HOUR_RANGE_MIN"
+
+      # add a new hour_range_max parameter
+      params$hour_range_max <- params$hour_range_min
+      params$hour_range_max$alias <- "hour_range_max"
+      params$hour_range_max$identifier <- "HOUR_RANGE_MAX"
+    }
   }
 
   params