[rkward-cvs] rkward/rkward/rbackend/rpackages/rkward/R internal.R,1.12,1.13

[Pierre]

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

Modified Files:
	internal.R 
Log Message:
Adding function to return search results.

Index: internal.R
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R/internal.R,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** internal.R	20 Sep 2004 17:42:43 -0000	1.12
--- internal.R	25 Feb 2005 22:29:53 -0000	1.13
***************
*** 92,95 ****
--- 92,102 ----
  }
  
+ # Here we concatenate everything (same as above) to get search results easily
+ ".rk.get.search.results" <- function (pattern, ...) {
+ 	H=as.data.frame (help.search(pattern, ...)$matches)
+ 	return(c(as.vector(H$topic),as.vector(H$title),as.vector(H$Package)))
+ }
+ 
+ 
  ".rk.get.CRAN.packages" <- function () {
  	x <- CRAN.packages ()