## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(esgcalc)

## -----------------------------------------------------------------------------
pay_gap(20, 18)
pay_gap(0, 18)$status
tryCatch(pay_gap(Inf, 18), esg_error = function(e) e$code)

## -----------------------------------------------------------------------------
ctx <- esg_context(profile_id = "eu-taxonomy-2026-v1", as_of = "2026-09-30")
criterion <- check_quantitative_criterion("building_new_ped",
  list(ped = 90, nzeb_threshold = 100, unit = "kWh/m2/year"), context = ctx)
criterion$assessment
criterion$details$remaining_conditions

## ----company------------------------------------------------------------------
source(system.file("examples", "realistic_pipeline.R", package = "esgcalc"))
cases <- load_reference_data("synthetic_realistic_cases.json")$value$cases
company <- calculate_company(cases[[1]])
company$energy$value$renewable_fraction
company$kpis$turnover$value
company$rating$value
company$rating$details$coverage

## ----explanation--------------------------------------------------------------
explanation <- explain_rating(company$rating)
explanation$value$details$pillar_contributions
explanation$value$details$triggered

## ----trace--------------------------------------------------------------------
company$rating$function_id
company$rating$profile_id
company$rating$mode
company$rating$source_ids
substr(company$rating$input_hash, 1, 16)