tests/testthat/r2dii.data/data-raw/ald_demo.R

In 2DegreesInvesting/r2dii.usethis: Automate Package And Project Setup

library(dplyr)
library(usethis)

source(file.path("data-raw", "utils.R"))

path <- file.path("data-raw", "ald_demo.csv")
ald_demo <- read_csv_(path)

ald_demo <- left_join(
  ald_demo, new_emission_factor_unit(),
  by = "sector"
)

ald_demo$year <- as.integer(ald_demo$year)

usethis::use_data(ald_demo, overwrite = TRUE)