tests/if.R

In nick-ulle/ast: Low-level Static Analysis Tools for R Code

f =
function(x)
{
   if(x > 0)
       20
   else
       -1
}

f1 =
function(x)
{
   if(x > 0)
       return(20)
   else
       return(-1)
}

f2 =
function(x)
{
 return(if(x > 0) 20 else -1)
}


f3 =
function(x)
{
   a = if(x > 0)
          20
       else
         -1
   a
}