# will produce lints
lint(
text = "a <- 1;",
linters = semicolon_linter()
)
lint(
text = "a <- 1; b <- 1",
linters = semicolon_linter()
)
lint(
text = "function() { a <- 1; b <- 1 }",
linters = semicolon_linter()
)
# okay
lint(
text = "a <- 1",
linters = semicolon_linter()
)
lint(
text = "a <- 1;",
linters = semicolon_linter(allow_trailing = TRUE)
)
code_lines <- "a <- 1\nb <- 1"
writeLines(code_lines)
lint(
text = code_lines,
linters = semicolon_linter()
)
lint(
text = "a <- 1; b <- 1",
linters = semicolon_linter(allow_compound = TRUE)
)
code_lines <- "function() { \n a <- 1\n b <- 1\n}"
writeLines(code_lines)
lint(
text = code_lines,
linters = semicolon_linter()
)
Run the code above in your browser using DataLab