Method getAliasesFromR

src/helpViewer/helpProvider.ts:248–285

()

    // call R script `getAliases.R` and parse the output
    private async getAliasesFromR(): Promise<undefined | AllPackageAliases> {
        const lim = '---vsc---';
        const options: cp.CommonOptions = {
            cwd: this.cwd,
            env: {
                ...process.env,
                VSCR_LIB_PATHS: getRLibPaths(),
                VSCR_LIM: lim,
                VSCR_USE_RENV_LIB_PATH: config().get<boolean>('useRenvLibPath') ? 'TRUE' : 'FALSE'
            }
        };

        const args = [
            '--silent',
            '--no-echo',
            '--no-save',
            '--no-restore',
            '-f',
            this.rScriptFile
        ];

        try {
            const result = await spawnAsync(this.rPath, args, options);
            if (result.status !== 0) {
                throw result.error || new Error(result.stderr);
            }
            const re = new RegExp(`${lim}(.*)${lim}`, 'ms');
            const match = re.exec(result.stdout);
            if (match?.length !== 2) {
                throw new Error('Could not parse R output.');
            }
            const json = match[1];
            return <AllPackageAliases>JSON.parse(json) || {};
        } catch (e) {
            console.log(e);
            void window.showErrorMessage(catchAsError(e).message);
        }
    }
}