From ecb998ba8d26036a4238b719e82b966c0f0d1dc4 Mon Sep 17 00:00:00 2001
From: Leonardo Schwarz <leonardo.schwarz@fgcz.ethz.ch>
Date: Tue, 22 Oct 2024 12:16:45 +0200
Subject: [PATCH] only delete dll files

---
 R/dotNetAssembly.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/dotNetAssembly.R b/R/dotNetAssembly.R
index 3dc94c6..a276c08 100644
--- a/R/dotNetAssembly.R
+++ b/R/dotNetAssembly.R
@@ -191,11 +191,11 @@ installRawFileReaderDLLs <-
     rawfileReaderDLLsPath <- rawrrAssemblyPath()
     
     if (isTRUE(dir.exists(rawfileReaderDLLsPath))){
-      msg <- sprintf("removing files in directory '%s'", rawfileReaderDLLsPath)
+      msg <- sprintf("removing DLL files in directory '%s'", rawfileReaderDLLsPath)
       message(msg)
       
       file.remove(file.path(rawrrAssemblyPath(),
-                            list.files(rawrrAssemblyPath())))
+                            list.files(rawrrAssemblyPath(), pattern="\\.dll$")))
     }
     
     if (isFALSE(dir.exists(rawfileReaderDLLsPath))){