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

missE <- lapply(nf, function(n) substitute(missing(.), list(. = as.name(n))))