if (FALSE) {
file <- tempfile()
writeLines(c(
"# TODO make x longer",
"x <- 1:10",
"length(x)",
"# TODO add another example",
"# FIXME This is a fixme"
), file)
todos(path = file)
todos("example", path = file)
fixmes(path = file)
file.remove(file)
}
Run the code above in your browser using DataLab