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

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

library(usethis)

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

# Source: https://github.com/2DegreesInvesting/r2dii.dataraw/pull/4
path <- file.path("data-raw", "loanbook_demo.csv")
loanbook_demo <- read_csv_(path)

loanbook_demo$loan_size_outstanding <- as.double(
  loanbook_demo$loan_size_outstanding
)

usethis::use_data(loanbook_demo, overwrite = TRUE)