testData/parser/r/ReprInFunctionDef.r (3 lines of code) (raw):

transform.data.frame <- function (`_data`, ...) { }