more fixes

- rebuilt the lite data layers and that solved problems locally at least
traitecoevo · Nov 19, 2024 · 7282763 · 7282763
1 parent c3e7bf4
commit 7282763
Show file tree

Hide file tree

Showing 4 changed files with 2 additions and 4 deletions.
diff --git a/R/sysdata.rda b/R/sysdata.rda
diff --git a/data-raw/create_data.R b/data-raw/create_data.R
@@ -27,7 +27,7 @@ dataset_id <- c(unique(austraits_5.0.0$traits$dataset_id) %>% sample(5))
 
 
 datasets <- c("Falster_2003", "Falster_2005_1", "Falster_2005_2",
-              "", "Crous_2019", "Buckton_2019", "Kooyman_2011", "Bloomfield_2018", 
+              "Crous_2013", "Crous_2019", "Buckton_2019", "Kooyman_2011", "Bloomfield_2018", 
               "Wright_2019", "Westoby_2014", "Vesk_2019", "Leigh_2003", "Prior_2003",
               "Prior_2016", "Choat_2006", "Choat_2012", "ABRS_1981", "Cernusak_2006", "Yang_2023")
 

diff --git a/tests/testthat/test-extract_.R b/tests/testthat/test-extract_.R
@@ -47,7 +47,7 @@ test_that("extracted dataset has some structure as austraits build", {
   expect_no_error(trait_subset <- extract_trait(austraits_5.0.0_lite, trait_names = trait_name))
   test_database_structure(subset, dataset_id = dataset_id)
 
-  expect_s3_class(austraits_5.0.0_lite, "austraits")
+  expect_s3_class(austraits_5.0.0_lite, "traits.build")
   expect_equal(length(subset), length(austraits_5.0.0_lite))
   expect_equal(sort(names(subset)), sort(names(austraits_5.0.0_lite)))
 

diff --git a/tests/testthat/test-join_.R b/tests/testthat/test-join_.R
@@ -1,8 +1,6 @@
 not_supported_austraits <- list(austraits_3.0.2_lite,
                                 austraits_4.2.0_lite)
 
-class(austraits_5.0.0_lite) <- c("traits.build")
-
 test_join_error <- function(austraits){
   test_that("old versions will complain", {
     expect_error(join_location_coordinates(austraits))