1
setMethodS3("rsource", "default", function(file, path=NULL, envir=parent.frame(), output="", buffered=FALSE, ...) {
2 1
  rcat(file=file, path=path, envir=envir, output=output, buffered=buffered, ...)
3
}) # rsource()
4

5
setMethodS3("rsource", "RspString", function(..., envir=parent.frame(), output="", buffered=FALSE) {
6 0
  rcat(..., envir=envir, output=output, buffered=buffered)
7
}, protected=TRUE) # rsource()
8

9
setMethodS3("rsource", "RspDocument", rsource.RspString)
10
setMethodS3("rsource", "RspRSourceCode", rsource.RspString)
11
setMethodS3("rsource", "function", rsource.RspString)
12
setMethodS3("rsource", "expression", rsource.RspString)

Read our documentation on viewing source code .

Loading