Suppress a warning about a path "(embedding)"

1 files changed, 4 insertions, 2 deletions

diff --git a/R/mkinmod.R b/R/mkinmod.R
index 2f930adb..b3a1a87b 100644
--- a/R/mkinmod.R
+++ b/R/mkinmod.R
@@ -466,8 +466,10 @@ mkinmod <- function(..., use_of_ff = "max", name = NULL,
     if (!inherits(model$cf, "try-error")) {
       if (!quiet) message("Temporary DLL for differentials generated and loaded")
       if (!is.null(dll_dir)) {
-        model$dll_info <- inline::moveDLL(model$cf, name, dll_dir,
-          unload = unload, overwrite = overwrite, verbose = !quiet)
+        # We suppress warnings, as we get a warning about a path "(embedding)" 
+        # under Windows, at least when using RStudio
+        suppressWarnings(inline::moveDLL(model$cf, name, dll_dir,
+          unload = unload, overwrite = overwrite, verbose = !quiet))
       }
       model$dll_info <- inline::getDynLib(model$cf)
     }