allow attaching in a later stage

Author: Tal Hadad

R/session/init.R

@@ -44,59 +44,13 @@ old.First.sys <- .First.sys
 init_last <- function() {
   old.First.sys()
 
-  # cleanup previous version
-  removeTaskCallback("vscode-R")
-  options(vscodeR = NULL)
-  .vsc.name <- "tools:vscode"
-  if (.vsc.name %in% search()) {
-    detach(.vsc.name, character.only = TRUE)
-  }
-
-  # Source vsc utils in new environmeent
-  .vsc <- new.env()
-  source(file.path(dir_init, "vsc.R"), local = .vsc)
-
-  # attach functions that are meant to be called by the user/vscode
-  exports <- local({
-    .vsc <- .vsc
-    .vsc.attach <- .vsc$attach
-    .vsc.view <- .vsc$show_dataview
-    .vsc.browser <- .vsc$show_browser
-    .vsc.viewer <- .vsc$show_viewer
-    .vsc.page_viewer <- .vsc$show_page_viewer
-    View <- .vsc.view
-    environment()
-  })
-  attach(exports, name = .vsc.name, warn.conflicts = FALSE)
-
-  # overwrite S3 bindings from other packages
-  suppressWarnings({
-    if (!identical(getOption("vsc.helpPanel", "Two"), FALSE)) {
-      # Overwrite print function for results of `?`
-      .vsc$.S3method(
-        "print",
-        "help_files_with_topic",
-        .vsc$print.help_files_with_topic
-      )
-      # Overwrite print function for results of `??`
-      .vsc$.S3method(
-        "print",
-        "hsearch",
-        .vsc$print.hsearch
-      )
-    }
-    # Further S3 overwrites can go here
-    # ...
-  })
+  source(file.path(dir_init, "init_late.R"), chdir = TRUE)
 
   # remove this function from globalenv()
   suppressWarnings(
     rm(".First.sys", envir = globalenv())
   )
 
-  # Attach to vscode
-  #exports$.vsc.attach()
-
   invisible()
 }
 

R/session/init_late.R

@@ -0,0 +1,47 @@
+dir_init <- getwd()
+
+
+# cleanup previous version
+removeTaskCallback("vscode-R")
+options(vscodeR = NULL)
+.vsc.name <- "tools:vscode"
+if (.vsc.name %in% search()) {
+detach(.vsc.name, character.only = TRUE)
+}
+
+# Source vsc utils in new environmeent
+.vsc <- new.env()
+source(file.path(dir_init, "vsc.R"), local = .vsc)
+
+# attach functions that are meant to be called by the user/vscode
+exports <- local({
+.vsc <- .vsc
+.vsc.attach <- .vsc$attach
+.vsc.view <- .vsc$show_dataview
+.vsc.browser <- .vsc$show_browser
+.vsc.viewer <- .vsc$show_viewer
+.vsc.page_viewer <- .vsc$show_page_viewer
+View <- .vsc.view
+environment()
+})
+attach(exports, name = .vsc.name, warn.conflicts = FALSE)
+
+# overwrite S3 bindings from other packages
+suppressWarnings({
+if (!identical(getOption("vsc.helpPanel", "Two"), FALSE)) {
+    # Overwrite print function for results of `?`
+    .vsc$.S3method(
+    "print",
+    "help_files_with_topic",
+    .vsc$print.help_files_with_topic
+    )
+    # Overwrite print function for results of `??`
+    .vsc$.S3method(
+    "print",
+    "hsearch",
+    .vsc$print.hsearch
+    )
+}
+# Further S3 overwrites can go here
+# ...
+})

src/session.ts

@@ -93,9 +93,11 @@ export function deploySessionWatcher(extensionPath: string): void {
     console.info(`[deploySessionWatcher] extensionPath: ${extensionPath}`);
     resDir = path.join(extensionPath, 'dist', 'resources');
 
-    const initPath = path.join(extensionPath, 'R', 'session', 'init.R');
-    const linkPath = path.join(homeExtDir(), 'init.R');
-    fs.writeFileSync(linkPath, `local(source("${initPath.replace(/\\/g, '\\\\')}", chdir = TRUE, local = TRUE))\n`);
+    for (const initFileName of ['init.R', 'init_late.R']) {
+        const initPath = path.join(extensionPath, 'R', 'session', initFileName);
+        const linkPath = path.join(homeExtDir(), initFileName);
+        fs.writeFileSync(linkPath, `local(source("${initPath.replace(/\\/g, '\\\\')}", chdir = TRUE, local = TRUE))\n`);
+    }
 
     writeSettings();
     workspace.onDidChangeConfiguration(event => {