The R Project SVN R

Rev

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

Rev 77335 Rev 77431
Line 1... Line 1...
1 
 
 1 
 
2 
R Under development (unstable) (2019-10-26 r77334) -- "Unsuffered Consequences"
 2 
R Under development (unstable) (2019-11-17 r77430) -- "Unsuffered Consequences"
3 
Copyright (C) 2019 The R Foundation for Statistical Computing
 3 
Copyright (C) 2019 The R Foundation for Statistical Computing
4 
Platform: x86_64-pc-linux-gnu (64-bit)
 4 
Platform: x86_64-pc-linux-gnu (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.
Line 6346... Line 6346...
6346 
    callObj <- quote(callFunc())
 6346 
    callObj <- quote(callFunc())
6347 
    if(!is.null(given)) callObj$given <- given
 6347 
    if(!is.null(given)) callObj$given <- given
6348 
    if (is.null(given)) callObj$default <- TRUE
 6348 
    if (is.null(given)) callObj$default <- TRUE
6349 
    callObj
 6349 
    callObj
6350 
}
 6350 
}
6351 
<bytecode: 0x3677870>
 6351 
<bytecode: 0x2e3ad88>
6352 
> print(foo, useSource = FALSE)
 6352 
> print(foo, useSource = FALSE)
6353 
function (given = NULL)
6353 
function (given = NULL)
6354 
{
 6354 
{
6355 
    callObj <- quote(callFunc())
 6355 
    callObj <- quote(callFunc())
6356 
    if (!is.null(given))
6356 
    if (!is.null(given))
6357 
        callObj$given <- given
 6357 
        callObj$given <- given
6358 
    if (is.null(given))
6358 
    if (is.null(given))
6359 
        callObj$default <- TRUE
 6359 
        callObj$default <- TRUE
6360 
    callObj
 6360 
    callObj
6361 
}
 6361 
}
6362 
<bytecode: 0x3677870>
 6362 
<bytecode: 0x2e3ad88>
6363 
> attr(foo, "srcref") <- NULL
 6363 
> attr(foo, "srcref") <- NULL
6364 
> foo
 6364 
> foo
6365 
function (given = NULL)
6365 
function (given = NULL)
6366 
{
 6366 
{
6367 
    callObj <- quote(callFunc())
 6367 
    callObj <- quote(callFunc())
Line 6369... Line 6369...
6369 
        callObj$given <- given
 6369 
        callObj$given <- given
6370 
    if (is.null(given))
6370 
    if (is.null(given))
6371 
        callObj$default <- TRUE
 6371 
        callObj$default <- TRUE
6372 
    callObj
 6372 
    callObj
6373 
}
 6373 
}
6374 
<bytecode: 0x3677870>
 6374 
<bytecode: 0x2e3ad88>
6375 
> (f <- structure(function(){}, note = "just a note",
 6375 
> (f <- structure(function(){}, note = "just a note",
6376 
+                 yada = function() "not the same"))
 6376 
+                 yada = function() "not the same"))
6377 
function(){}
 6377 
function(){}
6378 
attr(,"note")
 6378 
attr(,"note")
6379 
[1] "just a note"
 6379 
[1] "just a note"