expose detach function to R API

REditorSupport · Aug 2, 2023 · a7abdcf · a7abdcf
1 parent 0d3f446
commit a7abdcf
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 6 deletions.
diff --git a/R/session/init_late.R b/R/session/init_late.R
@@ -17,6 +17,7 @@ source(file.path(dir_init, "vsc.R"), local = .vsc)
 exports <- local({
 .vsc <- .vsc
 .vsc.attach <- .vsc$attach
+.vsc.detach <- .vsc$detach
 .vsc.view <- .vsc$show_dataview
 .vsc.browser <- .vsc$show_browser
 .vsc.viewer <- .vsc$show_viewer

diff --git a/R/session/vsc.R b/R/session/vsc.R
@@ -655,8 +655,7 @@ attach <- function(host = "127.0.0.1", port = NA) {
     rstudioapi_util_env$update_addin_registry(addin_registry)
   }
   if (!is.na(request_tcp_connection)) {
-    close(request_tcp_connection)
-    request_tcp_connection <<- NA
+    detach()
   }
   if (!is.na(port)) {
     request_tcp_connection <<- socketConnection(
@@ -685,6 +684,14 @@ attach <- function(host = "127.0.0.1", port = NA) {
   )
 }
 
+detach <- function() {
+    request("detach")
+    if (!is.na(request_tcp_connection)) {
+      close(request_tcp_connection)
+      request_tcp_connection <<- NA
+    }
+}
+
 path_to_uri <- function(path) {
   if (length(path) == 0) {
     return(character())
@@ -965,9 +972,6 @@ reg.finalizer(.GlobalEnv, function(e) {
   # TODO: When exiting radian by EOF("CTRL+D") when coonecting to vsc by TCP,
   #  the TCP connection is getting closed before we're able to call detach...
   tryCatch({
-    .vsc$request("detach")
-    if (!is.na(request_tcp_connection)) {
-      close(request_tcp_connection)
-    }
+    detach()
   }, error = function(e) NULL)
 }, onexit = TRUE)