Running examples in ‘r2dii.analysis-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: summarize_weighted_production
> ### Title: Summaries based on the weight of each loan per sector per year
> ### Aliases: summarize_weighted_production
> ###   summarize_weighted_percent_change
> 
> ### ** Examples
> 
> installed <- requireNamespace("r2dii.data", quietly = TRUE) &&
+   requireNamespace("r2dii.match", quietly = TRUE) &&
+   packageVersion("r2dii.match") >= "0.1.0"
> 
> if (installed) {
+   library(r2dii.data)
+   library(r2dii.match)
+ 
+   loanbook <- head(loanbook_demo, 150)
+   abcd <- head(abcd_demo, 100)
+   master <- loanbook %>%
+     match_name(abcd) %>%
+     prioritize() %>%
+     join_abcd_scenario(
+       abcd = abcd,
+       scenario = scenario_demo_2020,
+       region_isos = region_isos_demo
+     )
+ 
+   summarize_weighted_production(master)
+ 
+   summarize_weighted_production(master, use_credit_limit = TRUE)
+ 
+   summarize_weighted_percent_change(master)
+ 
+   summarize_weighted_percent_change(master, use_credit_limit = TRUE)
+ }
Error in `check_zero_initial_production()`:
! No `name_abcd` by `technology` can have initial `production` values of 0.
Backtrace:
     ▆
  1. ├─r2dii.analysis::summarize_weighted_percent_change(master)
  2. │ └─... %>% group_by(!!!dplyr::groups(data))
  3. ├─dplyr::group_by(., !!!dplyr::groups(data))
  4. ├─dplyr::summarize(., weighted_percent_change = mean(.data$weighted_loan_percent_change))
  5. ├─dplyr::group_by(...)
  6. ├─r2dii.analysis:::calculate_weighted_loan_metric(., "percent_change")
  7. │ └─r2dii.analysis:::check_crucial_names(data, crucial)
  8. │   ├─base::stopifnot(rlang::is_named(x))
  9. │   └─rlang::is_named(x)
 10. └─r2dii.analysis:::add_percent_change(.)
 11.   └─r2dii.analysis:::check_zero_initial_production(data)
 12.     └─rlang::abort(class = "zero_initial_production", "No `name_abcd` by `technology` can have initial `production` values of 0.")
Execution halted