data-raw/icd10-raw.R

In thorj/ICD10ICE: ICD10 dataset with Icelandic and English descriptions

library(tidyverse)
library(readxl)
library(stringr)

raw <- read_excel("data-raw/icd10-raw.xls", sheet = 2)
icd10 <- raw[-c(4:8)]
colnames(icd10) = c('kodi', 'isl', 'en')

icd10 = icd10 %>%
  filter(!kodi %in% kodi[str_detect(kodi, '^\\(')])

write_csv(icd10_clean, 'data-raw/icd10.csv')
devtools::use_data(icd10, overwrite = TRUE, compress = 'xz')