[r] Unit-test queryability of enumerated columns (#1884) (#1885)

* [r] Unit-test queryability of enumerated columns

* code-review feedback

Co-authored-by: John Kerl <kerl.john.r@gmail.com>

apis/r/tests/testthat/test-SOMADataFrame.R

@@ -619,6 +619,19 @@ test_that("SOMADataFrame can be updated", {
     levels(tbl1$GetColumnByName("rlvl")$as_vector()),
     c("green", "red", "blue")
   )
+  expect_length(tbl1[["rlvl"]], 10)
+
+  # Verify queryability
+  expect_s3_class(
+    tblq <- SOMADataFrameOpen(uri, mode = "READ")$read(value_filter = 'rlvl == "green"')$concat(),
+    "Table"
+  )
+  expect_length(tblq[["rlvl"]], 3)
+  expect_s3_class(
+    tblq <- SOMADataFrameOpen(uri, mode = "READ")$read(value_filter = 'rlvl %in% c("blue", "green")')$concat(),
+    "Table"
+  )
+  expect_length(tblq[["rlvl"]], 6)
 
   # Add a new ordered and update
   tbl0 <- tbl1