if (FALSE) {
library(rsat)
# load example rtoi
file.copy(from=system.file("ex/Navarre",package="rsat"),
to=tempdir(),
recursive = TRUE)
navarre <- read_rtoi(file.path(tempdir(),"Navarre"))
set_credentials("username", "password")
set_database(file.path(tempdir(), "DATABASE"))
# by default the first date in rtoi is previewed
rsat_preview(navarre)
preview.dates <- dates(navarre)
# use add.layer to preview images of several days
rsat_preview(navarre,preview.dates[2],add.layer = TRUE)
# you can also preview records
rcrds <- records(navarre)
rsat_preview(rcrds, n = 1)
}
Run the code above in your browser using DataLab