tests/testthat/test-filter_and.R

In eider: Declarative Feature Extraction from Tabular Data Records

test_that("filter_and", {
  filtered_data <- filter_all(
    iris,
    list(
      type = "AND",
      subfilter = list(
        list(
          type = "GT",
          value = 5,
          column = "Sepal.Length"
        ),
        list(
          type = "GT",
          value = 3,
          column = "Sepal.Width"
        )
      )
    )
  )

  result <- filtered_data$passed
  expect_true(all(result$Sepal.Length > 5 & result$Sepal.Width > 3))
})