Merge pull request #137 from posit-dev/feat/client-dev-mode

feat: enable client-side dev mode features in R
posit-dev · May 30, 2024 · f4eb380 · f4eb380
2 parents 70f4b47 + 47cc367
commit f4eb380
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/src/Components/Viewer.tsx b/src/Components/Viewer.tsx
@@ -187,8 +187,8 @@ export function Viewer({
             env: { files, appDir },
             captureStreams: false,
           });
-          await webRProxy.runRAsync(".start_app(appName, appDir)", {
-            env: { appName, appDir },
+          await webRProxy.runRAsync(".start_app(appName, appDir, devMode)", {
+            env: { appName, appDir, devMode },
             captureConditions: false,
             captureStreams: false,
           });

diff --git a/src/hooks/useWebR.tsx b/src/hooks/useWebR.tsx
@@ -295,7 +295,7 @@ webr::shim_install()
   lapply(rownames(installed.packages()), function(p) { .webr_pkg_cache[[p]] <<- TRUE })
 }
 
-.start_app <- function(appName, appDir) {
+.start_app <- function(appName, appDir, devMode = FALSE) {
   # Mount VFS images provided in Shinylive app assets
   .mount_vfs_images()
 
@@ -312,6 +312,11 @@ webr::shim_install()
     }
   })
 
+  if (isTRUE(devMode)) {
+    # Enable client-side dev mode features, namely the error console
+    options(shiny.client_devmode = TRUE)
+  }
+  
   app <- .shiny_to_httpuv(appDir)
   assign(appName, app, envir = .shiny_app_registry)
   invisible(0)