From 9cf5bf46de8d07ee51e18298811c631ce1003e53 Mon Sep 17 00:00:00 2001 From: Jackson Hoffart Date: Wed, 21 Feb 2024 13:44:03 +0100 Subject: [PATCH] plot_traj gains more specific check --- R/plot_trajectory.R | 2 ++ 1 file changed, 2 insertions(+) diff --git a/R/plot_trajectory.R b/R/plot_trajectory.R index 2a04b63e..c43a745e 100644 --- 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)