note unused args to loadNamespace()

git-svn-id: https://svn.r-project.org/R/trunk@88659 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: ripley

doc/NEWS.Rd

@@ -82,6 +82,9 @@
       See
       \code{\link{RShowDoc}("R-exts#Bibliographic-citations-and-references")}
       for more information.
+
+      \item Arguments to \code{loadNamespace()} which will be ignored
+      because the namespace is already loaded are now noted.
     }
   }
 

src/library/base/R/namespace.R

@@ -207,7 +207,16 @@ loadNamespace <- function (package, lib.loc = NULL,
                               sQuote(package), current, zop, zversion),
                      domain = NA)
         }
-        ## silently ignore all other arguments.
+        ## used to silently ignore all other arguments. Still ignore 'lib.loc'
+        if(!missing(keep.source))
+            message(gettextf("namespace '%s' is already loaded so argument '%s' will bw ignored.",
+                             package, "keep.source"))
+        if(!missing(partial))
+            message(gettextf("namespace '%s' is already loaded so argument '%s' will bw ignored.",
+                             package, "partial"))
+        if(!missing(keep.parse.data))
+            message(gettextf("namespace '%s' is already loaded so argument '%s' will bw ignored/",
+                             package, "keep.parse.data"))
         ## return
         ns
     } else {

src/library/base/man/ns-load.Rd

@@ -37,7 +37,8 @@ isNamespaceLoaded(name)
     recorded in object \code{.Depends} in the package.}
   \item{package}{string naming the package/name space to load.}
   \item{lib.loc}{character vector specifying library search path (the location
-    of \R library trees to search through.}
+    of \R library trees to search through. Only used if the name space
+    is not already loaded.}
   \item{keep.source}{now ignored except during package installation.}
   \item{keep.parse.data}{ignored except during package installation.}
   \item{partial}{logical; if true, stop just after loading code.}