[rkward/work/workspace_output] rkward/rbackend/rpackages/rkward: This function no longer used for a long while.

[Thomas Friedrichsmeier]

Git commit 2d12b953b18ccead39df962f9328ffe187658a12 by Thomas Friedrichsmeier.
Committed on 27/06/2017 at 15:38.
Pushed by tfry into branch 'work/workspace_output'.

This function no longer used for a long while.

M  +0    -1    rkward/rbackend/rpackages/rkward/NAMESPACE
M  +0    -24   rkward/rbackend/rpackages/rkward/R/internal.R
M  +1    -1    rkward/rbackend/rpackages/rkward/man/rk.load.pluginmaps.Rd

https://commits.kde.org/rkward/2d12b953b18ccead39df962f9328ffe187658a12

diff --git a/rkward/rbackend/rpackages/rkward/NAMESPACE b/rkward/rbackend/rpackages/rkward/NAMESPACE
index 1705032d..c2e5e0f9 100644
--- a/rkward/rbackend/rpackages/rkward/NAMESPACE
+++ b/rkward/rbackend/rpackages/rkward/NAMESPACE
@@ -13,7 +13,6 @@ export(.rk.do.error)
 export(.rk.find.package.pluginmaps)
 export(.rk.fix.assignments)
 export(.rk.fix.assignments.graphics)
-export(.rk.get.environment.children)
 export(.rk.get.installed.packages)
 export(.rk.get.meta)
 export(.rk.get.package.intallation.state)
diff --git a/rkward/rbackend/rpackages/rkward/R/internal.R b/rkward/rbackend/rpackages/rkward/R/internal.R
index 392dad74..2e388d29 100644
--- a/rkward/rbackend/rpackages/rkward/R/internal.R
+++ b/rkward/rbackend/rpackages/rkward/R/internal.R
@@ -344,30 +344,6 @@
 	ret
 }
 
-#' @export
-".rk.get.environment.children" <- function (x, envlevel=0, namespacename=NULL) {
-	ret <- list ()
-
-	if (envlevel < 2) {		# prevent infinite recursion
-		lst <- ls (x, all.names=TRUE)
-		if (is.null (namespacename)) {
-			for (childname in lst) {
-				ret[[childname]] <- .rk.get.structure (name=childname, envlevel=envlevel, envir=x)
-			}
-		} else {
-			# for R 2.4.0 or greater: operator "::" works if package has no namespace at all, or has a namespace with the symbol in it
-			ns <- tryCatch (asNamespace (namespacename), error = function(e) NULL)
-			for (childname in lst) {
-				misplaced <- FALSE
-				if ((!is.null (ns)) && (!exists (childname, envir=ns, inherits=FALSE))) misplaced <- TRUE
-				ret[[childname]] <- .rk.get.structure (name=childname, envlevel=envlevel, misplaced=misplaced, envir=x)
-			}
-		}
-	}
-
-	ret
-}
-
 # hidden, as this is not portable to different output formats
 #' @export
 ".rk.cat.output" <- function (x) {
diff --git a/rkward/rbackend/rpackages/rkward/man/rk.load.pluginmaps.Rd b/rkward/rbackend/rpackages/rkward/man/rk.load.pluginmaps.Rd
index 365bd6de..cef6098c 100644
--- a/rkward/rbackend/rpackages/rkward/man/rk.load.pluginmaps.Rd
+++ b/rkward/rbackend/rpackages/rkward/man/rk.load.pluginmaps.Rd
@@ -11,7 +11,7 @@ rk.load.pluginmaps(pluginmap.files = NULL, force.add = TRUE,
 \item{pluginmap.files}{a character vector of file names to add. This may be left empty,
 if the only desired effect is to reload all active pluginmaps.}
 
-\item{force.add}{logical. Whether the pluginmap files should also be added, if they had
+\item{force.add}{logical. Whether the pluginmap files should also be added, if# they had
 been previously de-selected in the settings menu, and regardless of their
 priority setting. In scripted usage, this should generally be set to FALSE.}