# NOT RUN {
# locate example volume file:
pvolfile <- system.file("extdata", "volume.h5", package = "bioRad")
# print the local path of the volume file:
pvolfile
# load the file:
example_pvol <- read_pvolfile(pvolfile)
# print summary info for the loaded polar volume:
example_pvol
# verify that this is a pvol object:
is.pvol(example_pvol)
# print summary info for the scans in the polar volume:
example_pvol$scans
# copy the first scan to a new object 'scan':
scan <- example_pvol$scans[[1]]
# print summary info for the scan:
scan
is.pvol("this is not a polar volume but a string") # > FALSE
# }
Run the code above in your browser using DataLab