# NOT RUN {
if(requireNamespace("IFCdata", quietly = TRUE)) {
## use a cif file
file_cif <- system.file("extdata", "example.cif", package = "IFCdata")
cif <- ExtractFromXIF(fileName = file_cif)
info <- getInfo(fileName = file_cif, from = "analysis")
## randomly show at most 10 "img" objects from file
DisplayGallery(info = info, image_type = "img", extract_max = 10,
sampling = TRUE, write_to = "example.png")
} 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