if (FALSE) {
data(ex.navarre)
## Create an rtoi with database
# path where the region is stored
rtoi.path <- tempdir()
# path where downloads are stored
db.path <- file.path(tempdir(), "DATABASE")
navarre <- new_rtoi(
name = "Navarre_rtoi",
region = ex.navarre,
rtoi_path = rtoi.path,
db_path = db.path
)
print(navarre)
## Create an rtoi without database
navarre2 <- new_rtoi(
name = "Navarre_rtoi2",
region = ex.navarre,
rtoi_path = rtoi.path
)
print(navarre2)
}
Run the code above in your browser using DataLab