Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
11 changes: 10 additions & 1 deletion R/help/getAliases.R
Original file line number Diff line number Diff line change
Expand Up @@ -22,10 +22,19 @@ ret <- lapply(rownames(ip), function(row) {
aliases = NULL
)
if (file.exists(filename)) {
info[["aliases"]] <- as.list(readRDS(filename))
res <- tryCatch(
expr = as.list(readRDS(filename)),
error = conditionMessage
)
if (is.list(res)) {
info$aliases <- res
} else {
info$error <- res
}
}
info
})

names(ret) <- rownames(ip)

lim <- Sys.getenv("VSCR_LIM")
Expand Down
16 changes: 12 additions & 4 deletions src/helpViewer/helpProvider.ts
Original file line number Diff line number Diff line change
Expand Up @@ -161,7 +161,8 @@ interface PackageAliases {
aliasFile?: string;
aliases?: {
[key: string]: string;
}
},
error?: string
}
interface AllPackageAliases {
[key: string]: PackageAliases
Expand Down Expand Up @@ -221,9 +222,16 @@ export class AliasProvider {

// flatten aliases into one list:
const allAliases: rHelp.Alias[] = [];
for(const pkg in allPackageAliases){
const pkgName = allPackageAliases[pkg].package || pkg;
const pkgAliases = allPackageAliases[pkg].aliases || {};
for (const pkg in allPackageAliases) {
const item = allPackageAliases[pkg];
const pkgName = item.package || pkg;

if (item.error) {
void window.showErrorMessage(`An error occurred while reading the aliases file for package ${pkgName}: ${item.error}. The package files may be corrupted. Try reinstalling the package.`);
continue;
}

const pkgAliases = item.aliases || {};
for(const fncName in pkgAliases){
allAliases.push({
name: pkgAliases[fncName],
Expand Down