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
26
27
28
29
30
|
simulatehook_multiple_inputs <- function(x,data,...) {
minp <- x$attributes$multiple.inputs
if (length(minp)>0) {
for (i in seq_along(minp)) {
outcome <- names(minp[i])
inp <- minp[[i]]$input
fun <- minp[[i]]$fun
data[,outcome] <- fun(x, data, inp)
}
}
return(data)
}
addhook("simulatehook_multiple_inputs","sim.hooks")
printhook_multiple_inputs <- function(x,...) {
minp <- x$attributes$multiple.inputs
if (length(minp)>0) {
outcomes <- names(minp)
for (i in seq_along(minp)) {
cat(minp[[i]]$type, ":\n\n")
st <- paste0(outcomes[i]," ~ ", paste0(minp[[i]]$input,collapse=" | "))
cat(" ", st, "\n")
cat("\n")
}
}
return(NULL)
}
addhook("printhook_multiple_inputs","print.hooks")
|
