# will produce lints
code <- "function(x) {\n return(x + 1)\n}"
writeLines(code)
lint(
text = code,
linters = return_linter()
)
code <- "function(x) {\n x + 1\n}"
writeLines(code)
lint(
text = code,
linters = return_linter(return_style = "explicit")
)
code <- "function(x) {\n if (x > 0) 2\n}"
writeLines(code)
lint(
text = code,
linters = return_linter(allow_implicit_else = FALSE)
)
# okay
code <- "function(x) {\n x + 1\n}"
writeLines(code)
lint(
text = code,
linters = return_linter()
)
code <- "function(x) {\n return(x + 1)\n}"
writeLines(code)
lint(
text = code,
linters = return_linter(return_style = "explicit")
)
code <- "function(x) {\n if (x > 0) 2 else NULL\n}"
writeLines(code)
lint(
text = code,
linters = return_linter(allow_implicit_else = FALSE)
)
Run the code above in your browser using DataLab