<vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
Error in `select(., "eppocode", "queriedEppocode", "status")`: Can't select columns that don't exist.
x Column `eppocode` doesn't exist.

test_that("the output is a dataframe", {
kingdom <- queryTheEPPOForService("BEMITA", service = "kingdom")
taxonomy <- queryTheEPPOForService("BEMITA", service = "taxonomy")
test_that("if NULL is passed then it throws an error", {
test_that("if NAs are passed then it throws an error", {

"if NULL is passed then it throws an error"
"if NAs are passed then it throws an error"