[rkward-cvs] rkward/rkward/rbackend/rpackages/rkward/R internal.R,1.24,1.25

[Thomas Friedrichsmeier]

Update of /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5196/rkward/R

Modified Files:
	internal.R 
Log Message:
Prevent require () from printing two info lines

Index: internal.R
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R/internal.R,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** internal.R	17 Apr 2006 12:09:00 -0000	1.24
--- internal.R	17 Apr 2006 14:03:20 -0000	1.25
***************
*** 118,126 ****
          package <- as.character(substitute(package))
      }
!         if (!base::require(as.character(package), quietly = quietly, 
!             character.only = TRUE, ...)) {
              .rk.do.call("require", as.character(package))
!             return(base::require(as.character(package), quietly = quietly, 
!                 character.only = TRUE, ...))
          }
      return(TRUE)
--- 118,124 ----
          package <- as.character(substitute(package))
      }
!         if (!base::require(as.character(package), quietly = quietly, character.only = TRUE, ...)) {
              .rk.do.call("require", as.character(package))
!             return(base::require(as.character(package), quietly = TRUE, character.only = TRUE, ...))
          }
      return(TRUE)