From 2b8b259f8edc902e49f563925c7a75831f533932 Mon Sep 17 00:00:00 2001 From: Jackson Hoffart Date: Wed, 19 Jul 2023 13:39:21 +0200 Subject: [PATCH] fix typo --- R/summarize_weighted_production.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/summarize_weighted_production.R b/R/summarize_weighted_production.R index 32d095ee..b0a5cc82 100644 --- a/R/summarize_weighted_production.R +++ b/R/summarize_weighted_production.R @@ -273,8 +273,8 @@ add_percent_change <- function(data) { first(.data$sector_production) * 100 ) %>% mutate(percent_change = dplyr::case_when( - increasing_percent_change == "increasing" ~ increasing_percent_change, - increasing_percent_change == "decreasing" ~ decreasing_percent_change + increasing_or_decreasing == "increasing" ~ increasing_percent_change, + increasing_or_decreasing == "decreasing" ~ decreasing_percent_change )) %>% select(one_of(c(names(data), "percent_change"))) %>% ungroup()