usecase/dev_auto_downl_preproc.R

In envima/GEDItools:

# Description:
# Author: Alice Ziegler
# Date: 2020-07-16 11:32:17
# to do:
rm(list=ls())

########################################################################################
###Presettings
########################################################################################
#####
###load packages
#####
library(getSpatialData)
#####
###set paths
#####
setwd(dirname(rstudioapi::getSourceEditorContext()[[2]]))
sub <- "/"
inpath <- "../data/"
outpath <- paste0("../data/", sub)

#####
###read files
#####

########################################################################################
###Settings
########################################################################################
login_CopHub(username = "aliceziegler")
aoi <- matrix(data = c(8.460928, 8.835955, 8.835955, 8.460928,
                       50.924463,  50.924463, 50.742007, 50.742007),
              nrow = 4, ncol = 2)
set_aoi(aoi)
set_archive("C:/Users/Alice/Uni/Projekte/GEDI/data/Sentinel2")
########################################################################################
########################################################################################
########################################################################################
###Do it (Don't change anything past this point except you know what you are doing!) ###
########################################################################################
########################################################################################
########################################################################################
services()
get_product()


##for loop um daten
records <- get_records(aoi = aoi, time_range = c("2020-03-15", "2020-06-30"),
                       products = c("Sentinel-2"), as_sf = F)
records <- records[records$level == "Level-2A" & records$cloudcov < 10,]
records <- calc_cloudcov(records)
view_records(records)
records <- get_previews(records)
view_previews(records[13,])
records <- select_unitemporal(records, max_sub_period = 2)