# NOT RUN {
library(rgee)
library(sf)
ee_reattach()
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