suppress unneccassary warning while deleting temporary files.

lerch-a · Dec 18, 2024 · 0a44908 · 0a44908
1 parent 98f6e96
commit 0a44908
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/callHaplotypeDADA2.R b/R/callHaplotypeDADA2.R
@@ -127,8 +127,8 @@ createFinalHaplotypTableDADA2 <- function(outputDir, sampleTable, markerTable, r
   })
   names(resultsLst) <- selMarker
 
-  file.remove(newFile) # list.files(filtDir,"fastq.gz"))
-  file.remove(filtDir)
+  suppressWarnings(file.remove(newFile)) # list.files(filtDir,"fastq.gz"))
+  suppressWarnings(file.remove(filtDir))
   haplotyopList <- writeHaplotypList(resultsLst)
 
   ## check replicates