Add options to download 2017, and 2018 AHRQ lists fixes jackwasey#142

overmar · May 12, 2019 · 5855d14 · 5855d14
1 parent 08cd232
commit 5855d14
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/R/parse-comorbid.R b/R/parse-comorbid.R
@@ -45,10 +45,13 @@ icd9_fetch_ahrq_sas <- function() {
 }
 
 icd10_fetch_ahrq_sas <- function(ver = "2016") {
+  if (!ver %in% c("2016","2017","2018")) {
+    stop(ver," not currently available")
+  }
   .download_to_data_raw(
-    url = paste0(.ahrq_url_base, "comorbidityicd10/comformat_icd10cm_2016.txt"),
-    file_name = .get_versioned_raw_file_name("ahrq-comformat_icd10cm_2016.txt",
-      ver = "2016"
+    url = paste0(.ahrq_url_base, "comorbidityicd10/comformat_icd10cm_",ver,".txt"),
+    file_name = .get_versioned_raw_file_name(paste0("ahrq-comformat_icd10cm_",ver,".txt"),
+      ver = ver
     )
   )
 }