testData/parser/r/IfShortForm.r (2 lines of code) (raw):

r <- if(true.only) character(0) else structure(vector("list", length= length(use.fn)), names= use.fn)