PR1706 follow-ups (#1716)

* fix(plot): avoid leaking plot_backend into the global environment

profile.R is sourced as the user's R_PROFILE_USER, so the top-level
plot_backend assignment created a stray variable in the user's global
environment that persisted after startup (reported by @Fred-Wu).

Wrap the sess::connect() setup in local() so the temporary plot_backend
binding stays scoped, matching the pattern used by the .Rprofile block
above it.

* feat(plot): warn when a requested plot backend is unavailable

When r.plot.backend explicitly selects jgd or httpgd (or the legacy
r.plot.useHttpgd is true) but the package is not installed, register_hooks
silently fell back to the standard viewer. The standard viewer has no
plot-cycling UI, so users saw a degraded experience with no explanation
(several reports on #1706).

Emit a warning from register_hooks naming the requested backend and the
remedy, but only when a specific backend was explicitly requested. The
auto mode (use_jgd && use_httpgd) still degrades silently by design.

Author: grantmcdermott

R/profile.R

@@ -25,10 +25,12 @@ local({
 })
 
 if (requireNamespace("sess", quietly = TRUE)) {
-    plot_backend <- Sys.getenv("SESS_PLOT_BACKEND", "auto")
-    sess::connect(
-        use_rstudioapi = as.logical(Sys.getenv("SESS_RSTUDIOAPI", "TRUE")),
-        use_httpgd = (plot_backend %in% c("auto", "httpgd")),
-        use_jgd = (plot_backend %in% c("auto", "jgd"))
-    )
+    local({
+        plot_backend <- Sys.getenv("SESS_PLOT_BACKEND", "auto")
+        sess::connect(
+            use_rstudioapi = as.logical(Sys.getenv("SESS_RSTUDIOAPI", "TRUE")),
+            use_httpgd = (plot_backend %in% c("auto", "httpgd")),
+            use_jgd = (plot_backend %in% c("auto", "jgd"))
+        )
+    })
 }

sess/R/hooks.R

@@ -162,6 +162,26 @@ register_hooks <- function(use_rstudioapi = TRUE, use_httpgd = TRUE, use_jgd = F
       notify_client("httpgd", list(url = httpgd::hgd_url()))
     })
   } else {
+    # If a specific interactive backend was explicitly requested but is
+    # unavailable, warn before silently degrading to the standard viewer.
+    # (use_jgd && use_httpgd means "auto", which is meant to degrade quietly.)
+    if (xor(use_jgd, use_httpgd)) {
+      if (use_jgd && !requireNamespace("jgd", quietly = TRUE)) {
+        warning("[sess] Plot backend \"jgd\" was requested but the jgd package ",
+                "is not installed. Falling back to the standard plot viewer. ",
+                "Install jgd, or change the r.plot.backend setting.", call. = FALSE)
+      } else if (use_jgd) {
+        warning("[sess] Plot backend \"jgd\" was requested but no renderer ",
+                "connection is available. Falling back to the standard plot ",
+                "viewer.", call. = FALSE)
+      } else if (use_httpgd) {
+        warning("[sess] Plot backend \"httpgd\" was requested but the httpgd ",
+                "package is not installed. Falling back to the standard plot ",
+                "viewer. Install httpgd, or change the r.plot.backend setting.",
+                call. = FALSE)
+      }
+    }
+
     # Default to static plot capturing (Re-implementation based on legacy plot handler)
     plot_file <- .sess_env$latest_plot_path
     file.create(plot_file, showWarnings = FALSE)