1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
setDTthreads = function(threads=NULL, restore_after_fork=NULL, percent=NULL, throttle=NULL) {
if (!missing(percent)) {
if (!missing(threads)) stop("Provide either threads= or percent= but not both")
if (length(percent)!=1) stop("percent= is provided but is length ", length(percent))
percent=as.integer(percent)
if (is.na(percent) || percent<2L || percent>100L) stop("percent==",percent," but should be a number between 2 and 100")
invisible(.Call(CsetDTthreads, percent, restore_after_fork, TRUE, as.integer(throttle)))
} else {
invisible(.Call(CsetDTthreads, as.integer(threads), restore_after_fork, FALSE, as.integer(throttle)))
}
}
getDTthreads = function(verbose=getOption("datatable.verbose")) {
.Call(CgetDTthreads, verbose)
}
|
