# 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)