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 databse used by navarre
get_database(navarre)
# set the a new database path
set_database(navarre,"new_path")
# get the database used by rsat by default
get_database()
# set the a new database path for the entire environment
set_database("new_path")
}
Run the code above in your browser using DataLab