Nothing
.packageName <- "speedR"
.speedRInitialized <- FALSE
.onLoad <- function(libname, pkgname){
.speedRInitialized <<- FALSE
}
speedR.init<-function(maxmemory = NULL,loglevel = "WARNING",debug = FALSE){
if(!.speedRInitialized){
jvmparameters = c()
if(debug){
jvmparameters = c("-agentlib:jdwp=transport=dt_socket,server=y,address=localhost:8001")
}
if(!is.null(maxmemory)){
jvmparameters = c(jvmparameters,paste("-Xmx",maxmemory,"m",sep=""))
}
if(.Platform$OS.type == "windows" && nchar(.Platform$r_arch)){
jvmparameters = c(jvmparameters, paste("-Dr.arch=/",.Platform$r_arch,sep=''))
}
if(length(jvmparameters)>0){
options(java.parameters = jvmparameters)
}
.jpackage(name="speedRlibs")
.jpackage(name="speedRlibTF")
.jpackage(name="speedR")
jarfolder <- system.file("jri", package = "rJava")
jars <- grep(".*\\.jar", list.files(jarfolder,full.names = TRUE), TRUE, value = TRUE)
if (length(jars))
.jaddClassPath(jars)
.jengine(start=TRUE)
init = FALSE
level = .jfield("java/util/logging/Level",,loglevel)
logdir <- system.file("log", package = "speedR")
tryCatch( init <- .jcall("at/ac/ait/speedr/SpeedRInit","Z",method="init",level),
Exception = function(e){
e$jobj$printStackTrace()
}
)
if(init)
.speedRInitialized <<- TRUE
else
stop("speedR could not be initialized")
}
}
speedR <- function(maxmemory = NULL,...){
speedR.init(maxmemory,...)
tryCatch( .jcall("at/ac/ait/speedr/SpeedRFrame","V",method="main",.jarray(character(0))),
Exception = function(e){
e$jobj$printStackTrace()
}
)
}
speedR.importany <-
function(file=NULL,rowstart=NULL,rowend=NULL,colstart=NULL,colend=NULL,
hasRowNames = FALSE, rowNamesColumnIndex = NULL,hasColumnNames = FALSE,
columnNamesRowIndex = NULL, separator = NULL, quote = NULL,colClasses = NULL,
maxmemory = NULL,...){
speedR.init(maxmemory,...)
if(is.null(file))
stop("Please give a valid file path argument")
if(! file.exists(file))
stop("file do not exists")
if(is.null(rowstart))
rowstart=.jnull("java/lang/Integer")
else
rowstart = .jnew("java/lang/Integer",as.character(rowstart))
if(is.null(rowend))
rowend=.jnull("java/lang/Integer")
else
rowend = .jnew("java/lang/Integer",as.character(rowend))
if(is.null(colstart))
colstart=.jnull("java/lang/Integer")
else
colstart = .jnew("java/lang/Integer",as.character(colstart))
if(is.null(colend))
colend=.jnull("java/lang/Integer")
else
colend = .jnew("java/lang/Integer",as.character(colend))
if(hasRowNames)
hasRowNames = .jnew("java/lang/Boolean",TRUE)
else
hasRowNames = .jnew("java/lang/Boolean",FALSE)
if(is.null(rowNamesColumnIndex))
rowNamesColumnIndex = .jnull("java/lang/Integer")
else
rowNamesColumnIndex = .jnew("java/lang/Integer",as.character(rowNamesColumnIndex))
if(hasColumnNames)
hasColumnNames = .jnew("java/lang/Boolean",TRUE)
else
hasColumnNames = .jnew("java/lang/Boolean",FALSE)
if(is.null(columnNamesRowIndex))
columnNamesRowIndex = .jnull("java/lang/Integer")
else
columnNamesRowIndex = .jnew("java/lang/Integer",as.character(columnNamesRowIndex))
if(is.null(separator))
separator = .jnull("java/lang/String")
if(is.null(quote))
quote = .jnull("java/lang/String")
if(is.null(colClasses))
colClasses = .jarray(character(0))
else
colClasses = .jarray(colClasses)
tryCatch(
.jcall("at/ac/ait/speedr/importany/ImporterAnyFunction","V",
method="importany",file,rowstart,rowend,colstart,colend,
hasRowNames,rowNamesColumnIndex,hasColumnNames,
columnNamesRowIndex,separator,quote,colClasses),
Exception = function(e){
e$printStackTrace()
}
)
res <- try(get(".speedrtemp",envir=.GlobalEnv))
if(class(res) == "try-error"){
.jcheck()
stop("")
}
remove(.speedrtemp,envir=.GlobalEnv)
res
}
.reloadworkspace <- function(){
supportedtypes = c("character","numeric","array","integer","table","matrix",
"data.frame","double","list","pairlist","Date","POSIXct")
objects <- ls(pos=1)
result <- NULL;
if (length(objects) > 0){
classes = c()
supportedobjects = c()
#dimANDlengthINFO = c()
for (i in 1:length(objects)) {
o <- get(objects[i])
cls <- class(o)
if( !is.null(o) && cls[1] %in% supportedtypes){
supportedobjects <- c(supportedobjects,objects[i])
if(cls[1] == "matrix"){
cls <- paste(cls,mode(o),sep=":")
}
classes <- c(classes,cls[1])
}
#o_dim = dim(o)
#if(is.null(o_dim) || length(o_dim) == 1){
# dimANDlengthINFO <- c(dimANDlengthINFO, length(o))
#}else{
# dimANDlengthINFO <- c(dimANDlengthINFO, o_dim)
#}
}
if(length(supportedobjects) > 0){
result <- data.frame(var_name = supportedobjects, var_cls = classes)
result$var_name <- as.character(supportedobjects)
result$var_cls <- as.character(classes)
}
}
result
}
.collectListOjectMetaData <- function(listobj){
result <- NULL;
children = names(listobj)
classes = c()
if(is.null(children)){
children = 1:length(listobj)
}
for (i in 1:length(listobj)) {
o <- listobj[[children[i]]]
cls <- class(o)
classes <- c(classes,cls[1])
}
if(length(classes) > 0){
result <- data.frame(var_name = children, var_cls = classes)
result$var_name <- as.character(children)
result$var_cls <- as.character(classes)
}
result
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.