Return the nanonext socket invisibly (follow-up to #72) (#74)

shikokuchuo · web-flow · commit 4e60a967c6fe · 2025-09-24T15:21:06.000+01:00
diff --git a/NEWS.md b/NEWS.md
@@ -1,6 +1,6 @@
 # mcptools (development version)
 
-* `mcp_session()` now (invisibly) returns the nanonext socket used for communicating with the server.
+* `mcp_session()` now returns invisibly the nanonext socket used for communicating with the server.
 * `mcp_server()` gains logical argument `session_tools`, allowing users to opt-out of presenting R sessions tools to clients.
 
 # mcptools 0.1.1
diff --git a/R/server.R b/R/server.R
@@ -67,8 +67,9 @@
 #' * `mcp_server()` blocks the R process it's called in indefinitely and isn't
 #'   intended for interactive use.
 #' * `mcp_session()` makes the interactive R session it's called in available to
-#'   MCP servers. It returns the \pkg{nanonext} socket used for communicating
-#'   with the server. Call [close()] on the socket to stop the session.
+#'   MCP servers. It returns invisibly the \pkg{nanonext} socket used for
+#'   communicating with the server. Call [close()] on the socket to stop the
+#'   session.
 #'
 #' @seealso
 #' - The "R as an MCP server" vignette at
diff --git a/R/session.R b/R/session.R
@@ -25,7 +25,7 @@ mcp_session <- function() {
   the$session <- i
   schedule_handle_message_from_server()
 
-  the$session_socket
+  invisible(the$session_socket)
 }
 
 handle_message_from_server <- function(data) {
diff --git a/man/server.Rd b/man/server.Rd

Original file line number	Diff line number	Diff line change
`@@ -25,7 +25,7 @@ mcp_session <- function() {`
`25`	`25`	`the$session <- i`
`26`	`26`	`schedule_handle_message_from_server()`
`27`	`27`
`28`		`- the$session_socket`
	`28`	`+ invisible(the$session_socket)`
`29`	`29`	`}`
`30`	`30`
`31`	`31`	`handle_message_from_server <- function(data) {`