# NOT RUN {
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_s2$size()$getInfo() # 126
# Get the first 5 elements
ee_get(ee_s2, index = 0:4)$size()$getInfo() # 5
# }
Run the code above in your browser using DataLab