added the normalization

muschellij2 · May 28, 2019 · 4a68369 · 4a68369
1 parent f369685
commit 4a68369
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/R/robex.R b/R/robex.R
@@ -41,9 +41,10 @@ robex = function(
   xinfile = infile
   infile = shQuote(infile)
   xoutfile = outfile
-  outfile = file.path(
-    tools::file_path_as_absolute(dirname(outfile)),
-    basename(outfile))
+  outfile = path.expand(outfile)
+  outfile = normalizePath(outfile, "/")
+  outfile = file.path(normalizePath(dirname(outfile), "/"),
+                      basename(outfile))
   if (.Platform$OS.type == "windows") {
     outfile = gsub("\\", "/", outfile, fixed = TRUE)
     outfile = gsub("/+", "/", outfile)