Here we parse the file:

library(goodpracticeeighteen)

One file:

#filename <- find_path("f_with_examples.Rd")
#testit::assert(has_examples_in_rd(filename))
#filename <- find_path("f_without_examples.Rd")
#testit::assert(!has_examples_in_rd(filename))

Multiple files:

#filenames <- find_paths(c("f_with_examples.Rd", "f_without_examples.Rd"))
#testit::assert(has_examples_in_rds(filenames) == c(TRUE, FALSE))


richelbilderbeek/goodpracticeeighteen documentation built on May 27, 2019, 7:59 a.m.