plot_traj gains more specific check

RMI-PACTA · Feb 21, 2024 · 9cf5bf4 · 9cf5bf4
1 parent ef9f8ba
commit 9cf5bf4
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/plot_trajectory.R b/R/plot_trajectory.R
@@ -219,6 +219,8 @@ start_value_portfolio <- function(data) {
 
 check_plot_trajectory <- function(data, env) {
   stopifnot(is.data.frame(data))
+  crucial <- c(common_crucial_market_share_columns(), "label")
+  hint_if_missing_names(abort_if_missing_names(data, crucial), "market_share")
   abort_if_has_zero_rows(data, env = env)
   enforce_single_value <- c("sector", "technology", "region", "scenario_source")
   abort_if_multiple(data, enforce_single_value, env = env)