Displaying 6 results from an estimated 6 matches for "bdexpr".
2020 Aug 19
2
utils::isS3stdGeneric chokes on primitives and identity
...According to the doc, any function is a legal input.
See below:
identity
#> function (x)
#> x
#> <bytecode: 0x0000000013d6da28>
#> <environment: namespace:base>
max
#> function (..., na.rm = FALSE) .Primitive("max")
isS3stdGeneric(identity)
#> Error in bdexpr[[1L]]: objet de type 'symbol' non indi?able
isS3stdGeneric(max)
#> Error in while (as.character(bdexpr[[1L]]) == "{") bdexpr <-
bdexpr[[2L]]: l'argument est de longueur nulle
Here is a simple fix :
isS3stdGeneric <- function(f) {
{
bdexpr <- body(f)
if...
2020 Aug 20
2
utils::isS3stdGeneric chokes on primitives and identity
>>>>> Gabriel Becker writes:
> I added that so I can look at the proposed fix and put it or something
> similar in bugzilla for review final review.
> Apologies for the oversight.
Fixed now with
- while(as.character(bdexpr[[1L]]) == "{")
+ while(is.call(bdexpr) && (as.character(bdexpr[[1L]]) == "{"))
(the suggested fix does not work on things like
foo <- function(x) {{ x }}
...)
Best
-k
> ~G
> On Wed, Aug 19, 2020 at 3:40 PM Antoine Fabri <antoine.fabri at gmail.com>...
2020 Aug 28
2
utils::isS3stdGeneric chokes on primitives and identity
...riel Becker writes:
>>
>> > I added that so I can look at the proposed fix and put it or something
>> > similar in bugzilla for review final review.
>>
>> > Apologies for the oversight.
>>
>> Fixed now with
>>
>> - while(as.character(bdexpr[[1L]]) == "{")
>> + while(is.call(bdexpr) && (as.character(bdexpr[[1L]]) == "{"))
>>
>> (the suggested fix does not work on things like
>> foo <- function(x) {{ x }}
>> ...)
>>
>> Best
>> -k
>>
>> > ~G...
2020 Aug 27
0
utils::isS3stdGeneric chokes on primitives and identity
...rit :
> >>>>> Gabriel Becker writes:
>
> > I added that so I can look at the proposed fix and put it or something
> > similar in bugzilla for review final review.
>
> > Apologies for the oversight.
>
> Fixed now with
>
> - while(as.character(bdexpr[[1L]]) == "{")
> + while(is.call(bdexpr) && (as.character(bdexpr[[1L]]) == "{"))
>
> (the suggested fix does not work on things like
> foo <- function(x) {{ x }}
> ...)
>
> Best
> -k
>
> > ~G
>
> > On Wed, Aug 19, 2020 at 3...
2020 Aug 29
0
utils::isS3stdGeneric chokes on primitives and identity
...;>> > I added that so I can look at the proposed fix and put it or something
>>> > similar in bugzilla for review final review.
>>>
>>> > Apologies for the oversight.
>>>
>>> Fixed now with
>>>
>>> - while(as.character(bdexpr[[1L]]) == "{")
>>> + while(is.call(bdexpr) && (as.character(bdexpr[[1L]]) == "{"))
>>>
>>> (the suggested fix does not work on things like
>>> foo <- function(x) {{ x }}
>>> ...)
>>>
>>> Best
>>&g...
2020 Aug 20
0
utils::isS3stdGeneric chokes on primitives and identity
...ee below:
>
> identity
> #> function (x)
> #> x
> #> <bytecode: 0x0000000013d6da28>
> #> <environment: namespace:base>
>
> max
> #> function (..., na.rm = FALSE) .Primitive("max")
>
> isS3stdGeneric(identity)
> #> Error in bdexpr[[1L]]: objet de type 'symbol' non indi?able
>
> isS3stdGeneric(max)
> #> Error in while (as.character(bdexpr[[1L]]) == "{") bdexpr <-
> bdexpr[[2L]]: l'argument est de longueur nulle
>
> Here is a simple fix :
>
> isS3stdGeneric <- function(f)...