Querying

library(ODataQuery)
service <- ODataQuery$new("https://services.odata.org/V4/TripPinServiceRW")
people_entity <- service$path("People")

There are three ways to query data using this package.

Directly write OData query

The most direct way is to directly write your query in OData.

people_entity$filter("Concurrency gt 500")
#> ODataQuery: https://services.odata.org/V4/TripPinServiceRW/People?$filter=(Concurrency%20gt%20500)
people_entity$filter("Friends/any(f: f/FirstName eq 'John')")
#> ODataQuery: https://services.odata.org/V4/TripPinServiceRW/People?$filter=(Friends/any(f:%20f/FirstName%20eq%20'John'))

Using and_query, or_query and not_query

people_entity$filter(Concurrency.gt = 500)
#> ODataQuery: https://services.odata.org/V4/TripPinServiceRW/People?$filter=(Concurrency%20gt%20500)
people_entity$filter(or_query(Concurrency.lt = 500, Concurrency.gt = 1500))
#> ODataQuery: https://services.odata.org/V4/TripPinServiceRW/People?$filter=((Concurrency%20lt%20500%20or%20Concurrency%20gt%201500))

Using to_odata

people_entity$filter(to_odata(Concurrency > 500))
#> ODataQuery: https://services.odata.org/V4/TripPinServiceRW/People?$filter=(Concurrency%20gt%20500)
name <- 'John'
people_entity$filter(to_odata(Friends$any(f ~ f$FirstName == !!name)))
#> ODataQuery: https://services.odata.org/V4/TripPinServiceRW/People?$filter=(Friends/any(f:f/FirstName%20eq%20'John'))