diff --git a/tests/testthat/test-SDA_query.R b/tests/testthat/test-SDA_query.R index 947f2677..1d282b4a 100644 --- a/tests/testthat/test-SDA_query.R +++ b/tests/testthat/test-SDA_query.R @@ -224,7 +224,7 @@ test_that("SDA_query() works with multi-line records", { # https://github.com/ncss-tech/soilDB/issues/28 expect_true(inherits(x.4, 'data.frame')) - expect_true(nrow(x.4) == 6) + expect_true(nrow(x.4) == 7) }) diff --git a/tests/testthat/test-get_SDA_hydric.R b/tests/testthat/test-get_SDA_hydric.R index d5dad50b..a4c34488 100644 --- a/tests/testthat/test-get_SDA_hydric.R +++ b/tests/testthat/test-get_SDA_hydric.R @@ -11,7 +11,7 @@ test_that("get_SDA_hydric works", { # check classification of mapunits x.nonhydric <- subset(x, x$HYDRIC_RATING == "Nonhydric") - expect_equal(nrow(x.nonhydric), 175) + expect_equal(nrow(x.nonhydric), 174) expect_true(all(x.nonhydric$hydric_majors == 0 & x.nonhydric$hydric_inclusions == 0)) # by mukey diff --git a/tests/testthat/test-get_SDA_interpretation.R b/tests/testthat/test-get_SDA_interpretation.R index 715e5219..abfa3ce4 100644 --- a/tests/testthat/test-get_SDA_interpretation.R +++ b/tests/testthat/test-get_SDA_interpretation.R @@ -1,6 +1,6 @@ target_areas <- c("CA649", "CA630") -target_area_rows <- 223 -target_area_rows_all <- 1031 +target_area_rows <- 221 +target_area_rows_all <- 1021 target_mukeys <- c(463263, 463264) diff --git a/tests/testthat/test-get_SDA_property.R b/tests/testthat/test-get_SDA_property.R index 194e1049..9f8c5b76 100644 --- a/tests/testthat/test-get_SDA_property.R +++ b/tests/testthat/test-get_SDA_property.R @@ -1,11 +1,11 @@ target_areas <- c("CA649", "CA630") -target_area_rows <- 223 # 1:1 with mukey -target_area_rows_all <- 1031 # 1:1 with component -target_area_rows_all_chorizon <- 3297 # 1:1 with chorizon +target_area_rows <- 221 # 1:1 with mukey +target_area_rows_all <- 1021 # 1:1 with component +target_area_rows_all_chorizon <- 3356 # 1:1 with chorizon n_misc_area_rows <- 9 -n_misc_area_rows_all <- 288 +n_misc_area_rows_all <- 285 n_misc_area_rows_all_chorizon <- 19 target_mukeys <- c(463263, 463264)