refactor: Close connection before reading lines

Signed-off-by: jvfe <[email protected]>
beiko-lab · May 9, 2024 · aad9413 · aad9413
1 parent f5f8ea0
commit aad9413
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bin/ParallelEvolCCM.R b/bin/ParallelEvolCCM.R
@@ -472,8 +472,8 @@ for (temp_file in temp_files) {
 }
 
 # Read the lines from the input file
-lines <- readLines(outputFilegz)[-1]
 close(outputFilegz)
+lines <- readLines(outputFile)[-1]
 X2file = paste(outputFile,"X2",sep = ".")
 Pfile = paste(outputFile,"pvals",sep = ".")