data-raw/message_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
message_types <- fs::path("data-raw",
                          "message_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(message_types, overwrite = TRUE)