The hardware and bandwidth for this mirror is donated by dogado GmbH, the Webhosting and Full Service-Cloud Provider. Check out our Wordpress Tutorial.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]dogado.de.
library(ODataQuery)Here I’ll show some examples to use this package
service <- ODataQuery$new("https://services.odata.org/V4/TripPinServiceRW")
service$all()
#> name kind
#> 1 Photos EntitySet
#> 2 People EntitySet
#> 3 Airlines EntitySet
#> 4 Airports EntitySet
#> 5 Me Singleton
#> 6 GetNearestAirport FunctionImport
#> url
#> 1 http://services.odata.org/V4/(S(tbiq44cis1sraps0oabu0vat))/TripPinServiceRW/Photos
#> 2 http://services.odata.org/V4/(S(tbiq44cis1sraps0oabu0vat))/TripPinServiceRW/People
#> 3 http://services.odata.org/V4/(S(tbiq44cis1sraps0oabu0vat))/TripPinServiceRW/Airlines
#> 4 http://services.odata.org/V4/(S(tbiq44cis1sraps0oabu0vat))/TripPinServiceRW/Airports
#> 5 http://services.odata.org/V4/(S(tbiq44cis1sraps0oabu0vat))/TripPinServiceRW/Me
#> 6 http://services.odata.org/V4/(S(tbiq44cis1sraps0oabu0vat))/TripPinServiceRW/GetNearestAirportpeople_entity <- service$path("People")
# Get first page
people_entity$retrieve(count=TRUE)
#> $`@odata.count`
#> [1] 20
#>
#> $`@odata.nextLink`
#> [1] "https://services.odata.org/V4/(S(bdudzig0mg0k43vo4f4uxfoa))/TripPinServiceRW/People?%24count=true&%24skiptoken=8"
#>
#> $value
#> UserName FirstName LastName Emails
#> 1 russellwhyte Russell Whyte Russell@example.com, Russell@contoso.com
#> 2 scottketchum Scott Ketchum Scott@example.com
#> 3 ronaldmundy Ronald Mundy Ronald@example.com, Ronald@contoso.com
#> 4 javieralfred Javier Alfred Javier@example.com, Javier@contoso.com
#> 5 willieashmore Willie Ashmore Willie@example.com, Willie@contoso.com
#> 6 vincentcalabrese Vincent Calabrese Vincent@example.com, Vincent@contoso.com
#> 7 clydeguess Clyde Guess Clyde@example.com
#> 8 keithpinckney Keith Pinckney Keith@example.com, Keith@contoso.com
#> AddressInfo Gender Concurrency
#> 1 187 Suffolk Ln., United States, Boise, ID Male 6.376092e+17
#> 2 2817 Milton Dr., United States, Albuquerque, NM Male 6.376092e+17
#> 3 NULL Male 6.376092e+17
#> 4 89 Jefferson Way Suite 2, United States, Portland, WA Male 6.376092e+17
#> 5 NULL Male 6.376092e+17
#> 6 55 Grizzly Peak Rd., United States, Butte, MT Male 6.376092e+17
#> 7 NULL Male 6.376092e+17
#> 8 NULL Male 6.376092e+17
# Get all pages
people_entity$select("UserName", "FirstName", "LastName")$all()
#> UserName FirstName LastName
#> 1 russellwhyte Russell Whyte
#> 2 scottketchum Scott Ketchum
#> 3 ronaldmundy Ronald Mundy
#> 4 javieralfred Javier Alfred
#> 5 willieashmore Willie Ashmore
#> 6 vincentcalabrese Vincent Calabrese
#> 7 clydeguess Clyde Guess
#> 8 keithpinckney Keith Pinckney
#> 9 marshallgaray Marshall Garay
#> 10 ryantheriault Ryan Theriault
#> 11 elainestewart Elaine Stewart
#> 12 salliesampson Sallie Sampson
#> 13 jonirosales Joni Rosales
#> 14 georginabarlow Georgina Barlow
#> 15 angelhuffman Angel Huffman
#> 16 laurelosborn Laurel Osborn
#> 17 sandyosborn Sandy Osborn
#> 18 ursulabright Ursula Bright
#> 19 genevievereeves Genevieve Reeves
#> 20 kristakemp Krista Kemprussellwhyte <- people_entity$get("russellwhyte")
first_person <- people_entity$top(1)$one()
head(first_person)
#> $UserName
#> [1] "russellwhyte"
#>
#> $FirstName
#> [1] "Russell"
#>
#> $LastName
#> [1] "Whyte"
#>
#> $Emails
#> [1] "Russell@example.com" "Russell@contoso.com"
#>
#> $AddressInfo
#> Address City.CountryRegion City.Name City.Region
#> 1 187 Suffolk Ln. United States Boise ID
#>
#> $Gender
#> [1] "Male"
russellwhyte_friends <- russellwhyte$path("Friends")
russellwhyte_friends$all()
#> UserName FirstName LastName Emails
#> 1 scottketchum Scott Ketchum Scott@example.com
#> 2 ronaldmundy Ronald Mundy Ronald@example.com, Ronald@contoso.com
#> 3 javieralfred Javier Alfred Javier@example.com, Javier@contoso.com
#> 4 angelhuffman Angel Huffman Angel@example.com
#> AddressInfo Gender Concurrency
#> 1 2817 Milton Dr., United States, Albuquerque, NM Male 6.376092e+17
#> 2 NULL Male 6.376092e+17
#> 3 89 Jefferson Way Suite 2, United States, Portland, WA Male 6.376092e+17
#> 4 NULL Female 6.376092e+17get_nearest_airport <- service$func('GetNearestAirport')
get_nearest_airport(lat = 33, lon = -118)
#> $IcaoCode
#> [1] "KLAX"
#>
#> $Name
#> [1] "Los Angeles International Airport"
#>
#> $IataCode
#> [1] "LAX"
#>
#> $Location
#> $Location$Address
#> [1] "1 World Way, Los Angeles, CA, 90045"
#>
#> $Location$City
#> $Location$City$CountryRegion
#> [1] "United States"
#>
#> $Location$City$Name
#> [1] "Los Angeles"
#>
#> $Location$City$Region
#> [1] "California"
#>
#>
#> $Location$Loc
#> $Location$Loc$type
#> [1] "Point"
#>
#> $Location$Loc$coordinates
#> [1] -118.4081 33.9425
#>
#> $Location$Loc$crs
#> $Location$Loc$crs$type
#> [1] "name"
#>
#> $Location$Loc$crs$properties
#> $Location$Loc$crs$properties$name
#> [1] "EPSG:4326"people_query <- people_entity$
top(5)$
select('FirstName', 'LastName')$
filter(Concurrency.gt = 500)$
expand('Friends($count=true)')$
orderby('LastName')
people_query$all()
#> FirstName LastName Friends@odata.count
#> 1 Javier Alfred 3
#> 2 Willie Ashmore 2
#> 3 Georgina Barlow 1
#> 4 Ursula Bright 1
#> 5 Vincent Calabrese 2
#> Friends
#> 1 willieashmore, vincentcalabrese, georginabarlow, Willie, Vincent, Georgina, Ashmore, Calabrese, Barlow, Willie@example.com, Willie@contoso.com, Vincent@example.com, Vincent@contoso.com, Georgina@example.com, Georgina@contoso.com, 55 Grizzly Peak Rd., United States, Butte, MT, Male, Male, Female, 637609246868923904, 637609246868923904, 637609246868923904
#> 2 javieralfred, vincentcalabrese, Javier, Vincent, Alfred, Calabrese, Javier@example.com, Javier@contoso.com, Vincent@example.com, Vincent@contoso.com, 89 Jefferson Way Suite 2, United States, Portland, WA, 55 Grizzly Peak Rd., United States, Butte, MT, Male, Male, 637609246868923904, 637609246868923904
#> 3 javieralfred, Javier, Alfred, Javier@example.com, Javier@contoso.com, 89 Jefferson Way Suite 2, United States, Portland, WA, Male, 637609246868923904
#> 4 keithpinckney, Keith, Pinckney, Keith@example.com, Keith@contoso.com, Male, 637609246868923904
#> 5 javieralfred, willieashmore, Javier, Willie, Alfred, Ashmore, Javier@example.com, Javier@contoso.com, Willie@example.com, Willie@contoso.com, 89 Jefferson Way Suite 2, United States, Portland, WA, Male, Male, 637609246868923904, 637609246868923904opendata_service <- ODataQuery$new("http://beta-odata4.cbs.nl/")
entity_81589NED <- opendata_service$path("CBS", "81589NED", Observations")
dataset_81589NED <- entity_81589NED$all()Connecting with older OData v2 works, but some features have been changed.
northwind_service <- ODataQuery$new("https://services.odata.org/V2/Northwind/Northwind.svc/")
customer_entity <- northwind_service$path("Customers")
customer_entity$
select("CompanyName", "Address", "Phone")$
filter(Country.eq = "Germany", City.eq = "Berlin")So far, I haven’t been able to figure out how their data model works, but at least we can connect to it.
denhaag_service <- ODataQuery$new("https://denhaag.incijfers.nl/jiveservices/odata/")
denhaag_service$path('DataSources')These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.