if (FALSE) { # googledrive::drive_has_token()
data("sample_extent_data")
# Set extraction variables
projectiondates <- dynamic_proj_dates("2018-01-01", "2018-12-01", interval = 3,interval.level =
"month")
variablenames <- c("eight_sum_prec", "year_sum_prec")
spatial.res.metres <- 500
cov_resolution <- 0.05
# Get Google Drive email
user.email<-as.character(gargle::gargle_oauth_sitrep()$email)
# \dontshow{
projectiondates <- projectiondates[1]
spatial.res.metres <-20000
cov_resolution <- 5
# }
extract_dynamic_raster(dates=projectiondates,
datasetname = "UCSB-CHG/CHIRPS/DAILY",
bandname="precipitation",
user.email = user.email,
spatial.res.metres = spatial.res.metres,
GEE.math.fun = "sum",
temporal.direction = "prior",
temporal.res = 56,
spatial.ext = sample_extent_data,
varname = variablenames[1],
save.directory = tempdir())
extract_dynamic_raster(dates=projectiondates,
datasetname = "UCSB-CHG/CHIRPS/DAILY",
bandname="precipitation",
user.email = user.email,
spatial.res.metres = spatial.res.metres,
GEE.math.fun = "sum",
temporal.direction = "prior",
temporal.res = 364,
spatial.ext = sample_extent_data,
varname = variablenames[2],
save.directory = tempdir())
dynamic_proj_covariates(dates = projectiondates,
varnames = variablenames,
local.directory = tempdir(),
spatial.ext = sample_extent_data,
spatial.mask = sample_extent_data,
spatial.res.degrees = cov_resolution,
resample.method = c("bilinear","bilinear"),
cov.file.type = "csv",
prj="+proj=longlat +datum=WGS84",
save.directory = tempdir())
}
Run the code above in your browser using DataLab