# NOT RUN {
pos <- sf::st_sfc(sf::st_point(c(9.85,45.81)), crs = 4326)
time_window <- as.Date(c("2016-05-01", "2017-07-30"))
# Full-period list
example_s2_list <- s2_list(
spatial_extent = pos,
tile = "32TNR",
time_interval = time_window,
orbit = "065"
)
print(example_s2_list)
# Print the dates of the retrieved products
safe_getMetadata(example_s2_list, "sensing_datetime")
# Seasonal-period list
example_s2_list <- s2_list(
spatial_extent = pos,
tile = "32TNR",
time_interval = time_window,
time_period = "seasonal"
)
print(example_s2_list)
# Print the dates of the retrieved products
safe_getMetadata(example_s2_list, "sensing_datetime")
# }
Run the code above in your browser using DataLab