Nothing
test_that("returns the correct linting", {
expect_warning(
{
linter <- paren_brace_linter()
},
"Linter paren_brace_linter was deprecated",
fixed = TRUE
)
lint_msg <- rex::rex("There should be a space between right parenthesis and an opening curly brace.")
expect_lint("blah", NULL, linter)
expect_lint("blah <- function() {}", NULL, linter)
expect_lint("blah <- function() {\n}", NULL, linter)
expect_lint(
"blah <- function(){}",
list(
message = lint_msg,
column_number = 19L
),
linter
)
expect_lint(
"\nblah <- function(){\n\n\n}",
list(
message = lint_msg,
column_number = 19L
),
linter
)
# paren_brace_linter should ignore strings and comments, as in regexes:
expect_lint("grepl('(iss){2}', 'Mississippi')", NULL, linter)
expect_lint(
"x <- 123 # don't flag (paren){brace} if inside a comment",
NULL,
linter
)
# paren-brace lint should not be thrown when the brace lies on subsequent line
expect_lint(
paste(
"x <- function()",
" {2}",
sep = "\n"
),
NULL,
linter
)
})
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.