From eeef9df4d0dbd3ab937f04450ae3068bb761975a Mon Sep 17 00:00:00 2001 From: Ben Young Date: Sun, 25 Feb 2024 21:28:51 -0500 Subject: [PATCH] turn back on colors for Used and Other --- R/VisualizationFunctions.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/VisualizationFunctions.R b/R/VisualizationFunctions.R index 3d0a29a0..7a2df283 100644 --- a/R/VisualizationFunctions.R +++ b/R/VisualizationFunctions.R @@ -339,8 +339,8 @@ getBEASectorColorMapping <- function(model) { ColorLabelMapping$color <- rownames(ColorLabelMapping) # Add Households, Used and Other # ColorLabelMapping["#FFE119", ] <- c("Households", "F010", "#FFE119") # yellow - # ColorLabelMapping["#42D4F4", ] <- c("Used", "Used", "#42D4F4") # cyan (bright blue) - # ColorLabelMapping["#469990", ] <- c("Other", "Other", "#469990") # teal + ColorLabelMapping["#42D4F4", ] <- c("Used", "Used", "#42D4F4") # cyan (bright blue) + ColorLabelMapping["#469990", ] <- c("Other", "Other", "#469990") # teal # Prepare BEA Sector-modelIOLevel mapping mapping <- unique(model$crosswalk[, c("BEA_Sector", "USEEIO")]) colnames(mapping) <- c("Sector", paste0(model$specs$BaseIOLevel, "Code"))