data-raw/currency_types.R

In krose/entsoeapi: An R Wrapper for the European Network of Transmission System Operators for Electricity Application Programming Interface

# read raw tsv, trim the character columns and remove empty columns
currency_types <- fs::path("data-raw",
                           "currency_types",
                           ext = "tsv") |>
  data.table::fread(encoding = "UTF-8") |>
  purrr::modify_if(is.character, trimws, which = "both") |>
  purrr::discard(~is.na(.x) |> all())

# save the package data in the correct format
usethis::use_data(currency_types, overwrite = TRUE)