View source: R/office_emissions.R
office_emissions | R Documentation |
Computes office emissions either from a per-person average (when specify = FALSE
)
or from specified utilities via building_emissions()
(when specify = TRUE
),
plus optional homeworking emissions (Level 1 = "Homeworking").
office_emissions(
specify = FALSE,
office_num = 1,
WFH_num = 0,
WFH_hours = 0,
WFH_type = c("Office Equipment", "Heating"),
water_supply = 0,
water_trt = TRUE,
water_unit = c("cubic metres", "million litres"),
electricity_kWh = 0,
electricity_TD = TRUE,
electricity_WTT = TRUE,
heat_kWh = 0,
heat_TD = TRUE,
heat_WTT = TRUE,
units = c("kg", "tonnes"),
value_col = c("value", "value_2024"),
strict = TRUE
)
specify |
Logical. If |
office_num |
Number of individuals in the office (only used when |
WFH_num |
Number of people working from home. |
WFH_hours |
Hours worked from home per person.
If one of |
WFH_type |
Which homeworking components to include; any of
|
water_supply |
See |
water_trt |
See |
water_unit |
See |
electricity_kWh , electricity_TD , electricity_WTT |
See |
heat_kWh , heat_TD , heat_WTT |
See |
units |
Output units: |
value_col |
Which factor column to use in |
strict |
If |
Factors are assumed kg CO2e per unit (e.g., per person-hour for homeworking),
and the result is returned in requested units
.
Numeric total emissions in requested units
.
# 1) Use specified utilities (building_emissions) + homeworking
office_emissions(
specify = TRUE,
electricity_kWh = 200, heat_kWh = 100,
water_supply = 10, water_unit = "cubic metres",
WFH_num = 5, WFH_hours = 8, WFH_type = c("Office Equipment","Heating")
)
# 2) Use per-person average for 12 staff, with WFH equipment only
office_emissions(
specify = FALSE, office_num = 12,
WFH_num = 6, WFH_hours = 4, WFH_type = "Office Equipment",
units = "tonnes"
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.