tests/testthat/test_dev.r

In ggsankeyfier: Create Sankey and Alluvial Diagrams Using 'ggplot2'

test_that("Source code should not have things on TODO list", {
  expect_false({
    skip_if(length(unclass(packageVersion("ggsankeyfier"))[[1]]) > 3,
            "Skipping during development")
    files_to_check <- list.files("../..", pattern = ".r$|NEWS|DESCRIPTION|README", recursive = T, full.names = T)
    files_to_check <- files_to_check[!endsWith(files_to_check, "test_dev.r")]
    any(
      unlist(
        lapply(files_to_check, function(file) {
          content <- suppressWarnings(readLines(file))
          result  <- grepl("TODO", content) & !grepl("grepl\\(\"TODO\"", content) & !grepl("on TODO list", content)
          if (any(result)) {
            warning(sprintf("File `%s` has items on TODO list at lines `%s`", file, paste(which(result), collapse = "`, `")))
          }
          any(result)
        })
      )
    )
  })
})