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