Fix: enable reconnection for managed terminals

R/profile.R

@@ -25,9 +25,7 @@ local({
 })
 
 if (requireNamespace("sess", quietly = TRUE)) {
-    sess::sess_app(
-        port = as.integer(Sys.getenv("SESS_PORT")),
-        token = Sys.getenv("SESS_TOKEN"),
+    sess::connect(
         use_rstudioapi = as.logical(Sys.getenv("SESS_RSTUDIOAPI", "TRUE")),
         use_httpgd = as.logical(Sys.getenv("SESS_USE_HTTPGD", "TRUE"))
     )

sess/DESCRIPTION

@@ -16,4 +16,4 @@ Imports:
     methods,
     rstudioapi,
     svglite
-RoxygenNote: 7.3.3
+Config/roxygen2/version: 8.0.0

sess/NAMESPACE

@@ -1,6 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+export(connect)
 export(notify_client)
 export(register_hooks)
 export(request_client)
-export(sess_app)

sess/R/server.R

@@ -7,7 +7,7 @@
 #'   be enabled? Defaults to TRUE.
 #' @param use_httpgd Logical. Should httpgd be used for plotting if available? Defaults to TRUE
 #' @export
-sess_app <- function(port = NULL, token = NULL, use_rstudioapi = TRUE, use_httpgd = TRUE) {
+connect <- function(port = NULL, token = NULL, use_rstudioapi = TRUE, use_httpgd = TRUE) {
   # Initialize state
   .sess_env$server <- NULL
   .sess_env$ws <- NULL
@@ -55,7 +55,7 @@ sess_app <- function(port = NULL, token = NULL, use_rstudioapi = TRUE, use_httpg
     cat(sprintf("\r%s\n\n%s", msg, prompt))
   }
 
-  connect <- function() {
+  do_connect <- function() {
     url <- sprintf("ws://127.0.0.1:%s/?token=%s", port, token)
     ws <- websocket::WebSocket$new(
       url,
@@ -152,7 +152,7 @@ sess_app <- function(port = NULL, token = NULL, use_rstudioapi = TRUE, use_httpg
             token <<- config$token
           }, error = function(e) NULL)
         }
-        connect()
+        do_connect()
       }, 5)
     })
 
@@ -164,7 +164,7 @@ sess_app <- function(port = NULL, token = NULL, use_rstudioapi = TRUE, use_httpg
   }
 
   # Connect to VS Code
-  connect()
+  do_connect()
 
   # Register runtime hooks
   if (is.na(use_rstudioapi)) use_rstudioapi <- TRUE

src/session.ts

@@ -1016,7 +1016,7 @@ export async function sessionRequest(server: SessionServer, data: Record<string,
 
 export async function connectToSession(): Promise<void> {
     const { port, token } = await getGlobalSessionServer();
-    const command = `sess::sess_app(port=${port}, token="${token}")`;
+    const command = `sess::connect(port=${port}, token="${token}")`;
     void vscode.env.clipboard.writeText(command);
     void vscode.window.showInformationMessage(`R command copied to clipboard: ${command}`);
 }