R/HDF5ReadAttribute.R

In Sage-Bionetworks/rHDF5: HDF5 File access

"HDF5ReadAttribute" <-
function (filename,path,options=list())
{
	#
	# Log into an instance of Resolver
	#
	# Arguments
	#  filename - HDF5 file name in full path
	#  path		- the full path of the attribute
	#
	#
	if (missing(filename))
		stop("HDF5Read: parameter filename is missing.")
	if (missing(path))
		stop("HDF5Read: parameter path is missing.")
	
	paramAttr=list()
	tempOptions<-names(options)
	for(option in tempOptions)
		if ((tolower(option)=="startindex") || (tolower(option)=="nrows"))
			paramAttr[option]<-toString(options[option])
		else 
			paramAttr[option]<-options[option]
		
    results<-HDF5Execute("readattr",
	                      filename=filename,
                        path=path,
                        intdata=integer(),
                        doubledata=double(),
                        strdata=as.character(list()),
                        dataframedata=as.data.frame(list()),
                        attributes=paramAttr,
                        debug=FALSE)

        
}