From e40945aaf7d2d224ba3f383b705545180d6edaae Mon Sep 17 00:00:00 2001
From: Matthew Coghill <matthewcoghill@live.ca>
Date: Wed, 6 Mar 2024 01:37:36 -0800
Subject: [PATCH] pisr param override

---
 R/tool-overrides.R | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/R/tool-overrides.R b/R/tool-overrides.R
index 05569ea..ec1221b 100644
--- 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