Re: [Rd] bug report for as.function (PR#7702)

From: <murdoch_at_stats.uwo.ca>
Date: Fri 25 Feb 2005 - 02:28:16 EST


On Thu, 24 Feb 2005 15:59:13 +0100 (CET), becker@kfs.oeaw.ac.at wrote :

>Hi,
>
>I got the following message in R:
>Error in as.function.default(pdfs[1]) : invalid body argument for "function"
>Should NEVER happen; please bug.report() [mkCLOSXP]

A simpler version is as follows:

> x1 <- list(function() 1)
> x1

[[1]]
function() 1

> as.function(x1)

Error in as.function.default(x1) : invalid body argument for "function"
Should NEVER happen; please bug.report() [mkCLOSXP]

The problem is that as.function doesn't know how to handle an object of mode function as the body of a function. It expects a function definition to be a call instead:

> x2 <- as.list(function() function() 1)
> x2

[[1]]
function() 1

> as.function(x2) # no problem this time
function ()
function() 1
> mode(x1)

[1] "list"
> mode(x1[[1]])

[1] "function"
> mode(x2)

[1] "list"
> mode(x2[[1]]) # notice the difference from x1[[1]]
[1] "call"

These tests were done in

>platform i386-pc-mingw32
>arch i386
>os mingw32
>system i386, mingw32
>status Under development (unstable)
>major 2
>minor 1.0
>year 2005
>month 02
>day 24
>language R

Could someone else please deal with this? I have trouble with test builds right now.

Duncan Murdoch



R-devel@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel Received on Fri Feb 25 01:34:14 2005

This archive was generated by hypermail 2.1.8 : Fri 25 Feb 2005 - 02:39:45 EST