Get coin data for Steph

gistfile1.txt

library(jsonlite)
url <- 'https://finds.org.uk/database/search/results/q/objectType:COIN+-institution%3AIARCW+-institution:CCI/createdBefore/2017-11-12/format/json'
json <- fromJSON(url)
total <- json$meta$totalResults
results <- json$meta$resultsPerPage
pagination <- ceiling(total/results)
keeps <- c("id","old_findID","broadperiod", "objectType", "institution", "creator", "fourFigureLat", "fourFigureLon")
data <- json$results
data <- data[,(names(data) %in% keeps)]
for (i in seq(from=2, to=pagination, by=1)){
  urlDownload <- paste(url, '/page/', i, sep='')
  pagedJson <- fromJSON(urlDownload)
  records <- pagedJson$results
  records <- records[,(names(records) %in% keeps)]
  data <-rbind(data,records)
}
write.csv(data, file='inscribedSealMatrices.csv',row.names=FALSE, na="")