feat: prompt to install bundled sess package when creating R terminal

Author: randy3k

R/install_sess.R

@@ -0,0 +1,31 @@
+local({
+    args <- commandArgs(trailingOnly = TRUE)
+    if (length(args) < 2) {
+        stop("Missing arguments: pkg_path and repo")
+    }
+    pkg_path <- args[1]
+    repo <- args[2]
+
+    if (!file.exists(file.path(pkg_path, "DESCRIPTION"))) {
+        stop(paste("DESCRIPTION file not found in", pkg_path))
+    }
+
+    desc <- read.dcf(file.path(pkg_path, "DESCRIPTION"))
+    deps <- if ("Imports" %in% colnames(desc)) desc[, "Imports"] else ""
+    deps <- unlist(strsplit(deps, ","))
+    deps <- gsub("\\s*\\(.*\\)", "", deps)
+    deps <- trimws(deps)
+    # Filter out base packages and already installed packages
+    deps <- deps[nzchar(deps)]
+    installed <- rownames(installed.packages())
+    base_pkgs <- rownames(installed.packages(priority = "base"))
+    deps <- deps[!deps %in% base_pkgs & !deps %in% installed]
+
+    if (length(deps) > 0) {
+        message("Installing dependencies: ", paste(deps, collapse = ", "))
+        install.packages(deps, repos = repo)
+    }
+
+    message("Installing sess package from: ", pkg_path)
+    install.packages(pkg_path, repos = NULL, type = "source")
+})

src/rTerminal.ts

@@ -155,6 +155,7 @@ export async function makeTerminalOptions(): Promise<vscode.TerminalOptions> {
 
 export async function createRTerm(preserveshow?: boolean): Promise<boolean> {
     const termOptions = await makeTerminalOptions();
+    void util.promptToInstallSessPackage(termOptions.cwd);
     const termPath = termOptions.shellPath;
     if(!termPath){
         void vscode.window.showErrorMessage('Could not find R path. Please check r.rterm and r.rpath setting.');

src/util.ts

@@ -588,6 +588,45 @@ export async function promptToInstallRPackage(name: string, section: string, cwd
         });
 }
 
+/**
+ * Prompt to install the bundled "sess" package
+ */
+export async function promptToInstallSessPackage(cwd?: string | vscode.Uri): Promise<void> {
+    const _config = config();
+    const sessionWatcher = _config.get<boolean>('sessionWatcher');
+    if (!sessionWatcher) {
+        return;
+    }
+    const sessVersion = await getRPackageVersion('sess', cwd instanceof vscode.Uri ? cwd.fsPath : cwd);
+    if (sessVersion) {
+        return;
+    }
+
+    const sessPath = extensionContext.asAbsolutePath('sess').replace(/\\/g, '/');
+    const installSessScript = extensionContext.asAbsolutePath(path.join('R', 'install_sess.R')).replace(/\\/g, '/');
+    const installMsg = 'R package "sess" (shipped with vscode-R) is required for the session watcher to work. Do you want to install it?';
+    await vscode.window.showErrorMessage(installMsg, 'Yes', 'No')
+        .then(async function (select) {
+            if (select === 'Yes') {
+                const rPath = await getRpath();
+                if (!rPath) {
+                    void vscode.window.showErrorMessage('R path not set', 'OK');
+                    return;
+                }
+                const repo = await getCranUrl('', cwd instanceof vscode.Uri ? cwd.fsPath : cwd);
+                const args = [
+                    '--silent',
+                    '--no-echo',
+                    '--no-save',
+                    '--no-restore',
+                    '-f', installSessScript,
+                    '--args', sessPath, repo
+                ];
+                void executeAsTask('Install "sess" package', rPath, args, true);
+            }
+        });
+}
+
 /**
  * Create temporary directory. Will avoid name clashes. Caller must delete directory after use.
  *