The R Project SVN R

Rev

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

Rev 63202 Rev 63205
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