Replacing 'testthat' functions #2987

modules/data.atmosphere/DESCRIPTION

@@ -25,6 +25,7 @@ Depends:
 Imports:
     abind (>= 1.4.5),
     amerifluxr,
+    assertthat,
     curl,
     data.table,
     dplyr,
@@ -52,7 +53,6 @@ Imports:
     rlang (>= 0.2.0),
     sp,
     stringr (>= 1.1.0),
-    testthat (>= 2.0.0),
     tibble,
     tidyr,
     tidyselect,
@@ -66,7 +66,8 @@ Suggests:
     foreach,
     parallel,
     progress,
-    reticulate
+    reticulate,
+    testthat (>= 2.0.0)
 Remotes:
     github::chuhousen/amerifluxr,
     github::ropensci/geonames,

modules/data.atmosphere/R/check_met_input.R

@@ -45,20 +45,20 @@ check_met_input_file <- function(metfile,
     "T[[:digit:]]{2}:[[:digit:]]{2}:[[:digit:]]{2}Z$"
   )
   test_dims <- list(
-    try2(testthat::expect_type(dimensions, "list")),
-    try2(testthat::expect_equal(length(dimensions), 3)),
-    try2(testthat::expect_true("time" %in% names(dimensions))),
-    try2(testthat::expect_match(
-      ncdf4::ncatt_get(nc, "time", "units")[["value"]],
-      time_regex
+    try2(assertthat::assert_that(is.list(dimensions))),
+    try2(assertthat::are_equal(length(dimensions), 3)),
+    try2(assertthat::assert_that("time" %in% names(dimensions))),
+    try2(assertthat::assert_that(str_match(
+      ncdf4::ncatt_get(nc, "time", "units")[["value"]], 
+      time_regex)
     )),
-    try2(testthat::expect_true("latitude" %in% names(dimensions))),
-    try2(testthat::expect_equal(
+    try2(assertthat::assert_that("latitude" %in% names(dimensions))),
+    try2(assertthat::are_equal(
       ncdf4::ncatt_get(nc, "latitude", "units")[["value"]],
       "degrees_north"
     )),
-    try2(testthat::expect_true("longitude" %in% names(dimensions))),
-    try2(testthat::expect_equal(
+    try2(assertthat::assert_that("longitude" %in% names(dimensions))),
+    try2(assertthat::are_equal(
       ncdf4::ncatt_get(nc, "longitude", "units")[["value"]],
       "degrees_east"
     ))
@@ -118,8 +118,11 @@ check_unit <- function(variable, nc, variable_table, warn_unknown = TRUE) {
     dplyr::filter(.data$cf_standard_name == variable) %>%
     dplyr::pull(units)
   ncvar_unit <- ncdf4::ncatt_get(nc, variable, "units")[["value"]]
-  try(testthat::expect_true(
-    PEcAn.utils::units_are_equivalent(ncvar_unit, var_correct_unit),
-    glue::glue("NetCDF unit '{ncvar_unit}' not equivalent to expected unit '{var_correct_unit}'.")
-  ))
+
+  eq_units <- PEcAn.utils::units_are_equivalent(ncvar_unit, var_correct_unit)
+  if(!eq_units) {
+    PEcAn.logger::logger.error(
+      glue::glue("NetCDF unit '{ncvar_unit}' not equivalent to expected unit '{var_correct_unit}'.")
+    )
+  }
 }