paper_emissions: Paper emissions

In carbonr: Calculate Carbon-Equivalent Emissions

Paper emissions

Description

Computes embodied GHG emissions for paper using uk_gov_data rows with Level 2 = "Paper". Material-use factors come from ⁠Level 1 = "Material use", Column Text = material_production⁠. Waste factors come from ⁠Level 1 = "Waste disposal", Column Text = waste_disposal⁠. Factors are kg CO2e per tonne.

Usage

paper_emissions(
  use = stats::setNames(numeric(), character()),
  waste = TRUE,
  material_production = "Primary material production",
  waste_disposal = c("Closed-loop", "Combustion", "Composting", "Landfill"),
  units = c("kg", "tonnes"),
  value_col = c("value", "value_2024"),
  strict = TRUE
)

Arguments

use	Named numeric vector of paper quantities in tonnes. Names matched case/space/punctuation-insensitively to ⁠Level 3⁠ (drops a leading "Paper: " prefix and trailing parentheses). Canonical names: board, mixed, paper. Unknown names warn and are ignored.
waste	Logical. If TRUE, waste tonnages are the same as use. If FALSE, no waste is applied.
material_production	Either a single string applied to all paper types (e.g., "Primary material production" or "Closed-loop source"), or a named vector per paper type, e.g. c(board = "Closed-loop source", mixed = "Primary material production"). If you provide a per-material vector for a subset, unspecified types default to "Primary material production".
waste_disposal	One of "Closed-loop", "Combustion", "Composting", "Landfill".
units	Output units: "kg" (default) or "tonnes".
value_col	Which numeric column in uk_gov_data to use: "value" or "value_2024".
strict	If TRUE (default), error when any nonzero use/waste needs a factor that is absent in the table. If FALSE, treat missing factors as 0.

Value

Numeric total emissions in requested units.

Examples

# Closed-loop source for all paper types; landfill; waste = use
paper_emissions(
  use = c(board = 10, paper = 100),
  material_production = "Closed-loop source",
  waste_disposal = "Landfill",
  waste = TRUE
)

# Per-material: board closed-loop, mixed primary (default), no waste
paper_emissions(
  use = c(board = 5, mixed = 2),
  material_production = c(board = "closed loop"),
  waste = FALSE,
  value_col = "value_2024",
  units = "tonnes"
)

carbonr documentation built on Sept. 11, 2025, 9:11 a.m.