update epiparamter_db to use cached DB

epiverse-trace · Nov 22, 2024 · 450afce · 450afce
1 parent 6b4d8a3
commit 450afce
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/R/epiparameter_db.R b/R/epiparameter_db.R
@@ -129,7 +129,13 @@ epiparameter_db <- function(disease = "all",
     )
   }
 
-  multi_epiparameter <- .read_epiparameter_db()
+  cache_db <- cache_env$cache$get("multi_epiparameter")
+  if (inherits(cache_db, "multi_epiparameter")) {
+    multi_epiparameter <- cache_env$cache$get("multi_epiparameter")
+  } else {
+    multi_epiparameter <- .read_epiparameter_db()
+  }
+
   attrib <- attributes(multi_epiparameter)
 
   multi_epiparameter <- .filter_epiparameter_db(