| Line 1... |
Line 1... |
| 1 |
|
1 |
|
| 2 |
R Under development (unstable) (2013-07-06 r63201) -- "Unsuffered Consequences"
|
2 |
R Under development (unstable) (2013-07-06 r63204) -- "Unsuffered Consequences"
|
| 3 |
Copyright (C) 2013 The R Foundation for Statistical Computing
|
3 |
Copyright (C) 2013 The R Foundation for Statistical Computing
|
| 4 |
Platform: x86_64-unknown-linux-gnu (64-bit)
|
4 |
Platform: x86_64-apple-darwin12.4.0/x86_64 (64-bit)
|
| 5 |
|
5 |
|
| 6 |
R is free software and comes with ABSOLUTELY NO WARRANTY.
|
6 |
R is free software and comes with ABSOLUTELY NO WARRANTY.
|
| 7 |
You are welcome to redistribute it under certain conditions.
|
7 |
You are welcome to redistribute it under certain conditions.
|
| 8 |
Type 'license()' or 'licence()' for distribution details.
|
8 |
Type 'license()' or 'licence()' for distribution details.
|
| 9 |
|
9 |
|
| Line 6398... |
Line 6398... |
| 6398 |
"not the same"
|
6398 |
"not the same"
|
| 6399 |
> print.function <- function(x, ...) { str(x,...); invisible(x) }
|
6399 |
> print.function <- function(x, ...) { str(x,...); invisible(x) }
|
| 6400 |
> print.function
|
6400 |
> print.function
|
| 6401 |
function (x, ...)
|
6401 |
function (x, ...)
|
| 6402 |
- attr(*, "srcref")=Class 'srcref' atomic [1:8] 1 19 1 63 19 63 1 1
|
6402 |
- attr(*, "srcref")=Class 'srcref' atomic [1:8] 1 19 1 63 19 63 1 1
|
| 6403 |
.. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x30a4940>
|
6403 |
.. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x7fe741ccaa28>
|
| 6404 |
> f
|
6404 |
> f
|
| 6405 |
function ()
|
6405 |
function ()
|
| 6406 |
- attr(*, "srcref")=Class 'srcref' atomic [1:8] 1 17 1 28 17 28 1 1
|
6406 |
- attr(*, "srcref")=Class 'srcref' atomic [1:8] 1 17 1 28 17 28 1 1
|
| 6407 |
.. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x3131e30>
|
6407 |
.. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x7fe741d1a0d8>
|
| 6408 |
- attr(*, "note")= chr "just a note"
|
6408 |
- attr(*, "note")= chr "just a note"
|
| 6409 |
- attr(*, "yada")=function ()
|
6409 |
- attr(*, "yada")=function ()
|
| 6410 |
..- attr(*, "srcref")=Class 'srcref' atomic [1:8] 2 24 2 48 24 48 2 2
|
6410 |
..- attr(*, "srcref")=Class 'srcref' atomic [1:8] 2 24 2 48 24 48 2 2
|
| 6411 |
.. .. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x3131e30>
|
6411 |
.. .. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x7fe741d1a0d8>
|
| 6412 |
> rm(print.function)
|
6412 |
> rm(print.function)
|
| 6413 |
> ## auto-printing and printing differed up to R 2.9.x
|
6413 |
> ## auto-printing and printing differed up to R 2.9.x
|
| 6414 |
>
|
6414 |
>
|
| 6415 |
> printCoefmat(cbind(0,1))
|
6415 |
> printCoefmat(cbind(0,1))
|
| 6416 |
[,1] [,2]
|
6416 |
[,1] [,2]
|
| Line 6895... |
Line 6895... |
| 6895 |
[1] TRUE
|
6895 |
[1] TRUE
|
| 6896 |
> ## R < 2.15.1 got these as FALSE, TRUE, FALSE.
|
6896 |
> ## R < 2.15.1 got these as FALSE, TRUE, FALSE.
|
| 6897 |
>
|
6897 |
>
|
| 6898 |
>
|
6898 |
>
|
| 6899 |
> library("methods")# (not needed here)
|
6899 |
> library("methods")# (not needed here)
|
| 6900 |
> assertCondition <- tools::assertCondition
|
6900 |
> assertError <- tools::assertError
|
| 6901 |
> assertCondition( getMethod(ls, "bar", fdef=ls), "error", verbose=TRUE)
|
6901 |
> assertError( getMethod(ls, "bar", fdef=ls), verbose=TRUE)
|
| - |
|
6902 |
Asserted error: no generic function found for 'ls'
|
| 6902 |
> assertCondition( getMethod(show, "bar"), "error", verbose=TRUE)
|
6903 |
> assertError( getMethod(show, "bar"), verbose=TRUE)
|
| - |
|
6904 |
Asserted error: no method found for function 'show' and signature bar
|
| 6903 |
> ## R < 2.15.1 gave
|
6905 |
> ## R < 2.15.1 gave
|
| 6904 |
> ## cannot coerce type 'closure' to vector of type 'character'
|
6906 |
> ## cannot coerce type 'closure' to vector of type 'character'
|
| 6905 |
>
|
6907 |
>
|
| 6906 |
>
|
6908 |
>
|
| 6907 |
> ## corner cases for array
|
6909 |
> ## corner cases for array
|