refactor

Author: kalashsinghal

NAMESPACE

@@ -9,7 +9,9 @@ importFrom(dplyr,distinct)
 importFrom(dplyr,filter)
 importFrom(dplyr,group_by)
 importFrom(dplyr,group_split)
+importFrom(dplyr,if_else)
 importFrom(dplyr,left_join)
+importFrom(dplyr,mutate)
 importFrom(dplyr,pull)
 importFrom(dplyr,select)
 importFrom(dplyr,summarise)

R/add_co2.R

@@ -37,6 +37,7 @@ add_co2 <- function(data, co2, jitter_amount = NULL) {
 
   product <- data_co2 |>
     unnest_product() |>
+    mutate(benchmark = if_else(is.na(.data$benchmark), "all", .data$benchmark)) |>
     split_summarize_range_by_benchmark() |>
     map(\(.x) jitter_range_by_benchmark(.x, amount = jitter_amount)) |>
     map(\(.x) join_to(.x, unnest_product(data_co2))) |>

R/tiltAddCO2-package.R

@@ -9,7 +9,9 @@
 #' @importFrom dplyr filter
 #' @importFrom dplyr group_by
 #' @importFrom dplyr group_split
+#' @importFrom dplyr if_else
 #' @importFrom dplyr left_join
+#' @importFrom dplyr mutate
 #' @importFrom dplyr pull
 #' @importFrom dplyr select
 #' @importFrom dplyr summarise
@@ -27,8 +29,8 @@
 #' @importFrom tibble tribble
 #' @importFrom tidyselect all_of
 #' @importFrom tidyselect matches
+#' @importFrom tiltIndicator example_data_factory
 #' @importFrom withr local_options
 #' @importFrom withr local_seed
-#' @importFrom tiltIndicator example_data_factory
 ## usethis namespace: end
 NULL