| Moderator:Nobody (see all) Click here to sign up. |
| This page is a stub. You may improve it into a full page. |
| Upload data
|
fetch downloads a variable.
# FETCH ##################### fetch downloads a variable.
fetch <- function(x, direction = "wide") { # Could think of a version where dependencies table is given as a parameter, and based on Name, Identifier is downloaded from the Base.
x <- as.character(x)
if(exists(x)) {
out <- get(x)
} else {
out <- tidy(op_baseGetData("opasnet_base", x), direction = "wide")
}
return(out)
}
|
----#: . Fetch should take 'dependencies' as argument and download variables to global memory. Fetch2 does that and I move to suggest that we replace fetch with Fetch2 --Teemu R 11:28, 15 June 2012 (EEST) (type: truth; paradigms: science: comment)
# Fetch2 #################### loads all given dependencies to global memory
Fetch2 <- function(dependencies, evaluate = FALSE) {
for (i in 1:nrow(dependencies)) {
if(!exists(dependencies$Name[i])) {
objects.get(dependencies$Key[i]) # Key is the R-tools session identifier (shown at the end of the url)
if (evaluate) get(dependencies$Name[i])@output <- EvalOutput(get(dependencies$Name[i]))
# Eval not necessarily needed at this point
}
}
}
|