[H5r-commits] r51 - R

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

Author: extemporaneousb
Date: 2011-05-05 18:39:29 +0200 (Thu, 05 May 2011)
New Revision: 51

Modified:
   R/h5R.R
Log:
Added listH5Attributes.



Modified: R/h5R.R
===================================================================
--- R/h5R.R	2011-04-26 16:34:18 UTC (rev 50)
+++ R/h5R.R	2011-05-05 16:39:29 UTC (rev 51)
@@ -572,11 +572,11 @@
 
 ## construct a list of elements in the file.
 .listH5Contents <- function(h5Obj) .myCall("h5R_list_contents", .ePtr(h5Obj))
-.listH5Attributes <- function(h5Obj) .myCall("h5R_list_attributes", .ePtr(h5Obj))
 
+listH5Attributes <- function(h5Obj) .myCall("h5R_list_attributes", .ePtr(h5Obj))
+
 listH5Contents <- function(h5Obj) {
   contents <- .listH5Contents(h5Obj)
-  
   lst <- lapply(contents, function(a) {
     h5Obj <- switch(as.character(a[[2]]),
                     '0' = { getH5Group(h5Obj, a[[1]]) },
@@ -589,7 +589,7 @@
     }
     list(name = a[[1]],
          type = a[[2]],
-         attributes = .listH5Attributes(h5Obj),
+         attributes = listH5Attributes(h5Obj),
          dim = dim)
   })
   names(lst) <- sapply(lst, "[[", 1)
@@ -597,7 +597,6 @@
     a$name <- basename(a$name)
     a
   })
-
   return(lst)
 }