Use forward slashes for the tempfile; should fix #12

wch · Mar 3, 2016 · 64f5275 · 64f5275
1 parent dfa75d3
commit 64f5275
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/appshot.R b/R/appshot.R
@@ -32,7 +32,7 @@ appshot.shiny.appobj <- function(app, file = "webshot.png", ...,
 #' @export
 appshot.character <- function(app, file = "webshot.png", ...,
                               port = getOption("shiny.port"), envvars = NULL) {
-  pidfile <- tempfile("pid")
+  pidfile <- normalizePath(tempfile("pid"), winslash = '/', mustWork = FALSE)
   on.exit(unlink(pidfile))
   port <- available_port(port)
   cmd <- "cat(Sys.getpid(), file='%s'); shiny::runApp('%s', port=%d, display.mode='normal')"