Fixed sink() usage

ocbe-uio · Sep 11, 2023 · 2b75657 · 2b75657
1 parent 70ec460
commit 2b75657
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/R/writeMixtureInfo.R b/R/writeMixtureInfo.R
@@ -26,8 +26,9 @@ writeMixtureInfo <- function(
     fid <- load(outPutFile)
   } else {
     fid <- -1
-    # TODO: replace sink with option that will record input and output
-    sink("baps4_output.baps", split = TRUE) # save in text anyway.
+    outPutFile <- file.path(tempdir(), "baps4_output.baps")
+    message("Output saved to", outPutFile)
+    sink(outPutFile, split = TRUE) # save in text anyway.
   }
 
   dispLine()
@@ -331,5 +332,9 @@ writeMixtureInfo <- function(
       }
     }
   }
+  # Closing sink(s)
+  while (sink.number() > 0L) {
+    sink()
+  }
   return(changesInLogml)
 }