|
|
| (One intermediate revision by one other user not shown) |
| 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"
| |
| − | >
| |
| − | # 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">
| |
| − | # 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
Description
fetch downloads a variable.
Code
https://www.opasnet.org/svn/opasnet_utils/trunk/R/Fetch.r
See also
