Checks for missingness #139

traitecoevo · Dec 19, 2024 · e7a3afe · e7a3afe
1 parent bcd2b4e
commit e7a3afe
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/R/extract_data.R b/R/extract_data.R
@@ -21,6 +21,9 @@
 #' }
 extract_data <- function(database, table = NA, col, col_value) {
 
+  # Check missingness
+  check_arg_missingness(database, col, col_value)
+
   # Check compatability
   status <- check_compatibility(database, single_table_allowed = TRUE)
 

diff --git a/tests/testthat/test-extract_.R b/tests/testthat/test-extract_.R
@@ -10,6 +10,8 @@ taxon_name = "Banskia serrata"
 
 test_that("Error message is triggered", {
   expect_error(austraits_5.0.0_lite %>% extract_taxa())
+  expect_error(extract_taxa())
+  expect_error(extract_data(at_six))
 })
 
 test_extract_error <- function(austraits){