if (FALSE) {
# will produce lints
code <- "
box::use(
path/to/module[some_function, some_object],
)
"
lintr::lint(text = code, linters = box_unused_att_mod_obj_linter())
code <- "
box::use(
path/to/module[alias_func = some_function, alias_obj = some_object],
)
"
lintr::lint(text = code, linters = box_unused_att_mod_obj_linter())
# okay
code <- "
box::use(
path/to/module[some_function, some_object],
)
x <- sum(some_object)
some_function()
"
lintr::lint(text = code, linters = box_unused_att_mod_obj_linter())
code <- "
box::use(
path/to/module[alias_func = some_function, alias_obj = some_object],
)
x <- sum(alias_obj)
alias_func()
"
lintr::lint(text = code, linters = box_unused_att_mod_obj_linter())
}
Run the code above in your browser using DataLab