Redirect output into black hole

OpusData.R

@@ -13,7 +13,7 @@ file_path <- paste0(path, file_name)
 data <- read_opus_univ(file_path, 5)
 
 # Move the file to OPUS_old where it will remain temporarily in case of an error
-file.move(file_path, "OPUS_old/")
+file.move(file_path, "OPUS_old/", overwrite = TRUE)
 
 # Replace last "." with "_", add ".DPT"
 file_name <- paste0(sub(".([^.]*)$", "_\\1", file_name), ".DPT")

dirMonitor.sh

@@ -1,5 +1,5 @@
 #!/bin/bash
-inotifywait -m OPUS -e create -e moved_to |
+inotifywait -m -q OPUS -e create -e moved_to |
 	while read fpath action file; do
-		Rscript OpusData.R $fpath $file
+		Rscript OpusData.R $fpath $file >& /dev/null
  	done