diff --git a/R/complex_conditional_linter.R b/R/complex_conditional_linter.R index 51fd0e75f..9ed6129a7 100644 --- a/R/complex_conditional_linter.R +++ b/R/complex_conditional_linter.R @@ -58,7 +58,6 @@ #' ) #' #' # okay -#' ready_to_do_something <- a && b && c #' code <- "if (ready_to_do_something) { do_something() }" #' writeLines(code) #' lint( @@ -66,6 +65,13 @@ #' linters = complex_conditional_linter() #' ) #' +#' code <- "if (a && b && c) { do_something() }" +#' writeLines(code) +#' lint( +#' text = code, +#' linters = complex_conditional_linter(threshold = 2L) +#' ) +#' #' @evalRd rd_tags("complex_conditional_linter") #' @seealso [linters] for a complete list of linters available in lintr. #' @export diff --git a/man/complex_conditional_linter.Rd b/man/complex_conditional_linter.Rd index 774cbdda0..9dcf837a9 100644 --- a/man/complex_conditional_linter.Rd +++ b/man/complex_conditional_linter.Rd @@ -51,8 +51,8 @@ if (is_duck) \{ \} }\if{html}{\out{}} -In addition to improving code readability, extracting complex conditional expressions has the added benefit -of introducing a reusable abstraction. +In addition to improving code readability, extracting complex conditional expressions +has the added benefit of introducing a reusable abstraction. } \examples{ # will produce lints @@ -64,7 +64,6 @@ lint( ) # okay -ready_to_do_something <- a && b && c code <- "if (ready_to_do_something) { do_something() }" writeLines(code) lint( @@ -72,6 +71,13 @@ lint( linters = complex_conditional_linter() ) +code <- "if (a && b && c) { do_something() }" +writeLines(code) +lint( + text = code, + linters = complex_conditional_linter(threshold = 2L) +) + } \seealso{ \link{linters} for a complete list of linters available in lintr.