if (FALSE) {
library(tidyrgee)
library(tidyverse)
library(rgee)
rgee::ee_Initialize()
# create geometry and convert to sf
coord_tibble <- tibble::tribble(
~X, ~Y,
92.2303683692011, 20.9126490153521,
92.2311567217866, 20.9127410439304,
92.2287527311594, 20.9124072954926,
92.2289221219251, 20.9197352745068,
92.238724724534, 20.9081803233546
)
sf_ob <- sf::st_as_sf(coord_tibble, coords=c("X","Y"),crs=4326)
# load landsat
ls = ee$ImageCollection("LANDSAT/LC08/C01/T1_SR")
#create tidyee class
ls_tidy <- as_tidyee(ls)
# filter_bounds on sf object
# return tidyee object
ls_tidy |>
filter_bounds(sf_ob)
# return ee$ImageCollection
ls_tidy |>
filter_bounds(sf_ob,return_tidyee = FALSE)
# filter_bounds on ee$Geometry object
# return tidyee object
ee_geom_ob <- sf_ob |> rgee::ee_as_sf()
ls_tidy |>
filter_bounds(ee_geom_ob)
}
Run the code above in your browser using DataLab