optionally complete on all installed packages

deepayan · deepayan · commit 73b2f939a265 · 2025-09-30T15:38:03.000Z
git-svn-id: https://svn.r-project.org/R/trunk@88884 00db46b3-68df-0310-9c12-caf00c1e9a41
diff --git a/src/library/utils/R/completion.R b/src/library/utils/R/completion.R
@@ -610,6 +610,8 @@ loadedPackageCompletions <- function(text, add = rc.getOption("package.suffix"))
     if (.CompletionEnv$settings[["ns"]])
     {
         s <- loadedNamespaces()
+        ## if rc.settings(ipck=TRUE), also do all installed packages
+        if (.CompletionEnv$settings[["ipck"]]) s <- unique(c(s, rownames(installed.packages())))
         comps <- findExactMatches(sprintf("^%s", makeRegexpSafe(text)), s)
         if (length(comps) && !is.null(add))
             sprintf("%s%s", comps, add)

Original file line number	Diff line number	Diff line change
`@@ -610,6 +610,8 @@ loadedPackageCompletions <- function(text, add = rc.getOption("package.suffix"))`
`610`	`610`	`if (.CompletionEnv$settings[["ns"]])`
`611`	`611`	`{`
`612`	`612`	`s <- loadedNamespaces()`
	`613`	`+ ## if rc.settings(ipck=TRUE), also do all installed packages`
	`614`	`+ if (.CompletionEnv$settings[["ipck"]]) s <- unique(c(s, rownames(installed.packages())))`
`613`	`615`	`comps <- findExactMatches(sprintf("^%s", makeRegexpSafe(text)), s)`
`614`	`616`	`if (length(comps) && !is.null(add))`
`615`	`617`	`sprintf("%s%s", comps, add)`