1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
.tmpfunction <- function(...)
stop("This function callback has not been defined yet")
Key <- function(...) {
.tmpfunction(...)
}
environment(Key) <- new.env()
.setKey <- function(x) {
environment(Key)$.tmpfunction <- x
}
Key2 <- function(...)
.tmpfunction(...)
environment(Key2) <- new.env()
.setKey2 <- function(x)
environment(Key2)$.tmpfunction <- x
sKey <- function(...)
.tmpfunction(...)
environment(sKey) <- new.env()
.setsKey <- function(x)
environment(sKey)$.tmpfunction <- x
|
