fix: URL for running static server needs to escape characters on Wind…

…ows (#99) Fixes #82
posit-dev · Jul 1, 2024 · f6099fe · f6099fe
1 parent 71a540e
commit f6099fe
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()