From a2ff22ec1ca177bf9fe60f8c9272177957d1881e Mon Sep 17 00:00:00 2001
From: Monika Furdyna <monika.furdyna@gmail.com>
Date: Fri, 16 Jun 2023 13:45:16 +0200
Subject: [PATCH] Remove unused function (#7)

---
 R/create_interactive_report.R | 18 ------------------
 1 file changed, 18 deletions(-)

diff --git a/R/create_interactive_report.R b/R/create_interactive_report.R
index c375975..8a42bf3 100644
--- a/R/create_interactive_report.R
+++ b/R/create_interactive_report.R
@@ -622,24 +622,6 @@ create_interactive_report <-
   }
 
 
-
-green_brown <-
-  function(Tech,
-           GreenTechs = c("RenewablesCap", "HydroCap", "NuclearCap", "Hybrid", "Electric", "FuelCell", "Hybrid_HDV", "Electric_HDV", "FuelCell_HDV", "Ac-Electric Arc Furnace", "Dc-Electric Arc Furnace")
-  ) {
-    if (length(Tech) == 0) { return(character(0)) }
-    stopifnot(length(Tech) == 1L)
-
-    if (Tech %in% GreenTechs) {
-      TechIs <- "green"
-    } else {
-      TechIs <- "brown"
-    }
-
-    return(TechIs)
-  }
-
-
 select_exec_summary_template <-
   function(
     project_report_name = NULL,