Nothing
test_that("line_length_linter skips allowed usages", {
linter <- line_length_linter(80L)
expect_lint("blah", NULL, linter)
expect_lint(strrep("x", 80L), NULL, linter)
})
test_that("line_length_linter blocks disallowed usages", {
linter <- line_length_linter(80L)
lint_msg <- rex::rex("Lines should not be more than 80 characters. This line is 81 characters.")
expect_lint(
strrep("x", 81L),
list(
message = lint_msg,
column_number = 81L
),
linter
)
expect_lint(
paste(rep(strrep("x", 81L), 2L), collapse = "\n"),
list(
list(
message = lint_msg,
column_number = 81L
),
list(
message = lint_msg,
column_number = 81L
)
),
linter
)
linter <- line_length_linter(20L)
lint_msg <- rex::rex("Lines should not be more than 20 characters. This line is 22 characters.")
expect_lint(strrep("a", 20L), NULL, linter)
expect_lint(
strrep("a", 22L),
list(
message = lint_msg,
column_number = 21L
),
linter
)
# Don't duplicate lints
expect_length(
lint(
"x <- 2 # ------------\n",
linters = linter,
parse_settings = FALSE
),
1L
)
})
test_that("Multiple lints give custom messages", {
expect_lint(
trim_some("{
abcdefg
hijklmnop
}"),
list("9 characters", "11 characters"),
line_length_linter(5L)
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.