Hamburgs Top Tourist Attractions

library(rgdal)

## Warning: package 'rgdal' was built under R version 3.4.4

## Loading required package: sp

## Warning: package 'sp' was built under R version 3.4.4

## rgdal: version: 1.2-20, (SVN revision 725)
##  Geospatial Data Abstraction Library extensions to R successfully loaded
##  Loaded GDAL runtime: GDAL 2.2.3, released 2017/11/20
##  Path to GDAL shared files: C:/Program Files/R/R-3.4.3/library/rgdal/gdal
##  GDAL binary built with GEOS: TRUE 
##  Loaded PROJ.4 runtime: Rel. 4.9.3, 15 August 2016, [PJ_VERSION: 493]
##  Path to PROJ.4 shared files: C:/Program Files/R/R-3.4.3/library/rgdal/proj
##  Linking to sp version: 1.2-7

library(rgeos)

## Warning: package 'rgeos' was built under R version 3.4.4

## rgeos version: 0.3-26, (SVN revision 560)
##  GEOS runtime version: 3.6.1-CAPI-1.10.1 r0 
##  Linking to sp version: 1.2-7 
##  Polygon checking: TRUE

library(leaflet)

## Warning: package 'leaflet' was built under R version 3.4.4

if(!file.exists("hamburg.shp")){
  file.create("hamburg.shp")
  download.file("https://raw.githubusercontent.com/codeforamerica/click_that_hood/master/public/data/hamburg.geojson", "hamburg.shp")
}

dat <- readOGR(dsn = "hamburg.shp")

## OGR data source with driver: GeoJSON 
## Source: "D:\Eigene Dateien\Documents\ShinyWebApp\hamburg.shp", layer: "hamburg"
## with 103 features
## It has 4 fields

my_map <- leaflet() %>%
        addTiles() %>%
        addPolygons(data=dat) %>%
        addMarkers(lat = 53.541350, lng = 9.985102, popup = "Elbphilarmonie") %>%
        addMarkers(lat = 53.549444, lng = 9.962222, popup = "Reeperbahn")  %>%
        addMarkers(lat = 53.543333, lng = 9.991944, popup = "Speicherstadt") %>%
        addMarkers(lat = 53.543889, lng = 9.988889, popup = "Miniatur Wunderland") %>%
        addMarkers(lat = 53.596389, lng = 9.937778, popup = "Tierpark Hagenbeck")
my_map

53.596389