SCM

SCM Repository

[matrix] Diff of /pkg/R/Matrix.R
ViewVC logotype

Diff of /pkg/R/Matrix.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1326, Wed Jul 19 14:58:26 2006 UTC revision 1329, Fri Jul 21 06:47:06 2006 UTC
# Line 281  Line 281 
281                           drop = "ANY"),                           drop = "ANY"),
282            function (x, i, j, drop) {            function (x, i, j, drop) {
283                as(x, geClass(x))@x[as.vector(i)]                as(x, geClass(x))@x[as.vector(i)]
284                                          # -> error when lengths don't match                ## -> error when lengths don't match
285            })            })
286    
287    ## FIXME: The following is good for    M [ <logical>   ]
288    ##        *BUT* it also triggers for   M [ <logical> , ] where it is *WRONG*
289    ##       using nargs() does not help: it gives '3' for both cases
290    if(FALSE)
291  setMethod("[", signature(x = "Matrix", i = "logical", j = "missing",  setMethod("[", signature(x = "Matrix", i = "logical", j = "missing",
292                           drop = "ANY"),                           drop = "ANY"),
293            function (x, i, j, drop) as(x, geClass(x))@x[i])            function (x, i, j, drop) {
294                  ## DEBUG
295                  cat("[(Matrix,i,..): nargs=", nargs(),"\n")
296                  as(x, geClass(x))@x[i] })
297    
298    
299  ## "FIXME:"  ## "FIXME:"

Legend:
Removed from v.1326  
changed lines
  Added in v.1329

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge