R/get_raw_timber_specs.R

In iAM-AMR/sawmill: Process Queries from the CEDAR Database

get_raw_timber_specs <- function() {
  # READ: Raw Timber Specifications -------------------------------------------
  # The raw timber format (column names and data types) is specified in an
  # external file ("raw_timber_specs.csv"). This file is sparse; read with
  # column specifications to avoid guessing.

  # Column types for reading raw_timber_specs
  raw_timber_specs_col_types <- readr::cols(
    timber_col_name     = readr::col_character(),
    timber_col_required = readr::col_logical(),
    sawmill_col_name    = readr::col_character(),
    col_spec_csv        = readr::col_character(),
    col_spec_xlsx       = readr::col_character(),
    timber_obj_name     = readr::col_character(),
    timber_field_name   = readr::col_character(),
    timber_field_name_r = readr::col_character()
  )

  # Read raw_timber_specs
  raw_timber_specs <- readr::read_csv(
    file = system.file("raw_timber_specs.csv",
      package = "sawmill"
    ),
    col_types = raw_timber_specs_col_types
  )

  return(raw_timber_specs)
}