restore: R/session/ files removed in previous commit

Author: randy3k

R/session/init.R

@@ -0,0 +1,104 @@
+# This file is executed with its containing directory as wd
+
+# Remember the working directory (should be extension subfolder that contains this script)
+dir_init <- getwd()
+
+
+# This function is run at the beginning of R's startup sequence
+# Code that is meant to be run at the end of the startup should go in `init_last`
+init_first <- function() {
+    # return early if not a vscode term session
+    if (
+        !interactive()
+        || Sys.getenv("RSTUDIO") != ""
+        || Sys.getenv("TERM_PROGRAM") != "vscode"
+    ) {
+        return()
+    }
+
+    # check required packages
+    required_packages <- c("jsonlite", "rlang")
+    missing_packages <- required_packages[
+        !vapply(required_packages, requireNamespace,
+            logical(1L), quietly = TRUE
+        )
+    ]
+
+    if (length(missing_packages)) {
+        message(
+            "VSCode R Session Watcher requires ",
+            toString(missing_packages), ". ",
+            "Please install manually in order to use VSCode-R."
+        )
+    } else {
+        # Initialize vsc utils after loading other default packages
+        assign(".First.sys", init_last, envir = globalenv())
+    }
+}
+
+old.First.sys <- .First.sys
+
+# Overwrite for `.First.sys`
+# Is used to make sure that all default packages are loaded first
+# Will be assigned to and called from the global environment,
+# Will be run with wd being the user's working directory (!)
+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
+        # ...
+    })
+
+    # remove this function from globalenv()
+    suppressWarnings(
+        rm(".First.sys", envir = globalenv())
+    )
+
+    # Attach to vscode
+    exports$.vsc.attach()
+
+    invisible()
+}
+
+init_first()

R/session/profile.R

@@ -0,0 +1,33 @@
+# Source the original .Rprofile
+local({
+    try_source <- function(file) {
+        if (file.exists(file)) {
+            source(file)
+            TRUE
+        } else {
+            FALSE
+        }
+    }
+
+    r_profile <- Sys.getenv("R_PROFILE_USER_OLD")
+    Sys.setenv(
+        R_PROFILE_USER_OLD = "",
+        R_PROFILE_USER = r_profile
+    )
+
+    if (nzchar(r_profile)) {
+        try_source(r_profile)
+    } else {
+        try_source(".Rprofile") || try_source(file.path("~", ".Rprofile"))
+    }
+
+    invisible()
+})
+
+# Run vscode initializer
+local({
+    init_file <- Sys.getenv("VSCODE_INIT_R")
+    if (nzchar(init_file)) {
+        source(init_file, chdir = TRUE, local = TRUE)
+    }
+})