The R Project SVN R

Rev

Rev 60595 | Rev 67599 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 60595 Rev 61150
Line 56... Line 56...
56 
do.call("complex", list(imag = 1:3))
 56 
do.call("complex", list(imag = 1:3))
57 
 
 57 
 
58 
## if we already have a list (e.g. a data frame)
 58 
## if we already have a list (e.g. a data frame)
59 
## we need c() to add further arguments
 59 
## we need c() to add further arguments
60 
tmp <- expand.grid(letters[1:2], 1:3, c("+", "-"))
 60 
tmp <- expand.grid(letters[1:2], 1:3, c("+", "-"))
61 
do.call("paste", c(tmp, sep=""))
 61 
do.call("paste", c(tmp, sep = ""))
62 
 
 62 
 
63 
do.call(paste, list(as.name("A"), as.name("B")), quote=TRUE)
 63 
do.call(paste, list(as.name("A"), as.name("B")), quote = TRUE)
64 
 
 64 
 
65 
## examples of where objects will be found.
 65 
## examples of where objects will be found.
66 
A <- 2
 66 
A <- 2
67 
f <- function(x) print(x^2)
 67 
f <- function(x) print(x^2)
68 
env <- new.env()
 68 
env <- new.env()
69 
assign("A", 10, envir = env)
 69 
assign("A", 10, envir = env)
70 
assign("f", f, envir = env)
 70 
assign("f", f, envir = env)
71 
f <- function(x) print(x)
 71 
f <- function(x) print(x)
72 
f(A)                                    # 2
 72 
f(A)                                      # 2
73 
do.call("f", list(A))                   # 2
 73 
do.call("f", list(A))                     # 2
74 
do.call("f", list(A), envir=env)        # 4
 74 
do.call("f", list(A), envir = env)        # 4
75 
do.call(f, list(A), envir=env)          # 2
 75 
do.call(f, list(A), envir = env)          # 2
76 
do.call("f", list(quote(A)), envir=env) # 100
 76 
do.call("f", list(quote(A)), envir = env) # 100
77 
do.call(f, list(quote(A)), envir=env)   # 10
 77 
do.call(f, list(quote(A)), envir = env)   # 10
78 
do.call("f", list(as.name("A")), envir=env) # 100
 78 
do.call("f", list(as.name("A")), envir = env) # 100
79 
 
 79 
 
80 
eval(call("f", A))                      # 2
 80 
eval(call("f", A))                      # 2
81 
eval(call("f", quote(A)))               # 2
 81 
eval(call("f", quote(A)))               # 2
82 
eval(call("f", A), envir=env)           # 4
 82 
eval(call("f", A), envir = env)         # 4
83 
eval(call("f", quote(A)), envir=env)    # 100
 83 
eval(call("f", quote(A)), envir = env)  # 100
84 
}
 84 
}
85 
\keyword{programming}
 85 
\keyword{programming}