Error in `dplyr::filter(., .data$layer_num >= attributes_entered[["layer_number_minimum"]])`: i In argument: `.data$layer_num >= attributes_entered[["layer_number_minimum"]]`.
Caused by error in `.data$layer_num >= attributes_entered[["layer_number_minimum"]]`:
! comparison (>=) is not possible for language types

test_that("search_emln with no arguments returns a data frame", {
test_that("search_emln result contains required columns", {
test_that("search_emln result is sorted by network_id", {
test_that("search_emln filters by ecological_network_type", {
result <- search_emln(ecological_network_type = "Pollination")
test_that("search_emln filters by multilayer_network_type", {
result <- search_emln(multilayer_network_type = "Temporal")
test_that("search_emln filters by weighted", {
if (is.data.frame(result) && nrow(result) > 0) {
test_that("search_emln filters by directed", {
test_that("search_emln filters by interlayer", {
result <- search_emln(interlayer = TRUE)
test_that("search_emln filters by state_nodes", {
result <- search_emln(state_nodes = TRUE)
test_that("search_emln filters by layer_number_minimum", {
result <- search_emln(layer_number_minimum = min_layers)
test_that("search_emln filters by node_number_minimum", {
result <- search_emln(node_number_minimum = min_nodes)
test_that("search_emln returns fewer networks with tighter filters", {
spatial_networks <- search_emln(multilayer_network_type = "Spatial")
test_that("search_emln returns a character string when no networks match", {
# Extremely restrictive combination that is unlikely to match anything
# The function returns a character string when nrow == 0
(is.data.frame(result) && nrow(result) == 0))

"search_emln with no arguments returns a data frame"
"search_emln result contains required columns"
"search_emln result is sorted by network_id"
"search_emln returns fewer networks with tighter filters"
"search_emln returns a character string when no networks match"

Error in `dplyr::filter(., .data$node_num >= attributes_entered[["node_number_minimum"]])`: i In argument: `.data$node_num >= attributes_entered[["node_number_minimum"]]`.
Caused by error in `.data$node_num >= attributes_entered[["node_number_minimum"]]`:
! comparison (>=) is not possible for language types