## library(doMC)
## registerDoMC(2)
## library(spTimer)
## need node_modules directories
dot_is <- getwd() # expect that this is one level up
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())
pkg <- devtools::as.package('.')
ns_env <- devtools::load_all(pkg,quiet = TRUE)$env
## 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)
library('RPostgreSQL')
m <- dbDriver("PostgreSQL")
spatialvds.con <- dbConnect(m
,user=config$postgresql$auth$username
,host=config$postgresql$host
,port=config$postgresql$port
,dbname=config$postgresql$db)
## do it
process.result <- run.preloading()
print(paste('done, quitting with',process.result))
if(process.result>1) process.result <- 10
quit(status=process.result)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.