R/HDF5WriteData.R

In Sage-Bionetworks/rHDF5: HDF5 File access

"HDF5WriteData" <-
function (filename,
			path,
			data,
			options=list())
{
	#
	# Write a dataset to the file or group
	#
	# Arguments
	#  filename - HDF5 file name in full path
	#  path		- the full path of the dataset
	#  data     - data to be written.
	#  options  startindex - the row index of data to get overwritten
	#			nrows - the number of rows of data to be overwritten
	#           forceNewFile - logical value to indicate if an existing file will 
	#						   be cleared first before start writing.
	#			overwrite - logical value to indicate if an existing dataset will get
	#						overwritten.
	#           compresslevel - integer value (0-9) to indicate data compression level.
	#							Higher compression results in longer time. Default(0)
	#
	if (missing(filename))
		stop("HDF5WriteData: parameter filename is missing.")
	if (missing(path))
		stop("HDF5WriteData: parameter path is missing.")
	if (length(data)==0)	
		stop("HDF5WriteData: data does not exist or is empty.")
	
 	paramAttr=list()
	tempOptions<-names(options)
	for(option in tempOptions)
		if ((tolower(option)=="startindex") || 
			(tolower(option)=="nrows") || 
			(tolower(option)=="forcenewfile") || 
			(tolower(option)=="overwrite") ||
			(tolower(option)=="compresslevel"))
			paramAttr[option]<-toString(options[option])
		else 
			paramAttr[option]<-options[option]
	
	lintdata<-integer()
	ldoubledata<-double()
	lstrdata<-as.character(list())
	ldataframedata<-a<-as.data.frame(list())

	if (is.vector(data))
		data<-as.array(data)
	if (is.integer(data))
		lintdata<-t(data)
	if (is.double(data))
		ldoubledata<-t(data)
	if (is.character(data))
		lstrdata<-t(data)
	if (is.data.frame(data))
		ldataframedata<-as.data.frame(data)
		
	size<-dim(data)	
    paramAttr["row"]<-toString(size[1])		
    paramAttr["col"]<-toString(size[2])	
    if (is.na(size[1]) && !is.na(size[2]))
		paramAttr["row"]<-"1"
    if (is.na(size[2]) && !is.na(size[1]))
		paramAttr["col"]<-"1"

    results<-HDF5Execute("writedata",
	                      filename=filename,
                        path=path,
                        intdata=lintdata,
                        doubledata=ldoubledata,
                        strdata=lstrdata,
                        dataframedata=ldataframedata,
                        attributes=paramAttr,
                        debug=FALSE)

        
}