sandbox/reverse_queries/osm_reverse_extras.R

In jessecambon/tidygeocoder: Geocoding Made Easy

num_coords <- 10

set.seed(103)

lat_limits <- c(40.40857, 40.42585)
long_limits <- c(-3.72472, -3.66983)

random_lats <- runif(
  num_coords, 
  min = lat_limits[1], 
  max = lat_limits[2]
)

random_longs <- runif(
  num_coords, 
  min = long_limits[1], 
  max = long_limits[2]
)


url_base  <- 'https://nominatim.openstreetmap.org/reverse'


soup <- httr::GET(url = url_base, 
                  query = list(lat = random_lats[3], 
                               lon = random_longs[3],
                              namedetails = 1,
                              addressdetails = 1,
                              extratags = 1,
                               limit = 1,
                               format = 'json'
                                 ))

response <- jsonlite::fromJSON(httr::content(soup, as = 'text', encoding = "UTF-8"))


# results_full <- cbind(response[!(names(response) %in% c('display_name', 'boundingbox', 'address'))], 
#       tibble::as_tibble(response[['address']]), tibble::tibble(boundingbox = list(response$boundingbox))) 


r#esults_full <- tidygeocoder:::extract_reverse_results('osm', response)


a <- response[!(names(response) %in% c('display_name', 'boundingbox', 'address'))]
a[sapply(a, function(x) length(x) == 0)] <- NULL # get rid of empty lists

b <- tibble::as_tibble(response[['address']])
c <- tibble::tibble(boundingbox = list(response$boundingbox))


combi <- tibble::as_tibble(dplyr::bind_cols(as.data.frame(a), b, c))
  
test <- tidygeocoder:::extract_osm_reverse_full(response)


#f_address <- raw_results$display_name
#df_not_address <- raw_results[!(names(raw_results) %in% c('display_name', 'boundingbox'))]

#lapply(full_list, function(x) do.call(rbind, x))

#full_results <- dplyr::bind_cols(df_address, df_not_address)


#results <- tidygeocoder::extract_results(selected_method, raw_results)