## need node_modules directories
setwd('..')
dot_is <- getwd()
node_paths <- dir(dot_is,pattern='\\.Rlibs',
full.names=TRUE,recursive=TRUE,
ignore.case=TRUE,include.dirs=TRUE,
all.files = TRUE)
path <- normalizePath(node_paths, winslash = "/", mustWork = FALSE)
lib_paths <- .libPaths()
.libPaths(c(path, lib_paths))
print(.libPaths())
## need env for test file
config_file <- Sys.getenv('R_CONFIG')
if(config_file == ''){
config_file <- 'config.json'
}
print(paste ('using config file =',config_file))
config <- rcouchutils::get.config(config_file)
## pass it the raw data details, and either the raw data will get
## loaded and parsed and saved as a dataframe, or else the existing
## dataframe will get loaded. In either case, the plots will get made
## and saved to couchdb
library('RPostgreSQL')
m <- dbDriver("PostgreSQL")
con <- dbConnect(m
,user=config$postgresql$auth$username
,host=config$postgresql$host
,port=config$postgresql$port
,dbname=config$postgresql$db)
seconds <- 3600
year = as.numeric(Sys.getenv(c('RYEAR'))[1])
if('' == year){
print('assign the year to process to the RYEAR environment variable')
stop(1)
}
wim.site <- Sys.getenv(c('WIM_SITE'))[1]
if('' == wim.site){
print('assign a valid site to the WIM_SITE environment variable')
stop(1)
}
wim.path <- Sys.getenv(c('WIM_PATH'))[1]
if('' == wim.path){
print('assign a valid direectory to the WIM_PATH environment variable')
stop(1)
}
plot <- as.numeric(Sys.getenv(c('WIM_PLOT_PRE'))[1])
if( '' != plot && plot==0){
plot <- FALSE
}else{
plot <- TRUE
}
postplot <- as.numeric(Sys.getenv(c('WIM_PLOT_POST'))[1])
if('' != postplot && postplot==0){
postplot <- FALSE
}else{
postplot <- TRUE
}
impute <- as.numeric(Sys.getenv(c('WIM_IMPUTE'))[1])
if( '' != impute && impute==0){
impute <- FALSE
}else{
impute <- TRUE
}
force.plot <- as.numeric(Sys.getenv(c('WIM_FORCE_PLOT'))[1])
if( !is.na(force.plot) && ('' != force.plot || force.plot==0)){
force.plot <- FALSE
}else{
force.plot <- TRUE
}
print(force.plot)
trackingdb <- config$couchdb$trackingdb
list.df.wim.amelia <- calvadrscripts::process.wim.site(
wim.site=wim.site,
year=year,
seconds=seconds,
impute=impute,
preplot=plot,
postplot=postplot,
force.plot=force.plot,
wim.path=wim.path,
trackingdb=trackingdb,
con=con
)
dbDisconnect(con)
quit(save='no',status=10)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.