dummyfun <- function(x) x
fn <- tempfile("dummyfun", fileext="Rd")
reprompt(dummyfun, filename=fn)
rdo <- 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!
Run the code above in your browser using DataCamp Workspace