query files from localhost

benda1997 · Sep 18, 2017 · d3e8ac9 · d3e8ac9
1 parent 2ffb64e
commit d3e8ac9
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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?