[rkward-cvs] rkward/rkward/rbackend/rpackages/rkward/R public.R, 1.17, 1.18

[Thomas Friedrichsmeier]

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

Modified Files:
	public.R 
Log Message:
RCommands may have several receivers, RKCommandReceiver does not elaborate housekeeping.
Progress on package installation. New method is still pretty messy, but works in principle

Index: public.R
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R/public.R,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** public.R	18 Aug 2006 14:36:26 -0000	1.17
--- public.R	8 Sep 2006 11:17:54 -0000	1.18
***************
*** 141,142 ****
--- 141,163 ----
  	cat ("<br>\n")
  }
+ 
+ "rk.make.repos.string" <- function () {
+ 	x <- options ("repos")$repos
+ 	len <- length (x)
+ 	ret <- sprintf ("c (")
+ 	first <- TRUE
+ 	for (i in 1:len) {
+ 		if (first) {
+ 			first <- FALSE
+ 		} else {
+ 			ret <- sprintf ("%s, ", ret)
+ 		}
+ 		if (names (x)[i] != "") {
+ 			ret <- sprintf ("%s%s=%s", ret, names (x)[i], dQuote (x[i]))
+ 		} else {
+ 			ret <- sprintf ("%s%s", ret, dQuote (x[i]))
+ 		}
+ 	}
+ 	ret <- sprintf ("%s)", ret)
+ 	ret
+ }