library(cohortBuilder)
librarian_source <- set_source(as.tblist(librarian))
copies_filter <- filter(
"range", id = "copies", name = "Copies", dataset = "books",
variable = "copies", range = c(5, 12)
)
copies_filter_evaled <- copies_filter(librarian_source)
copies_filter_evaled$gui <- .gui_filter(copies_filter_evaled)
str(copies_filter_evaled$gui)
Run the code above in your browser using DataLab