🔧 add .lintr

jakubsob · Feb 18, 2024 · 6b47a5a · 6b47a5a
1 parent b7529aa
commit 6b47a5a
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/.lintr b/.lintr
@@ -0,0 +1,7 @@
+linters: linters_with_defaults(
+    line_length_linter(120),
+    commented_code_linter = NULL,
+    object_name_linter = object_name_linter(c("snake_case", "SNAKE_CASE"))
+  )
+exclusions: list(
+  )
diff --git a/R/parse_token.R b/R/parse_token.R
@@ -42,7 +42,7 @@ parse_step <- function(token, steps, parameters = getOption("parameters")) {
   parameter_names <- str_match_all(step$description, paste0("\\{(", parameter_names, ")\\}"))[[1]][, 2]
   # Extract parameters values
   values_character <- str_match_all(description, detect[step_mask])[[1]][, -1]
-  params <- map2(values_character, parameter_names, \(value, parameter_name) {
+  params <- map2(values_character, parameter_names, \(value, parameter_name) { # nolint: object_usage_linter
     transformer <- parameters |>
       keep(~ .x$name == parameter_name) |>
       pluck(1, "transformer")