# will produce lint
code <- "
#' @export
public_function <- function() {
}
private_function <- function() {
}
local_data <- \"A\"
"
lintr::lint(text = code, linters = unused_declared_object_linter())
# okay
code <- "
#' @export
public_function <- function(local_data) {
private_function(local_data)
}
private_function <- function() {
}
local_data <- \"A\"
"
lintr::lint(text = code, linters = unused_declared_object_linter())
Run the code above in your browser using DataLab