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]