# NOT RUN {
#Summarise function complexity in an environment
sig_report(pkg2env(stats))
#Summarise function complexity in a file
# }
# NOT RUN {
tmp <- tempfile(fileext = ".R")
writeLines(c(toString(sig(scan)), deparse(body(scan))), tmp)
sig_report(tmp)
# }
# NOT RUN {
# Adjust the cutoff for reporting
sig_report(
baseenv(),
too_many_args = 20,
too_many_lines = 100
)
# }
Run the code above in your browser using DataCamp Workspace