diff --git a/modules/assim.batch/R/pda.utils.R b/modules/assim.batch/R/pda.utils.R index 7e0dcaa58bc..cce72507e14 100644 --- a/modules/assim.batch/R/pda.utils.R +++ b/modules/assim.batch/R/pda.utils.R @@ -262,11 +262,13 @@ pda.load.priors <- function(settings, con, extension.check = FALSE) { prior.out <- list() prior.paths <- list() + tmp_hostname <- ifelse(!PEcAn.remote::is.localhost(settings$host), PEcAn.utils::fqdn(), settings$host$name) + # now that you filled priorids load the PDA prior objects # if files becomes NULL try loading objects from workflow oft folders for (i in seq_along(settings$pfts)) { - files <- dbfile.check("Posterior", priorids[[i]], con, settings$host$name, return.all = TRUE) + files <- dbfile.check("Posterior", priorids[[i]], con, tmp_hostname, return.all = TRUE) pid <- grep("post.distns.*Rdata", files$file_name) ## is there a posterior file?