try to fix windows build error

Yunuuuu · Nov 5, 2023 · 5f2ee46 · 5f2ee46
1 parent b221975
commit 5f2ee46
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/fda_drugs.R b/R/fda_drugs.R
@@ -54,7 +54,10 @@ fda_drugs_file <- function(dir = faers_cache_dir("fdadrugs")) {
     if (isFALSE(file)) {
         file <- fda_drugs_download(dir = dir)
     } else {
-        date <- as.Date(str_extract(file, "[\\d-]+"))
+        date <- as.Date(
+            str_extract(basename(file), "\\d+-\\d+-\\d+"),
+            format = "%Y-%m-%d"
+        )
         if (length(file) > 1L) {
             i <- order(date, decreasing = TRUE)[1L]
             file <- file[i]