Fix: Reorder conditions, since it is possible that sumErrFile exists,…

… but no reporting mif.
pik-piam · Mar 8, 2024 · 1cd4462 · 1cd4462
1 parent e1025b3
commit 1cd4462
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/getRunStatus.R b/R/getRunStatus.R
@@ -128,12 +128,12 @@ getRunStatus <- function(mydir = dir(), sort = "nf", user = NULL) {
       } else {
         miffile    <- paste0(ii, "/REMIND_generic_", cfg[["title"]], ".mif")
         sumErrFile <- paste0(ii, "/REMIND_generic_", cfg[["title"]], "_summation_errors.csv")
-        if (file.exists(sumErrFile)){ 
+        if (! file.exists(miffile)){ 
+          out[i, "Mif"] <- "no"
+        } else if (file.exists(sumErrFile)){
           out[i, "Mif"] <- "sumErr"
-        } else if (file.exists(miffile)){
-          out[i, "Mif"] <- "yes"
         } else {
-          out[i, "Mif"] <- "no"
+          out[i, "Mif"] <- "yes"
         }
       }
     }