# path to provided archive
archive <- file.path(
system.file("extdata", package="rgplates"),
"paleomap_v3.zip")
# extract to temporary directory
unzip(archive, exdir=tempdir())
# path to the rotation file
rotPath <- file.path(tempdir(),
"PALEOMAP_PlateModel.rot")
# path to the polygons
polPath <- file.path(tempdir(),
"PALEOMAP_PlatePolygons.gpml")
# register in R - to be used in reconstruct()
model <- platemodel(rotation=rotPath, features=c("static_polygons"=polPath))
Run the code above in your browser using DataLab