The R Project SVN R

Rev

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

Rev 73938 Rev 73942
Line 132... Line 132...
132 
invisible(force(.signalSimpleWarning))
 132 
invisible(force(.signalSimpleWarning))
133 
invisible(force(.handleSimpleError))
 133 
invisible(force(.handleSimpleError))
134 
invisible(force(.tryResumeInterrupt))
 134 
invisible(force(.tryResumeInterrupt))
135 
 
 135 
 
136 
local({
 136 
local({
- 
 
 137 
    assignWrapped <- function(x, method, home, envir) {
- 
 
 138 
        method <- method                # force evaluation
- 
 
 139 
        home <- home                    # force evaluation
- 
 
 140 
        delayedAssign(x, get(method, envir = home), assign.env = envir)
- 
 
 141 
    }
137 
    methods <- paste0(.S3_methods_table[, 1L], ".",
 142 
    methods <- paste0(.S3_methods_table[, 1L], ".",
138 
                      .S3_methods_table[, 2L])
 143 
                      .S3_methods_table[, 2L])
139 
    env <- .BaseNamespaceEnv
 144 
    env <- .BaseNamespaceEnv
140 
    table <- env[[".__S3MethodsTable__."]]
 145 
    table <- env[[".__S3MethodsTable__."]]
141 
    for(m in methods)
 146 
    for(m in methods)
142 
        assign(m, get(m, env), envir = table)
 147 
        assignWrapped(m, m, env, table)
143 
})
 148 
})