URL for running static server needs to escape characters on Windows

Fixes #82
posit-dev · Jul 1, 2024 · 7d51c1a · 7d51c1a
1 parent 49eebff
commit 7d51c1a
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/export.R b/R/export.R
@@ -196,9 +196,12 @@ export <- function(
     template_params = template_params
   )
 
+  # Escape backslashes in destdir because Windows
+  destdir_esc <- gsub("\\\\", "\\\\\\\\", destdir)
+
   verbose_print(
     "\nRun the following in an R session to serve the app:\n",
-    "  httpuv::runStaticServer(\"", destdir, "\")\n"
+    "  httpuv::runStaticServer(\"", destdir_esc, "\")\n"
   )
 
   invisible()