## ---- include = FALSE--------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) ## ----setup-------------------------------------------------------------------- library(ODataQuery) service <- ODataQuery$new("https://services.odata.org/V4/TripPinServiceRW") people_entity <- service$path("People") ## ----------------------------------------------------------------------------- people_entity$filter("Concurrency gt 500") people_entity$filter("Friends/any(f: f/FirstName eq 'John')") ## ----------------------------------------------------------------------------- people_entity$filter(Concurrency.gt = 500) people_entity$filter(or_query(Concurrency.lt = 500, Concurrency.gt = 1500)) ## ----------------------------------------------------------------------------- people_entity$filter(to_odata(Concurrency > 500)) name <- 'John' people_entity$filter(to_odata(Friends$any(f ~ f$FirstName == !!name)))