Function previewEnvironment

src/preview.ts:10–34

()

import { config, checkForSpecialCharacters, checkIfFileExists, delay, createTempDir, getCurrentWorkspaceFolder } from './util';

export async function previewEnvironment(): Promise<void> {
    if (config().get('sessionWatcher')) {
        await runTextInTerm('View(globalenv())');
    } else {
        if (!checkcsv()) {
            return;
        }
        const currentWorkspaceFolder = getCurrentWorkspaceFolder()?.uri.fsPath;
        if (!currentWorkspaceFolder) {
            return;
        }
        const tmpDir = createTempDir(currentWorkspaceFolder, true);
        const pathToTmpCsv = `${tmpDir}/environment.csv`;
        const envName = 'name=ls()';
        const envClass = 'class=sapply(ls(), function(x) {class(get(x, envir = parent.env(environment())))[1]})';
        const envOut = 'out=sapply(ls(), function(x) {capture.output(str(get(x, envir = parent.env(environment()))), silent = T)[1]})';
        const rWriteCsvCommand = 'write.csv(data.frame('
            + `${envName},`
            + `${envClass},`
            + `${envOut}), '`
            + `${pathToTmpCsv}', row.names=FALSE, quote = TRUE)`;
        await runTextInTerm(rWriteCsvCommand);
        await openTmpCSV(pathToTmpCsv, tmpDir);
    }
}

export async function previewDataframe(): Promise<boolean | undefined> {
    if (config().get('sessionWatcher')) {