sess: Log client connection/disconnection to R console

randy3k · randy3k · commit fdd92af7e97c · 2026-03-12T21:19:31.000-07:00
diff --git a/sess/R/server.R b/sess/R/server.R
@@ -69,6 +69,7 @@ sess_app <- function(use_rstudioapi = TRUE, use_httpgd = TRUE) {
     onWSOpen = function(ws) {
       # Bind the active websocket to our environment
       .sess_env$ws <- ws
+      cat("[sess] Client connected\n")
 
       # Send the attach handshake immediately upon connection (JSON-RPC Notification)
       notify_client("attach", list(
@@ -99,6 +100,7 @@ sess_app <- function(use_rstudioapi = TRUE, use_httpgd = TRUE) {
 
       ws$onClose(function() {
         .sess_env$ws <- NULL
+        cat("[sess] Client disconnected\n")
       })
     }
   )

Original file line number	Diff line number	Diff line change
`@@ -69,6 +69,7 @@ sess_app <- function(use_rstudioapi = TRUE, use_httpgd = TRUE) {`
`69`	`69`	`onWSOpen = function(ws) {`
`70`	`70`	`# Bind the active websocket to our environment`
`71`	`71`	`.sess_env$ws <- ws`
	`72`	`+ cat("[sess] Client connected\n")`
`72`	`73`
`73`	`74`	`# Send the attach handshake immediately upon connection (JSON-RPC Notification)`
`74`	`75`	`notify_client("attach", list(`
`@@ -99,6 +100,7 @@ sess_app <- function(use_rstudioapi = TRUE, use_httpgd = TRUE) {`
`99`	`100`
`100`	`101`	`ws$onClose(function() {`
`101`	`102`	`.sess_env$ws <- NULL`
	`103`	`+ cat("[sess] Client disconnected\n")`
`102`	`104`	`})`
`103`	`105`	`}`
`104`	`106`	`)`