Use less strict tests for JSON input data

Since we cannot assume it will always be rectangular before the cleaning step
RichardMN · Feb 4, 2022 · f9672ac · f9672ac
1 parent e1afd31
commit f9672ac
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/R/test-DataClass.R b/R/test-DataClass.R
@@ -146,10 +146,8 @@ test_download_JSON <- function(DataClass_obj, download, snapshot_path) {
       {
         DataClass_obj$download_JSON()
         walk(DataClass_obj$data$raw, function(data) {
-          testthat::expect_s3_class(data, "data.frame")
-          testthat::expect_true(nrow(data) > 0)
-          testthat::expect_true(ncol(data) >= 2
-                                || typeof(data[[1]]) == "list")
+          testthat::expect_true(length(data) > 0)
+          testthat::expect_false(is.null(data))
         })
       }
     )