Return the nanonext socket from mcp_session()

NEWS.md

@@ -1,13 +1,14 @@
 # mcptools (development version)
 
-`mcp_server()` gains logical argument `session_tools`, allowing users to opt-out of presenting R sessions tools to clients.
+* `mcp_session()` now (invisibly) returns 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
 
-Addressed an issue in tests on `r-devel-linux-x86_64-fedora-clang`.
+* Addressed an issue in tests on `r-devel-linux-x86_64-fedora-clang`.
 
 # mcptools 0.1.0
 
-Initial CRAN submission.
+* Initial CRAN submission.
 
 Before the initial release of the package, mcptools was called acquaint and supplied a default set of tools from btw, currently a GitHub-only package, when R was used as an MCP server. The direction of the dependency has been reversed; to use the same functionality from before, transition `acquaint::mcp_server()` to `btw::btw_mcp_server()` and `acquaint::mcp_session()` to `btw::btw_mcp_session()`.

R/server.R

@@ -61,12 +61,14 @@
 #'   `mcp_session()`. Defaults to `TRUE`.
 #'
 #' @returns
-#' `mcp_server()` and `mcp_session()` are both called primarily for side-effects.
+#' `mcp_server()` and `mcp_session()` are both called primarily for their
+#'  side-effects.
 #'
 #' * `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 a promise via [promises::promise()].
+#'   MCP servers. It returns 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

R/session.R

@@ -23,8 +23,9 @@ mcp_session <- function() {
     i <- i + 1L
   }
   the$session <- i
-
   schedule_handle_message_from_server()
+
+  the$session_socket
 }
 
 handle_message_from_server <- function(data) {

pkgdown/favicon/site.webmanifest

@@ -0,0 +1,21 @@
+{
+  "name": "",
+  "short_name": "",
+  "icons": [
+    {
+      "src": "/web-app-manifest-192x192.png",
+      "sizes": "192x192",
+      "type": "image/png",
+      "purpose": "maskable"
+    },
+    {
+      "src": "/web-app-manifest-512x512.png",
+      "sizes": "512x512",
+      "type": "image/png",
+      "purpose": "maskable"
+    }
+  ],
+  "theme_color": "#ffffff",
+  "background_color": "#ffffff",
+  "display": "standalone"
+}

tests/testthat/test-session.R

@@ -5,7 +5,7 @@ test_that("mcp_session returns early when not interactive", {
 
 test_that("mcp_session initializes appropriate globals", {
   local_mocked_bindings(interactive = function() TRUE)
-  mcp_session()
+  expect_s3_class(mcp_session(), "nanoSocket")
   expect_s3_class(the$session_socket, "nanoSocket")
   expect_type(the$session, "integer")
 })