|
|
| Line 8: |
Line 8: |
| ==Code== | | ==Code== |
|
| |
|
| <rcode
| | https://www.opasnet.org/svn/opasnet_utils/trunk/R/Fetch.r |
| name="answer"
| |
| label="Initiate functions"
| |
| graphics="1"
| |
| showcode="1"
| |
| >
| |
| # 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)
| |
| }
| |
| | |
| </rcode>
| |
| | |
| === Alternative ===
| |
| | |
| {{comment|# |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|--[[User:Teemu R|Teemu R]] 11:28, 15 June 2012 (EEST)}}
| |
| | |
| <rcode
| |
| label="Initiate functions"
| |
| showcode="1"
| |
| >
| |
| # 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
| |
| }
| |
| }
| |
| }
| |
| </rcode>
| |
|
| |
|
| ==See also== | | ==See also== |
Latest revision as of 13:35, 16 August 2012