max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Fixed sink() usage

Browse source
This commit is contained in:
Waldir Leoncio 2023-09-11 13:14:08 +02:00
parent 70ec460106
commit 2b756576ac
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
R/writeMixtureInfo.R
View file

@ -26,8 +26,9 @@ writeMixtureInfo <- function(
fid <- load(outPutFile) fid <- load(outPutFile)
} else { } else {
fid <- -1 fid <- -1
# TODO: replace sink with option that will record input and output outPutFile <- file.path(tempdir(), "baps4_output.baps")
sink("baps4_output.baps", split = TRUE) # save in text anyway. message("Output saved to", outPutFile)
sink(outPutFile, split = TRUE) # save in text anyway.
} }
dispLine() dispLine()
@ -331,5 +332,9 @@ writeMixtureInfo <- function(
} }
} }
} }
# Closing sink(s)
while (sink.number() > 0L) {
sink()
}
return(changesInLogml) return(changesInLogml)
} }