proper function name

InsightRX · Jun 12, 2024 · bfc46bd · bfc46bd
1 parent 26956f0
commit bfc46bd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/new_ode_model.R b/R/new_ode_model.R
@@ -459,14 +459,14 @@ new_ode_model <- function (model = NULL,
           "--with-keep.source",
           "--pkglock",
           "--no-staged-install",
-          shQuotes(normalizePath(file.path(folder, package)))
+          shQuote(normalizePath(file.path(folder, package)))
         )
 
         system2(cmd, args, stdout = quiet, stderr = quiet)
 
       } else {
         # Run R CMD BUILD to zip file
-        args <- c("CMD", "build", shQuotes(normalizePath(file.path(folder, package))))
+        args <- c("CMD", "build", shQuote(normalizePath(file.path(folder, package))))
         system2(cmd, args, stdout = quiet, stderr = quiet)
         pkg_file <- paste0(package, "_", version, ".tar.gz")
         if(file.exists(pkg_file)) {