better error catching for non-data frames

vincentarelbundock · Aug 16, 2024 · 208eb25 · 208eb25
1 parent 081002d
commit 208eb25
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -27,6 +27,7 @@ Imports:
     carData,
     causaldata,
     cluster,
+    collegeScorecard,
     crch,
     COUNT,
     DAAG,
@@ -95,6 +96,8 @@ Imports:
     texmex,
     tidyr,
     tidyverse,
+    tsibble,
+    tsibbledata,
     validate,
     vcd,
     vcdExtra,

diff --git a/scrape.R b/scrape.R
@@ -24,7 +24,11 @@ clean_data = function(dat) {
         idx <- sapply(out, function(x) class(x)[1]) != "list"
         out <- out[, idx, drop = FALSE]
     } else {
-        out = suppressWarnings(tryCatch(as.data.frame(dat), error = function(e) NULL))
+        if (inherits(dat, "try-error")) {
+            out = NULL
+        } else {
+            out = suppressWarnings(tryCatch(as.data.frame(dat), error = function(e) NULL))
+        }
     }
     if (isTRUE(nrow(out) == 0)) {
         out = NULL