34 lines
851 B
R
34 lines
851 B
R
library(rSHUD)
|
|
library(xts)
|
|
dir.in = '/home/leleshu/aFusion/CMFD_RDS'
|
|
dir.out = '/data/ForcingData/CMFD_csv'
|
|
|
|
yrs = 1980:2018
|
|
ny=length(yrs)
|
|
|
|
for(i in 1:ny){
|
|
yr = yrs[i]
|
|
cdir = file.path(dir.in, yr)
|
|
fns = list.files(cdir, pattern = glob2rx('X*Y*.RDS'), recursive = TRUE,
|
|
full.names = TRUE)
|
|
nfn = length(fns)
|
|
message(i, '/', ny, '\t', yr, '\t', nfn)
|
|
if(nfn > 0){
|
|
dir.create(file.path(dir.out, yr), showWarnings = FALSE, recursive = TRUE)
|
|
for(j in 1:nfn){
|
|
fn.in = fns[i]
|
|
sn = basename(fn.in)
|
|
fn.out = file.path(dir.out, yr, paste0(substr(sn, 1, nchar(sn)-4), '.csv') )
|
|
if(file.exists(fn.out)){
|
|
message('\t', j , '/', nfn, '\t', fn.out, ' !!exist!!')
|
|
}else{
|
|
message('\t', j , '/', nfn, '\t', fn.out)
|
|
x=readRDS(fn.in)
|
|
write.xts(round(x, 4), file=fn.out)
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|