# will produce lints
code <- paste(
"f <- function(fl) {",
" conn <- file(fl, open = 'r')",
" readLines(conn)",
" close(conn)",
"}",
sep = "\n"
)
writeLines(code)
lint(
text = code,
linters = terminal_close_linter()
)
# okay
code <- paste(
"f <- function(fl) {",
" conn <- file(fl, open = 'r')",
" on.exit(close(conn))",
" readLines(conn)",
"}",
sep = "\n"
)
writeLines(code)
lint(
text = code,
linters = terminal_close_linter()
)
Run the code above in your browser using DataLab