# NOT RUN {
if(requireNamespace("IFCdata", quietly = TRUE)) {
## use a cif file
file_cif <- system.file("extdata", "example.cif", package = "IFCdata")
## extract offsets
offsets <- getOffsets(fileName = file_cif)
## subset offsets of the 4 first "img" objects
sub_offs <- subsetOffsets(offsets = offsets, objects = 0:3, image_type = "img")
## show subsetted offsets' structure
str(sub_offs)
} else {
message(sprintf('Please run `install.packages("IFCdata", repos = "%s", type = "source")` %s',
'https://gitdemont.github.io/IFCdata/',
'to install extra files required to run this example.'))
}
# }
Run the code above in your browser using DataLab