dummyfun <- function(x) x
fn <- tempfile("dummyfun", fileext = "Rd")
reprompt(dummyfun, filename = fn)
rdo <- tools::parse_Rd(fn)
f <- function(x) Rdo_is_newline(x)
nl <- Rdo_locate_leaves(rdo, f )
length(nl) # there are quite a few newline leaves!
unlink(fn)
Run the code above in your browser using DataLab