tests/testthat/test-records.R

In rsat: Dealing with Multiplatform Satellite Images

test_that("records test", {
  print("Testing records...")
  data(ex.navarre)

  # credential test
  print_credentials()

  set_credentials("username", "password")

  set_credentials("username","password","scihub")

  credentials<-print_credentials()

  print(credentials)
  tryCatch({
  rcds<-rsat_search(
    region = ex.navarre,
    product = c("mod09ga", "LANDSAT_8_C1","S2MSI2A"),
    dates = as.Date("2021-03-01") + seq(1, 20),
    verbose=TRUE,
    test.mode=TRUE
  )

  dates(rcds)
  print(rcds)
  print(rcds[1])

  rcds1 <- subset(rcds, "product", unique(product(rcds))[1])[1]
  rcds2 <- subset(rcds, "product", unique(product(rcds))[2])[1]
  rcds3 <- subset(rcds, "product", unique(product(rcds))[3])[1]
  rcds.subset <- c(rcds1, rcds2, rcds3)
  rcds.subset@preview<-paste0(
    "https://unai-perez.github.io/rsat-test/previewImg/",
    c("BROWSE.MOD09GA.A2021061.h17v04.006.2021063025039.1.jpg",
      "LC08_L1GT_199030_20210303_20210311_01_T2.jpg",
      "S2B_MSIL2A_20210321T104639_N0214_R051_T30TXM_20210321T134504-ql.jpg"))

  plot(rcds.subset,"preview")

  rsat_preview(rcds.subset,1)
  rsat_preview(rcds.subset,dates(rcds.subset[1]))
  }, error = function(e) {
    print(e)
  })
})