# NOT RUN {
#Summarize function complexity in an environment
sig_report(pkg2env(stats))
#Summarize function complexity in a file
# }
# NOT RUN {
# From a file
tmp <- tempfile(fileext = ".R")
dump("scan", tmp)
sig_report(tmp)
# }
# NOT RUN {
# From an environment, adjusting the cutoff for reporting
sig_report(
baseenv(),
too_many_args = 20,
too_many_lines = 100
)
# Alternate length metric
sig_report(baseenv(), length_metric = "body")
# }
Run the code above in your browser using DataLab