Revert "Update test-CompadreDB-Tidyverse.R"

This reverts commit 1380d74.
jonesor · Apr 26, 2023 · ddd41db · ddd41db
1 parent 1380d74
commit ddd41db
Showing 1 changed file with 6 additions and 14 deletions.
diff --git a/tests/testthat/test-CompadreDB-Tidyverse.R b/tests/testthat/test-CompadreDB-Tidyverse.R
@@ -87,18 +87,10 @@ test_that("CompadreDB-Tidyverse functions work correctly", {
   expect_s4_class(db12, "CompadreDB")
   expect_true(nrow(db12@data) == nrow(Compadre@data))
   expect_true(all(traits$trait %in% db12$trait))
-})
-
-# joins
-traits <- data.frame(
-  SpeciesAccepted = sample(unique(Compadre$SpeciesAccepted), 5),
-  trait = 1:5,
-  stringsAsFactors = FALSE
-)
 
-
-traits_dup <- rbind(traits, traits[5, ])
-testthat::expect_warning(left_join(Compadre, traits_dup, by = "SpeciesAccepted"))
-testthat::expect_warning(right_join(Compadre, traits_dup, by = "SpeciesAccepted"))
-testthat::expect_warning(inner_join(Compadre, traits_dup, by = "SpeciesAccepted"))
-testthat::expect_warning(full_join(Compadre, traits_dup, by = "SpeciesAccepted"))
+  traits_dup <- rbind(traits, traits[5, ])
+  expect_warning(left_join(Compadre, traits_dup, by = "SpeciesAccepted"))
+  expect_warning(right_join(Compadre, traits_dup, by = "SpeciesAccepted"))
+  expect_warning(inner_join(Compadre, traits_dup, by = "SpeciesAccepted"))
+  expect_warning(full_join(Compadre, traits_dup, by = "SpeciesAccepted"))
+})