R/agrins-data.R

Defines functions data_crop data_rice data_ibli .data_agrins

.data_agrins <- function(name) {
	name <- tolower(name[1])
	n <- nchar(name)
	x <- .get_data(name) 
	if (class(x) == "data.frame") return(x)
	if (class(x) == "SpatVector") return(terra::vect(x))
	x
}


data_ibli <- function(name, path) {
	name <- tolower(name)

	if (name == "marsabit_modis_ndvi") {
		if (missing(path)) {
			stop("provide a path (where the data should be stored)")
		}
		ff <- .get_zip(path, "https://biogeo.ucdavis.edu/data/reagro/marsabit_modis_ndvi.zip", "16fe5aa1e4080725d0b6cce123f25bf4", "^MOD09A1.*ndvi\\.tif$", 360)
		return(ff)
	} else {
		.get_data(name, "ibli", ext="")
	}
}


data_rice <- function(name, path=".") {
	if (name == "MODIS") {
		ff <- .get_zip(path, "https://biogeo.ucdavis.edu/data/reagro/tza_rice_MOD09A1_2000_2019_vi.zip", "f01c45ca001f24e4c5f5b0dd6eb2b475", "\\.tif$", 1806)
		return(ff)
	} else {
		.get_data(name, "rice", ext="")
	}
}


data_crop <- function(name, path) {
	name <- tolower(name)
	if (name %in% c("xxxcrop_ref")) {
		.get_shp(name, "crop")	
	} else if (name == "sentinel") {
		if (missing(path)) {
			stop("provide a path (where the data should be stored)")
		}
		ff <- .get_zip(path, "https://biogeo.ucdavis.edu/data/reagro/sentinel.zip", "d4d285303e8f1fefe48867b2b10796c7", "^S1A.*_Clip.tif$", 29, quiet=TRUE)	
		return(ff)
		
	} else {
		.get_data(name, "crop")
	}
}
reagro/reagrodata documentation built on July 4, 2022, 7:43 a.m.