# will produce lints
code <- "
box::use(
stringr
)
"
lintr::lint(text = code, linters = box_unused_attached_pkg_linter())
code <- "
box::use(
alias = stringr
)
"
lintr::lint(text = code, linters = box_unused_attached_pkg_linter())
code <- "
box::use(
stringr[...]
)
"
lintr::lint(text = code, linters = box_unused_attached_pkg_linter())
# okay
code <- "
box::use(
stringr
)
stringr$str_pad()
"
lintr::lint(text = code, linters = box_unused_attached_pkg_linter())
code <- "
box::use(
alias = stringr
)
alias$str_pad()
"
lintr::lint(text = code, linters = box_unused_attached_pkg_linter())
code <- "
box::use(
stringr[...]
)
str_pad()
"
lintr::lint(text = code, linters = box_unused_attached_pkg_linter())
Run the code above in your browser using DataLab