Intensive green roof

.Rbuildignore

@@ -9,3 +9,4 @@
 ^.*\.Rproj$
 ^\.Rproj\.user$
 ^data-raw$
+^\.idea$

R/generate_rabimo_area.R

@@ -4,11 +4,13 @@
 #'
 #' All default values can be overridden by entering new key-value pairs.
 #'
-#' @param code identifier of area
+#' @param code vector of unique area identifiers. If NULL, default codes are 
+#'   created: area_1, area_2, ...
+#' @param n number of areas to be created. Default: length of code vector (1 if code is NULL)
 #' @param \dots key = value pairs overriding the default column values
 #' @param column_info data frame as returned by \code{\link{read_column_info}}
 #' @export
-generate_rabimo_area <- function(code, ..., column_info = read_column_info())
+generate_rabimo_area <- function(code = NULL, ..., column_info = read_column_info())
 {
   #kwb.utils::assignPackageObjects("kwb.rabimo");column_info=read_column_info();`%>%`<-magrittr::`%>%`
 
@@ -39,7 +41,12 @@ generate_rabimo_area <- function(code, ..., column_info = read_column_info())
 
   result <- do.call(data.frame, args)
 
-  # Add column "code"
-  result["code"] <- code
+  # Overwrite column "code"
+  result["code"] <- if (is.null(code)) {
+    paste0("area_", seq_len(nrow(result)))
+  } else {
+    code
+  }
+
   result
 }

R/reconfigure.R

@@ -0,0 +1,63 @@
+if (FALSE)
+{
+  config_2020 <- kwb.rabimo::rabimo_inputs_2020$config
+  config_2025 <- kwb.rabimo::rabimo_inputs_2025$config
+
+  str(config_2020)
+  str(kwb.rabimo:::reconfigure(config = config_2020))
+
+  str(config_2025)
+  str(kwb.rabimo:::reconfigure(config = config_2025))
+
+  config$green_roof <- list(
+    list(roof_fraction_column = "green_roof", bagrov_value = 0.5)
+  )
+
+  config$green_roof <- list(
+    list(roof_fraction_column = "green_roof_ext", bagrov_value = 0.5),
+    list(roof_fraction_column = "green_roof_int", bagrov_value = 0.5)
+  )
+}
+
+# reconfigure ------------------------------------------------------------------
+reconfigure <- function(config)
+{
+  #config <- config_2020
+
+  # Provide vector of Bagrov values
+  bagrov_values <- config$bagrov_values
+
+  # Remove element "green_roof" from vector of Bagrov values
+  config$bagrov_values <- bagrov_values[names(bagrov_values) != "green_roof"]
+
+  # Provide evaporation factor for infiltration method
+  evaporation_factor <- config$swale[["swale_evaporation_factor"]]
+
+  # Remove config$swale
+  config$swale <- NULL
+
+  config$measures <- list(
+    green_roof = list(
+      list(
+        roof_fraction_column = "green_roof", 
+        bagrov_value = bagrov_values[["green_roof"]]
+      )
+    ),
+    infiltration = list(
+      list(
+        area_fraction_column = "to_swale",
+        evaporation_factor = evaporation_factor
+        #, overflow_rate = 0 # not yet supported!
+      )
+      # , list(
+      #   name = "rigole",
+      #   area_fraction_column = "to_inf_rigole",
+      #   evaporation_factor = 0,
+      #   overflow_rate = 0
+      #   #, rigole_specific_factor = 1
+      # )
+    )
+  )
+
+  config
+}