fix shellViewPdf on windows

rstudio · Jan 16, 2013 · ff7f7d7 · ff7f7d7
1 parent 7d437bb
commit ff7f7d7
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/cpp/r/R/Tools.R b/src/cpp/r/R/Tools.R
@@ -229,11 +229,12 @@ assign( envir = .rs.Env, ".rs.setVar", function(name, var)
 #  - linux: getOption("pdfviewer")
 .rs.addFunction( "shellViewPdf", function(path)
 {
+   require(utils)
    sysName <- Sys.info()[['sysname']]
 
    if (identical(sysName, "Windows"))
    {
-     utils:::shell.exec(diagPath)
+     shell.exec(path)
    }
    else
    {