73 lines
1.9 KiB
R
73 lines
1.9 KiB
R
#' ===============================================================
|
|
#' Author: Lele Shu <shulele@lzb.ac.cn>
|
|
#' Date: 2023.02.03
|
|
#' Function: The AutoSHUD function
|
|
#'
|
|
#' ===============================================================
|
|
#'
|
|
wdir = file.path(CV$dirs$deploy)
|
|
source(file.path(CV$dirs$deploy, 'Step1_RawDataProcessng.R'))
|
|
source(file.path(CV$dirs$deploy, 'Step2_DataSubset.R'))
|
|
source(file.path(CV$dirs$deploy, 'Step3_BuidModel.R'))
|
|
source(file.path(CV$dirs$deploy, 'Rfunction/ReadProject.R'))
|
|
|
|
GetReady.AutoSHUD <- function(CV){
|
|
xfg <- read.prj(CV)
|
|
|
|
if( !is.null(xfg$fsp.lake) ){
|
|
LAKEON = TRUE
|
|
}else{
|
|
LAKEON = FALSE
|
|
}
|
|
|
|
pre.sp = list(
|
|
dem = 'dem.tif',
|
|
wbd = 'wbd.shp',
|
|
wbd.buf = 'wbd_buf.shp',
|
|
stm = 'stm.shp',
|
|
lake = 'lake.shp',
|
|
|
|
soil.r = 'soil.tif',
|
|
soil.idx = 'soil_idx.tif',
|
|
|
|
geol.r = 'geol.tif',
|
|
geol.idx = 'geol_idx.tif',
|
|
|
|
soil.v = 'soil.shp',
|
|
geol.v = 'geol.shp',
|
|
|
|
lu.r = 'landuse.tif',
|
|
lu.idx = 'landuse_idx.tif',
|
|
lu.v = 'landuse.shp',
|
|
|
|
meteo = 'meteo.shp',
|
|
meteoCov = 'meteoCov.shp')
|
|
dir.pd.pcs = file.path(xfg$dir$predata,'PCS')
|
|
dir.pd.gcs = file.path(xfg$dir$predata,'GCS')
|
|
|
|
dir.create(dir.pd.pcs, showWarnings = FALSE, recursive = TRUE)
|
|
dir.create(dir.pd.gcs, showWarnings = FALSE, recursive = TRUE)
|
|
|
|
pd.pcs = lapply(1:length(pre.sp), function(x){ file.path(dir.pd.pcs, pre.sp[[x]])} )
|
|
names(pd.pcs) = names(pre.sp)
|
|
|
|
pd.gcs = lapply(1:length(pre.sp), function(x){ file.path(dir.pd.gcs, pre.sp[[x]])} )
|
|
names(pd.gcs) = names(pre.sp)
|
|
|
|
pd.att <- list(
|
|
geol = file.path(xfg$dir$predata,'GEOL.csv'),
|
|
soil = file.path(xfg$dir$predata,'SOIL.csv'),
|
|
landuse = file.path(xfg$dir$predata,'LANDUSE.csv')
|
|
)
|
|
|
|
xfg$LAKEON=LAKEON
|
|
xfg$pd.att=pd.att
|
|
xfg$pd.pcs=pd.pcs
|
|
xfg$pd.gcs=pd.gcs
|
|
|
|
cv = CV
|
|
cv$deploy = utils::modifyList(CV$deploy, xfg)
|
|
return(cv)
|
|
}
|
|
|