if (FALSE) {
library(rgee)
library(tidyrgee)
modis_ic <- ee$ImageCollection("MODIS/006/MOD13Q1")
# create tidyee class
modis_ic_tidy <- as_tidyee(modis_ic)
# convert back to origina ee$ImageCollection class
modis_ic_tidy |>
as_ee()
}
Run the code above in your browser using DataLab