(v2.1.1.9163) cleanup

.github/workflows/lintr.yaml

@@ -56,9 +56,15 @@ jobs:
           extra-packages: |
             any::lintr
             any::cyclocomp
+            any::roxygen2
+            any::devtools
+            any::usethis
 
       - name: Lint
         run: |
+          # no not check these folders
+          rm -rf data-raw
+          rm -rf tests
           # old: lintr::lint_package(linters = lintr::with_defaults(line_length_linter = NULL, trailing_whitespace_linter = NULL, object_name_linter = NULL, cyclocomp_linter = NULL, object_length_linter = lintr::object_length_linter(length = 50L)), exclusions = list("R/aa_helper_pm_functions.R"))
           # now get ALL linters, not just default ones
           linters <- getNamespaceExports(asNamespace("lintr"))
@@ -67,7 +73,7 @@ jobs:
           linters <- linters[!grepl("^(closed_curly|open_curly|paren_brace|semicolon_terminator|consecutive_stopifnot|no_tab|single_quotes|unnecessary_nested_if|unneeded_concatenation)_linter$", linters)]
           linters <- linters[linters != "linter"]
           # and the ones we find unnnecessary
-          linters <- linters[!grepl("^(extraction_operator|implicit_integer|line_length|object_name|nonportable_path|is)_linter$", linters)]
+          linters <- linters[!grepl("^(extraction_operator|implicit_integer|line_length|object_length|object_name|object_usage|nonportable_path|is)_linter$", linters)]
           # put the functions in a list
           linters_list <- lapply(linters, function(l) eval(parse(text = paste0("lintr::", l, "()")), envir = asNamespace("lintr")))
           names(linters_list) <- linters