only call remove.config if it exists

PecanProject · Sep 9, 2014 · 6d19ad1 · 6d19ad1
1 parent 8a46fe1
commit 6d19ad1
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/utils/R/run.write.configs.R b/utils/R/run.write.configs.R
@@ -59,7 +59,10 @@ run.write.configs <- function(settings, write = TRUE) {
   trait.samples <- sa.samples <- ensemble.samples <- env.samples <- runs.samples <- list()
 
   ## Prepare for model output.  Cleanup any old config files (if exists)
-  do.call(paste("remove.config", model, sep="."), args = list(settings$rundir, settings))
+  my.remove.config <- paste0("remove.config.",model)
+  if(exists(my.remove.config)) {
+    do.call(my.remove.config, args = list(settings$rundir, settings))
+  }
 
   ## Load PFT priors and posteriors
   for (i in seq(pft.names)){