error fix

microsoft · Mar 4, 2024 · d21c6bb · d21c6bb
1 parent 379d0ba
commit d21c6bb
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/hierarchy.R b/R/hierarchy.R
@@ -165,11 +165,12 @@ prep_hierarchical_data <- function(input_data,
             by = c("Combo", "Date")
           )
       } else if (value_level == "All") {
+
         bottom_level_temp_tbl <- input_data_adj %>%
           dplyr::select(Combo, Date, tidyselect::all_of(regressor_var)) %>%
           tidyr::pivot_wider(
             names_from = Combo,
-            values_from = tidyselect::all_of(regressor_var)
+            values_from = as.character(regressor_var)
           ) %>%
           dplyr::mutate_if(is.numeric, list(~ replace(., is.na(.), 0))) %>%
           base::suppressWarnings()