if(requireNamespace("IFCdata", quietly = TRUE)) {
## use a rif file, but you can also read daf or cif
file_rif <- system.file("extdata", "example.rif", package = "IFCdata")
rif <- readIFC(fileName = file_rif)
} 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