Identifying if/else statements in R and extracting expressions from them

Question

I would like to extract expr_a, expr_b, expr_c from R code that functions as:

if (expr_a)
    expr_b
else
    expr_c

for the pur