# will produce lints
f <- withr::local_tempfile(lines = "x <- 1\n")
readLines(f)
lint(
filename = f,
linters = trailing_blank_lines_linter()
)
# okay
f <- withr::local_tempfile(lines = "x <- 1")
readLines(f)
lint(
filename = f,
linters = trailing_blank_lines_linter()
)
Run the code above in your browser using DataLab