32 lines
646 B
R
32 lines
646 B
R
# setwd('/home/wwwroot/r')
|
|
library(rjson)
|
|
library(utils)
|
|
library(rgdal)
|
|
library(raster)
|
|
library(rSHUD)
|
|
require(ncdf4)
|
|
library(sp)
|
|
library(rgeos)
|
|
library(lattice)
|
|
library(ggplot2)
|
|
# library(GGally)
|
|
library(hydroTSM)
|
|
library(hydroGOF)
|
|
library(whitebox)
|
|
library(terra)
|
|
library(sf)
|
|
|
|
# this.dir <- dirname(parent.frame(2)$ofile)
|
|
# setwd(this.dir)
|
|
go.source <- function(){
|
|
cdir = 'functions'
|
|
fns = list.files(cdir, pattern = glob2rx('*.R'), full.names = TRUE, recursive = TRUE)
|
|
nf=length(fns)
|
|
for(i in 1:nf){
|
|
fn = fns[i]
|
|
message(i, '/', nf, '\t', fn)
|
|
source(fn)
|
|
}
|
|
};
|
|
go.source()
|
|
unlink(x = "./confirmData/_.txt", force = TRUE) |