fix modelPaths in plpModel

OHDSI · Oct 17, 2024 · 3b540e5 · 3b540e5
1 parent 5e229c0
commit 3b540e5
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/R/ExternalValidatePlp.R b/R/ExternalValidatePlp.R
@@ -788,11 +788,12 @@ createDownloadTasks <- function(validationDesignList) {
     plpModelList <- design$plpModelList
     for (model in plpModelList) {
       if (is.character(model)) {
-        if (!is.null(modelCache[[model]])) {
-          model <- modelCache[[model]]
+        modelKey <- model
+        if (!is.null(modelCache[[modelKey]])) {
+          model <- modelCache[[modelKey]]
         } else {
-          model <- loadPlpModel(model)
-          modelCache[[model]] <- model
+          model <- loadPlpModel(modelKey)
+          modelCache[[modelKey]] <- model
         }
       } else {
         modelKey <- digest::digest(model)