respect --verbose when loading default packages

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

Author: smeyer

src/library/profile/Common.R

@@ -69,8 +69,9 @@ local({
 
 .First.sys <- function()
 {
+    verbose <- getOption("verbose", FALSE)
     for(pkg in getOption("defaultPackages")) {
-        res <- require(pkg, quietly = TRUE, warn.conflicts = FALSE,
+        res <- require(pkg, quietly = !verbose, warn.conflicts = FALSE,
                        character.only = TRUE)
         if(!res)
             warning(gettextf('package %s in options("defaultPackages") was not found', sQuote(pkg)),
@@ -83,7 +84,7 @@ local({
 {
     pkg <- "methods" # done this way to avoid R CMD check warning
     if(pkg %in% getOption("defaultPackages"))
-        if(!require(pkg, quietly = TRUE, warn.conflicts = FALSE,
+        if(!require(pkg, quietly = !getOption("verbose", FALSE), warn.conflicts = FALSE,
                     character.only = TRUE))
             warning('package "methods" in options("defaultPackages") was not found',
                     call. = FALSE)