tests/testthat/test-lint.R

In LuisFilipe236/doAzureParallel: doAzureParallel

if (requireNamespace("lintr", quietly = TRUE)) {
  context("lints")
  test_that("Package Style", {

    linters <- list(
      absolute_path_linter = lintr::absolute_path_linter,
      assignment_linter = lintr::assignment_linter,
      closed_curly_linter = lintr::closed_curly_linter,
      commas_linter = lintr::commas_linter,
      commented_code_linter = lintr::commented_code_linter,
      infix_spaces_linter = lintr::infix_spaces_linter,
      line_length_linter = lintr::line_length_linter(120),
      no_tab_linter = lintr::no_tab_linter,
      object_usage_linter = lintr::object_usage_linter,
      object_name_linter = lintr::object_name_linter(style = "lowerCamelCase"),
      object_length_linter = lintr::object_length_linter,
      open_curly_linter = lintr::open_curly_linter,
      spaces_inside_linter = lintr::spaces_inside_linter,
      spaces_left_parentheses_linter = lintr::spaces_left_parentheses_linter,
      trailing_blank_lines_linter = lintr::trailing_blank_lines_linter,
      trailing_whitespace_linter = lintr::trailing_whitespace_linter
    )

    lintr::expect_lint_free(linters = linters)
  })
}