Rectangling data: applications

locations$geometry[[1]] |> str()

## List of 4
##  $ bounds       :List of 2
##   ..$ northeast:List of 2
##   .. ..$ lat: num 30.1
##   .. ..$ lng: num -95
##   ..$ southwest:List of 2
##   .. ..$ lat: num 29.5
##   .. ..$ lng: num -95.8
##  $ location     :List of 2
##   ..$ lat: num 29.8
##   ..$ lng: num -95.4
##  $ location_type: chr "APPROXIMATE"
##  $ viewport     :List of 2
##   ..$ northeast:List of 2
##   .. ..$ lat: num 30.1
##   .. ..$ lng: num -95
##   ..$ southwest:List of 2
##   .. ..$ lat: num 29.5
##   .. ..$ lng: num -95.8