Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Receive data from the ImmobilienScout24-API
library(httr)
library(jsonlite)
library(tidyverse)
# Keys, but it's better to set up
# environment variables via 'Sys.setenv'
consumerKey <- "aaa"
consumerSecret <- "bbb"
immo24_app <- oauth_app(appname = "app",
key = consumerKey,
secret = consumerSecret)
url <- "https://rest.immobilienscout24.de/restapi/api/search/v1.0/search/region?realestatetype=apartmentrent&geocodes=1276003001"
signature <- oauth_signature(url, method = "GET", app = immo24_app)
res <- GET(url, oauth_header(signature))
stop_for_status(res)
text <- content(res, as = 'text', encoding="UTF-8")
glimpse(fromJSON(text))
# List of 1
# $ resultlist.resultlist:List of 2
# ..$ paging :List of 6
# .. ..$ next :List of 1
# .. ..$ pageNumber : int 1
# .. ..$ pageSize : int 20
# .. ..$ numberOfPages : int 109
# .. ..$ numberOfHits : int 2162
# .. ..$ numberOfListings: int 2162
# ..$ resultlistEntries:'data.frame': 1 obs. of 3 variables:
# .. ..$ @numberOfHits : chr "2162"
# .. ..$ @realEstateType: chr "0"
# .. ..$ resultlistEntry:List of 1
glimpse(fromJSON(text)$resultlist.resultlist$resultlistEntries$resultlistEntry)
# List of 1
# $ :'data.frame': 20 obs. of 10 variables:
# ..$ @xlink.href : chr [1:20] "https://rest.immobilienscout24.de/restapi/api/search/v1.0/expose/114437..." "--" "--" "--" ...
# ..$ @id : chr [1:20] "11443..." "11347..." "11787..." "11713..." ...
# ..$ @modification : chr [1:20] "2020-05-08T11:43:00.609+02:00" "2020-01-02T09:31:53.025+01:00" "2020-04-30T14:38:21.206+02:00" "2020-05-01T20:07:03.548+02:00" ...
# ..$ @creation : chr [1:20] "2019-11-13T17:12:09.000+01:00" "2019-09-11T18:00:13.000+02:00" "2020-04-30T14:48:43.000+02:00" "2020-04-08T20:10:51.000+02:00" ...
# ..$ @publishDate : chr [1:20] "2019-11-13T17:12:09.000+01:00" "2019-09-11T18:00:13.000+02:00" "2020-04-30T14:48:43.000+02:00" "2020-04-08T20:10:51.000+02:00" ...
# ..$ realEstateId : int [1:20] "--" "--" "--" "--"...
# ..$ newHomeBuilder : chr [1:20] "false" "false" "false" "false" ...
# ..$ disabledGrouping : chr [1:20] "false" "false" "false" "false" ...
# ..$ resultlist.realEstate:'data.frame': 20 obs. of 23 variables:
# .. ..$ @xsi.type : chr [1:20] "search:ApartmentRent" "search:ApartmentRent" "search:ApartmentRent" "search:ApartmentRent" ...
# .. ..$ @id : chr [1:20] "11443..." "11347..." "11787..." "1171..." ...
# .. ..$ title : chr [1:20] "--" "--" "--" "--" ...
# .. ..$ address :'data.frame': 20 obs. of 7 variables:
# .. ..$ companyWideCustomerId : chr [1:20] "002.01000793336" "001.15652831" "001.6749" "001.63" ...
# .. ..$ titlePicture :'data.frame': 20 obs. of 8 variables:
# .. ..$ floorplan : chr [1:20] "true" "true" "true" "false" ...
# .. ..$ streamingVideo : chr [1:20] "false" "false" "false" "false" ...
# .. ..$ listingType : chr [1:20] "XL" "XL" "XL" "XL" ...
# .. ..$ showcasePlacementColor : chr [1:20] "#FF7800" "#343434" "#343434" "#343434" ...
# .. ..$ privateOffer : chr [1:20] "false" "false" "false" "false" ...
# .. ..$ realtorLogo : chr [1:20] "--" "--" "--" "--" ...
# .. ..$ realtorCompanyName : chr [1:20] "--" "--" "--" "--" ...
# .. ..$ realtorLogoForResultList :'data.frame': 20 obs. of 5 variables:
# .. ..$ price :'data.frame': 20 obs. of 4 variables:
# .. ..$ livingSpace : num [1:20] 125 186 140 136 133 ...
# .. ..$ numberOfRooms : num [1:20] 4 2 3 3 3 4 4 3.5 4 2 ...
# .. ..$ energyPerformanceCertificate: chr [1:20] "true" NA "true" "true" ...
# .. ..$ energyEfficiencyClass : chr [1:20] "B" NA NA "B" ...
# .. ..$ builtInKitchen : chr [1:20] "false" "true" "false" "true" ...
# .. ..$ balcony : chr [1:20] "true" "true" "true" "false" ...
# .. ..$ garden : chr [1:20] "true" "false" "true" "false" ...
# .. ..$ calculatedPrice :'data.frame': 20 obs. of 5 variables:
# ..$ hasNewFlag : chr [1:20] "false" "false" "true" "false" ...
x <- fromJSON(text)$resultlist.resultlist$resultlistEntries$resultlistEntry
x <- x[[1]]$resultlist.realEstate
x
glimpse(x)
#
# FINI
#
@ruedimental

This comment has been minimized.

Copy link

ruedimental commented Sep 6, 2018

Says:
Error in is.oauth_endpoint(endpoint) || !is.null(credentials) :
object 'token' not found
Why is that?

@gurucollective

This comment has been minimized.

Copy link

gurucollective commented May 16, 2019

Struggling to get this to work, getting a 403. Is the script up to date?

@patperu

This comment has been minimized.

Copy link
Owner Author

patperu commented Oct 7, 2019

Hi,
I updated the script. Should work now.

@ThesisJonas

This comment has been minimized.

Copy link

ThesisJonas commented Apr 17, 2020

Hi,
how can I get the tokenGenerated and tokenSecret?
I already have consumerKey and consumerSecret - received from Immobilienscout24 directly.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.