if (FALSE) {
# load example rtoi
file.copy(from=system.file("ex/Navarre",package="rsat"),
to=tempdir(),
recursive = TRUE)
navarre <- read_rtoi(file.path(tempdir(),"Navarre"))
# get the path of the
get_dir(navarre)
# get the records
rcds <- records(navarre)
# gets the relative path to store records data
get_dir(rcds)
}
Run the code above in your browser using DataLab