call normalize path before shell.exec on windows (unc path compatabil…

…ity)
rstudio · Feb 17, 2012 · 2796d02 · 2796d02
1 parent 832fa6e
commit 2796d02
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/cpp/r/R/Tools.R b/src/cpp/r/R/Tools.R
@@ -162,7 +162,10 @@ assign( envir = .rs.Env, ".rs.setVar", function(name, var)
 .rs.addFunction( "shellViewPdf", function(path)
 {
    if(.Platform$OS.type == "windows")
-      shell.exec(path)
+   {
+      require(utils, quietly=TRUE)
+      shell.exec(normalizePath(path))
+   }
    else if (identical(substr(.Platform$pkgType, 1L, 10L), "mac.binary"))
 	  system(paste("open", "-a", "Preview", shQuote(path)), wait = FALSE)
    else