# will produce lints
code <- "function(x) {\n data <- x\n data\n}"
writeLines(code)
lint(
text = code,
linters = object_overwrite_linter()
)
code <- "function(x) {\n lint <- 'fun'\n lint\n}"
writeLines(code)
lint(
text = code,
linters = object_overwrite_linter(packages = "lintr")
)
# okay
code <- "function(x) {\n data('mtcars')\n}"
writeLines(code)
lint(
text = code,
linters = object_overwrite_linter()
)
code <- "function(x) {\n data <- x\n data\n}"
writeLines(code)
lint(
text = code,
linters = object_overwrite_linter(packages = "base")
)
# names in function signatures are ignored
lint(
text = "function(data) data <- subset(data, x > 0)",
linters = object_overwrite_linter()
)
Run the code above in your browser using DataLab