data-raw/export_med.R

In HF-Research/HTData: Provides data for HjerteTal

## code to prepare `export_med` dataset goes here
x <- data.table::fread("inst/extdata/export_med.txt", encoding = "UTF-8")
# usethis::use_data(x, overwrite = TRUE)

y <- data.table::fread("inst/extdata/export_med_2023.txt", encoding = "UTF-8")
y=y[year %in% c('2019', '2020','2021', '2022', '2023')]
# usethis::use_data(y, overwrite = TRUE)

export_med <- rbind(x, y)
usethis::use_data(export_med, overwrite = TRUE)