if (FALSE) {
library(rgee)
library(sf)
ee_Initialize()
nc <- st_read(system.file("shape/nc.shp", package = "sf")) %>%
st_transform(4326) %>%
sf_as_ee()
ee_s2 <- ee$ImageCollection("COPERNICUS/S2")$
filterDate("2016-01-01", "2016-01-31")$
filterBounds(nc)
ee_get_date_ic(ee_s2)
}
Run the code above in your browser using DataLab