more fixes

traitecoevo · Nov 18, 2024 · 13088d2 · 13088d2
1 parent 85eb6b0
commit 13088d2
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/join_.R b/R/join_.R
@@ -280,7 +280,7 @@ join_contributors <- function(database,
 
     compacted_contributors_column <-
       contributors_tmp %>% 
-      tidyr::nest(-dplyr::all_of("dataset_id")) %>%
+      tidyr::nest(data = -dplyr::all_of(c("dataset_id"))) %>%
       dplyr::mutate(data_contributors = purrr::map_chr(data, jsonlite::toJSON)) %>%
       dplyr::select(-dplyr::any_of("data")) %>%
       dplyr::ungroup()

diff --git a/tests/testthat/test-extract_.R b/tests/testthat/test-extract_.R
@@ -191,7 +191,8 @@ test_that("Extraction of dataset was successful", {
 })
 
 test_that("Expect error if taxon_name column missing", {
-  traits_without_taxon_name <- database$traits %>% dplyr::select(-taxon_name)
+  traits_without_taxon_name <- database
+  traits_without_taxon_name$traits <- database$traits %>% dplyr::select(-taxon_name)
   expect_error((traits_without_taxon_name %>% extract_trait("leaf_area"))$traits)
 })