[rkward-cvs] rkward/rkward/rbackend/rpackages/rkward/R internal.R, 1.27, 1.28

[Thomas Friedrichsmeier]

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

Modified Files:
	internal.R 
Log Message:
Failed attempt at creating an RObjectTable for the workspace

Index: internal.R
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R/internal.R,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** internal.R	20 Jun 2006 14:25:29 -0000	1.27
--- internal.R	21 Jun 2006 16:57:40 -0000	1.28
***************
*** 204,213 ****
  # these functions (not fully functional, yet) can be used to track assignments to R objects. The main interfaces are .rk.watch.symbol (k) and .rk.unwatch.symbol (k). This works by copying the symbol to a backup location, removing it, and replacing it by an active binding to the backup location
  .rk.watched.value.change <- function (k, value) {
! 	print ("set")
  	.rk.watched.symbols[[as.character(k)]] <<- value
  }
  
  .rk.watched.value.retrieve <- function (k) {
! 	print ("ret")
  	.rk.watched.symbols[[as.character(k)]]
  }
--- 204,213 ----
  # these functions (not fully functional, yet) can be used to track assignments to R objects. The main interfaces are .rk.watch.symbol (k) and .rk.unwatch.symbol (k). This works by copying the symbol to a backup location, removing it, and replacing it by an active binding to the backup location
  .rk.watched.value.change <- function (k, value) {
! 	print (paste ("set", as.character(k)))
  	.rk.watched.symbols[[as.character(k)]] <<- value
  }
  
  .rk.watched.value.retrieve <- function (k) {
! 	print (paste ("ret", as.character(k)))
  	.rk.watched.symbols[[as.character(k)]]
  }
***************
*** 228,232 ****
  	f <- .rk.make.watch.f (substitute (k))
  	if (!exists (".rk.watched.symbols")) .rk.watched.symbols <<- list ()
! 	.rk.watched.symbols[as.character (substitute (k))] <<- k
  	lst <- c (substitute (k))
  	rm (list=as.character (lst), envir=parent.frame ())
--- 228,232 ----
  	f <- .rk.make.watch.f (substitute (k))
  	if (!exists (".rk.watched.symbols")) .rk.watched.symbols <<- list ()
! 	.rk.watched.symbols[[as.character (substitute (k))]] <<- k
  	lst <- c (substitute (k))
  	rm (list=as.character (lst), envir=parent.frame ())