Displaying 1 result from an estimated 1 matches for "celldata_header".
2010 Jul 05
1
export VTK from R : impossible to write data as float
...7, 6)),bfile_cells,endian="swap")
#cell types header
cat('\nCELL_TYPES', 1,'\n',file="celltypes_header")
#write cell types
writeBin(as.integer(c(12)),bfile_celltypes,endian="swap")
#cell data header
cat('\nCELL_DATA',1,'\n',file="celldata_header")
cat('SCALARS R float 1','\n',file="celldata_header", append=TRUE)
cat('LOOKUP_TABLE default\n',file="celldata_header", append=TRUE)
#write cell data
data<-as.numeric(c(3.3))
storage.mode(data)<-'integer'
writeBin(data,bfile_celldata,e...