# NOT RUN {
pos <- st_sfc(st_point(c(12.0, 44.8)), crs=st_crs(4326))
time_window <- as.Date(c("2017-05-01","2017-07-30"))
example_s2_list <- s2_list(spatial_extent=pos, tile="32TQQ", time_interval=time_window)
s2_download(example_s2_list, outdir=tempdir())
sen2cor(names(example_s2_list)[1], l1c_dir=tempdir(), outdir=tempdir())
# }
Run the code above in your browser using DataLab