[H5r-commits] r39 - R

[noreply at r-forge.r-project.org]

Author: extemporaneousb
Date: 2010-12-09 22:01:21 +0100 (Thu, 09 Dec 2010)
New Revision: 39

Modified:
   R/h5R.R
Log:
Removed the two start,width generics because they conflict with others and they probably only slow things down.



Modified: R/h5R.R
===================================================================
--- R/h5R.R	2010-11-08 17:39:23 UTC (rev 38)
+++ R/h5R.R	2010-12-09 21:01:21 UTC (rev 39)
@@ -42,20 +42,23 @@
 setMethod("length", "hSlab", function(x) {
   length(x at s)
 })
-setGeneric("start", function(x, ...) {
-  standardGeneric("start")
-})
-setMethod("start", "hSlab", function(x) {
-  x at s
-})
-setGeneric("width", function(x, ...) {
-  standardGeneric("width")
-})
-setMethod("width", "hSlab", function(x) {
-  x at w
-})
 
 
+## setGeneric("start", function(x, ...) {
+##   standardGeneric("start")
+## })
+## setMethod("start", "hSlab", function(x) {
+##   x at s
+## })
+
+## setGeneric("width", function(x, ...) {
+##   standardGeneric("width")
+## })
+## setMethod("width", "hSlab", function(x) {
+##   x at w
+## })
+
+
 H5File <- function(fileName) {
   new("H5File", fileName)
 }
@@ -369,7 +372,7 @@
   if (! ((nr == 1 && is.null(dim(x))) || (nr == length(dim(x)))))
     stop("Dimension mismatch: nrow(x) == length(dim(x))")
   
-  readSlab(x, start(i), width(i))
+  readSlab(x, i at s, i at w)
 })
 
 ##