if (FALSE) {
tmp <- tempdir()
## 'Date' method
gimms_files_date <- downloadGimms(x = as.Date("2000-01-01"),
y = as.Date("2000-12-31"),
dsn = tmp)
## 'numeric' method (i.e., particular years)
gimms_files_year <- downloadGimms(x = 2000,
y = 2002,
dsn = tmp)
## 'character' method (i.e., particular files)
ecocast <- system.file("extdata", "inventory_ecv1.rds", package = "gimms")
gimms_files_char <- readRDS(ecocast)
gimms_files_char <- downloadGimms(x = gimms_files_char[1:6],
dsn = tmp)
## 'missing' method (i.e., entire collection)
gimms_files_full <- downloadGimms(dsn = tmp)
}
Run the code above in your browser using DataLab