21 lines
505 B
R
21 lines
505 B
R
|
|
# ======= dataSoilGeol ==========
|
|
dataSoilGeol <- function(CV, buf){
|
|
buf=readOGR(CV$files$buf.gcs)
|
|
if( grepl('HWSD', toupper(CV$json$soil_data))){
|
|
|
|
fnr = file.path(CV$serv$PATH2SD, 'Soil/HWSD/HWSD_RASTER/hwsd.bil')
|
|
r=raster(fnr)
|
|
rsub = crop(r, buf)
|
|
soil.att = '/Volumes/SpatialData/World/Soil/HWSD/HWSD_RASTER/hwsd.csv'
|
|
}
|
|
}
|
|
|
|
# ======= dataLanduse ==========
|
|
dataLanduse <- function(CV, buf){
|
|
|
|
}
|
|
# ======= dataLDSACoverage ==========
|
|
dataLDSACoverage <- function(CV, buf){
|
|
|
|
} |