cyclocomp efficiency edge case & bug

[MichaelChirico]

Here's a file where cyclocomp::cyclocomp() takes ages:

https://github.com/mwaldstein/edgarWebR/blob/fb9a38e6a57186ffd1c93cc1aa00c4fdf1bc5514/vignettes/intro/0/browse-edgar-3c23fc.R

Definitely an edge case file & should probably be excluded from linting, but we keep testing it as it gave insights to improve {lintr} performance in general. Sharing in case it highlights something similar for {cyclocomp}.

parsed_file <- parse("~/github/edgarWebR/vignettes/intro/0/browse-edgar-3c23fc.R")
system.time(cyclocomp::cyclocomp(parsed_file))
# Error in rec$last[[1]] : subscript out of bounds
# Timing stopped at: 308.1 0.064 308.3