Improve check for unexported S3 methods (#1594)

Fixes #1593

NEWS.md

@@ -1,8 +1,12 @@
 # roxygen2 (development version)
 
+* The check for unexported S3 methods was improved, so it does not hang any more
+  if a largish data object is in the package (#1593, @jranke).
+
 * Custom [`@family`
   titles](https://roxygen2.r-lib.org/articles/index-crossref.html) now support
   Markdown syntax (#1608, @salim-b).
+
 # roxygen2 7.3.2
 
 * `@includeRmd` now additionally sets `options(cli.hyperlink = FALSE)` to make

R/namespace.R

@@ -398,8 +398,9 @@ warn_missing_s3_exports <- function(blocks, env) {
 
   s3blocks <- blocks[map_lgl(blocks, block_has_tags, c("export", "exportS3Method"))]
   s3objects <- map(blocks, function(block) block$object$value)
+  s3functions <- Filter(is.function, s3objects)
 
-  undocumented <- methods[!methods %in% s3objects]
+  undocumented <- methods[!methods %in% s3functions]
   srcrefs <- map(undocumented, attr, "srcref")
 
   map2(undocumented, names(undocumented), function(fun, name) {