|
new file 100644
|
|
|
arg <- commandArgs(TRUE)
|
|
|
if (length(arg) < 2) {
|
|
|
stop("args")
|
|
|
}
|
|
|
|
|
|
conf <- arg[[1]]
|
|
|
sm <- as.integer(arg[[2]])
|
|
|
|
|
|
sys <- ifelse(R.Version()$major == 2L, "Renjin", "GNU R")
|
|
|
|
|
|
log.result <- function(...) {
|
|
|
con <- file("results.tsv", open="at")
|
|
|
writeLines(paste(c(...), collapse="\t"), con=con)
|
|
|
close(con)
|
|
|
}
|
|
|
|
|
|
|
|
|
clearResultRecycler <- function() {
|
|
|
if (sys == "Renjin") {
|
|
|
import(org.renjin.compiler.pipeline.optimize.AggregationRecycler)$clear()
|
|
|
print("cleaned aggregation cache")
|
|
|
}
|
|
|
}
|
|
|
|