I want to get the info stored in some JQuery scripts
link <- "https://rod.pulse.gop.pk/details_page.html?I=740287512"
webpage <- xml2::read_html(link)
In the above link it only shows partial data but what I want to get is the json file with full data stored in some link inspect > network > _search
https://rodb.pulse.gop.pk/registry_index_2/_search
below is the data stored in the above link
{"took":1,"timed_out":false,"_shards":{"total":1,"successful":1,"skipped":0,"failed":0},"hits":{"total":{"value":1,"relation":"eq"},"max_score":1.0,"hits":[{"_index":"registry_index_2","_id":"740287512","_score":1.0,"_source":{"Id":740287512,"UserId":13887,"VendorId":1,"UserWorkQueMasterId":740237089,"RegisteredNumber":"310","JildNumber":"1489","PropertyNumber":"واقع رقبہ موضع سوہان دیہاتی اندر حدود میونسپل کارپوریشن راولپنڈی تحصیل و ضلع راولپنڈی ","IsApproved":true,"IsJildCompleted":false,"BahiNumber":null,"RegistryDate":"1993-01-25","IsActive":true,"CreatedDate":"2023-10-23T20:09:19.310000","ModifiedDate":null,"CreatedBy":13887,"ModifiedBy":null,"TehsilId":112,"MauzaId":0,"Address":"N/A","IsExported":null,"Area":"0-8-0-0","RegistryValue":128000.0,"RegistryExportImg":"cfe958064b6c79b71e03350b5394f32a","NonNullFCount":null,"NullFCount":null,"RegistryTypeId":5,"MauzaName":null,"RegistryParties":[{"Id":18595212,"Name":"محمد یسین ","SpouseName":"شمس الدین ","CNIC":"21134087515","RegistryPartiesTypeId":1,"CraetedDate":"2023-10-23T20:09:19.310000","ModifiedDate":null,"CreatedBy":13887,"ModifiedBy":null,"VendorId":1,"SequenceNumber":1,"RegistryExportImg":"b17f19516a4fc8742aa21ce8bf0340b4"},{"Id":18595213,"Name":"چوہدری رحمت ","SpouseName":"چوہدری الله دین ","CNIC":"0","RegistryPartiesTypeId":2,"CraetedDate":"2023-10-23T20:09:19.310000","ModifiedDate":null,"CreatedBy":13887,"ModifiedBy":null,"VendorId":1,"SequenceNumber":2,"RegistryExportImg":"89c79a6b93dde25904088ce129b1a22a"}],"RegistryType":"بیع","Tehsil":"راولپنڈی"}}]}}
library(jsonlite)
lines <- readLines("_search.json")
lines[1] <- sub(".* = (.*)", "\1", lines[1])
lines[length(lines)] <- sub(";", "", lines[length(lines)])
json_data <- fromJSON(paste(lines, collapse="n"))
head(json_data[[4]][[3]])
The above data is publicly available data