R/location_street.R

In paris-appartemnt-project/apartment_project: Code to Find the Best Apartment to Buy in Paris

#' Find the longitude and latitude of an apartment according to its street
#'
#' @param street street of the apartment
#'
#' @return dataframe with two columns : latitude and longitude
#' @export
#' @import dplyr
#' @importFrom googleway google_geocode
#' @importFrom purrr map
location_street <- function(street){
  streets <- strsplit(street,",")
  streets <- paste0(streets,", Paris, France")
  streets <- streets %>%
    map(google_geocode, key = my.env$google_key)
  coord <- map(streets, function(i) i$results$geometry$location) %>%
    bind_rows() %>%
    summarise(lat=mean(lat),lng=mean(lng))
  return(coord)
}