[r] Add tests for enum value filters in SOMAExperimentAxisQuery

[mojaveazure]

Add a tests for doing value filters on enums in SOMAExperimentAxisQuery; test for levels both present and missing. Skip missing level tests for core < 2.21

addresses #1988

[sc-43700]

[shortcut-integration]

This pull request has been linked to Shortcut Story #43700: [r] Validate experiment query for value not in enumeration.

[codecov]

Codecov Report

Merging #2316 (c625c93) into main (1c1f362) will decrease coverage by 4.07%.
The diff coverage is n/a.

Additional details and impacted files

@@            Coverage Diff             @@
##             main    #2316      +/-   ##
==========================================
- Coverage   78.75%   74.69%   -4.07%     
==========================================
  Files         140       52      -88     
  Lines       10756     4347    -6409     
  Branches      215        0     -215     
==========================================
- Hits         8471     3247    -5224     
+ Misses       2187     1100    -1087     
+ Partials       98        0      -98     

Flag	Coverage Δ
libtiledbsoma	?
python	?
r	74.69% <ø> (ø)

Flags with carried forward coverage won't be shown. Click here to find out more.

Components	Coverage Δ
python_api	∅ <ø> (∅)
libtiledbsoma	∅ <ø> (∅)

[johnkerl]

🔥
Thanks @mojaveazure !!

[eddelbuettel]

Should we have some for SOMADataFrame etc too?

[johnkerl]

@eddelbuettel I'm happy with these as the experiment axis-query goes necessarily through dataframe

[mojaveazure]

@eddelbuettel I don't think SOMADataFrame has a native query interface. There are already tests for SOMADataFrame that work with enums (adding, updating, and handling ordered), and the queries in this PR all go through obs, which is a SOMADataFrame

[eddelbuettel]

I used this to test (and posted it, here I omitted the preceding library() calls for brevity). The value_filter` does what is asked for:

uri <- tempfile()
pp <- data.frame(soma_joinid=as.integer64(1:344), penguins)
fromDataFrame(pp, uri, col_index=1)

set_log_level("debug")
#sdf <- SOMADataFrameOpen(uri)$read(value_filter="species == \"Adelie\"")$concat()
sdf <- SOMADataFrameOpen(uri)$read(value_filter="species == \"Frodo\"")$concat()
print(sdf)

cat("And done\n")