data-raw/fns/calculate.R

In ready4-dev/bimp: Undertake Health Economic Budget Impact Analysis.

calculate_expenditure <- function(resources_tb,
                                  incld_areas_chr = NA_character_,
                                  area_var_nm_1L_chr = "Recipient_STE_chr",
                                  n_rescs__var_nm_1L_chr = "Unit_Qty_dbl",
                                  unit_cost_var_nm_1L_chr = "Unit_Cost_Dollars_dbl"){
  if(!is.na(incld_areas_chr[1])){
    resources_tb <- resources_tb %>%
      dplyr::filter(!!rlang::sym(area_var_nm_1L_chr) %in% incld_areas_chr)
  }
  expenditure_dbl <- resources_tb %>% dplyr::pull(!!rlang::sym(n_rescs__var_nm_1L_chr)) * resources_tb %>% dplyr::pull(!!rlang::sym(unit_cost_var_nm_1L_chr))
  expenditure_1L_dbl <- sum(expenditure_dbl)
  return(expenditure_1L_dbl)
}