From wdunlap at tibco.com  Sat Mar  4 21:43:58 2017
From: wdunlap at tibco.com (William Dunlap)
Date: Sat, 4 Mar 2017 12:43:58 -0800
Subject: [Rd] can we override "if" in R?
In-Reply-To: <CAOQ5Nyeyy60U+q0fp9M_QyrQRkb6ynNMzWzWgUWXxVXFzGUVJQ@mail.gmail.com>
References: <CAFLer83hbY+3QEfoukAmt4Hy77P5=NyW3a+pyigV0CJVjzjYdA@mail.gmail.com>
	<CABtg=KkmsPVZc0Y-Rru5+DkzLHabrkVDOZWcip5jhYHD-D4HZg@mail.gmail.com>
	<CAFLer83OTdZQq+=Uj5g7fqmph8-FWwa7pFSMmz_dhcKhs8DuCA@mail.gmail.com>
	<CABtg=Kn83hAzBGyJkVrWciAYadJDsT2GmLPY4OF2_o30cxG1Ww@mail.gmail.com>
	<CAFLer83n1uv_14fLBYg78CkAKiEUsMjeSXObto7gSyS+0TTfpA@mail.gmail.com>
	<CAOQ5Nyeyy60U+q0fp9M_QyrQRkb6ynNMzWzWgUWXxVXFzGUVJQ@mail.gmail.com>
Message-ID: <CAF8bMcZfCD5ADzyaxuSF314AiDfCKR6d36pRoX6Ckc2t+h2MPw@mail.gmail.com>

dplyr::translate_sql() redefines lots of functions, include "if", to
translate from R syntax to SQL syntax.

> dplyr::translate_sql(if ("mpg">25) "better" else "worse")
<SQL> CASE WHEN ('mpg' > 25.0) THEN ('better') ELSE ('worse') END

Bill Dunlap
TIBCO Software
wdunlap tibco.com


On Sat, Mar 4, 2017 at 12:22 PM, Michael Lawrence
<lawrence.michael at gene.com> wrote:
> I'm curious as to precisely why someone would want to do this.
>
> On Sat, Mar 4, 2017 at 11:49 AM, Da Zheng <zhengda1936 at gmail.com> wrote:
>
>> I'm just curious. Why making "if" generic is even more dangerous?
>>
>> Best,
>> Da
>>
>> On Sat, Mar 4, 2017 at 1:22 PM, G?bor Cs?rdi <csardi.gabor at gmail.com>
>> wrote:
>> > `!` is a generic, `if` is not. You can define an `if` that is generic,
>> > but this might be even more dangerous....
>> >
>> > ? `if` <- function(a, b, c) UseMethod("if")
>> > ? `if.default` <- function(a,b,c) base::`if`(a, b, c)
>> > ? `if.foo` <- function(a, b, c) FALSE
>> > ? a <- structure(42, class = "foo")
>> >
>> > ? if (a) TRUE else FALSE
>> > [1] FALSE
>> >
>> > ? if (1) TRUE else FALSE
>> > [1] TRUE
>> >
>> > Gabor
>> >
>> > On Sat, Mar 4, 2017 at 5:47 PM, Da Zheng <zhengda1936 at gmail.com> wrote:
>> >> Thanks.
>> >> Can I override it for a specific class?
>> >> I can do that for operators such as "!". For example, "!.fm" works for
>> >> objects of the class "fm".
>> >> It seems I can't do the same for "if".
>> >>
>> >> Best,
>> >> Da
>> >>
>> >> On Sat, Mar 4, 2017 at 12:41 PM, G?bor Cs?rdi <csardi.gabor at gmail.com>
>> wrote:
>> >>> You can. Perhaps needless to say, be careful with this.
>> >>>
>> >>> ? `if` <- function(...) FALSE
>> >>> ? if (TRUE) TRUE else FALSE
>> >>> [1] FALSE
>> >>>
>> >>> G.
>> >>>
>> >>> On Sat, Mar 4, 2017 at 5:36 PM, Da Zheng <zhengda1936 at gmail.com>
>> wrote:
>> >>>> Hello,
>> >>>>
>> >>>> I heard we can override almost everything in R. Is it possible to
>> >>>> override "if" keyword in R to evaluate my own object instead of a
>> >>>> logical value?
>> >>>>
>> >>>> Thanks,
>> >>>> Da
>> >>>>
>> >>>> ______________________________________________
>> >>>> R-devel at r-project.org mailing list
>> >>>> https://stat.ethz.ch/mailman/listinfo/r-devel
>>
>> ______________________________________________
>> R-devel at r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-devel
>>
>
>         [[alternative HTML version deleted]]
>
> ______________________________________________
> R-devel at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-devel



[Rd] can we override "if" in R?
William Dunlap