Leaflet - map the data - reproducible

server.r

library(shiny)
library(leaflet)
library(RCurl)

shinyServer(function(input, output) {


  
  URL <- getURL("https://commondatastorage.googleapis.com/ckannet-storage/2012-07-09T214020/global_airports.csv")
  mydata <- read.csv(text = URL)
  

  
  output$mymap <- renderLeaflet({
    leaflet(mydata) %>% 
      addProviderTiles("Esri.WorldTopoMap") %>%
      addMarkers() %>%
      setView(lng = -5, lat =5 , zoom=2) # centered at the lat, lon defined and zoomed
  
     

      
  })
  
})

ui.r

library(shiny)
library(leaflet)
shinyUI(bootstrapPage(
 # tags$style(type = "text/css", "html, body {width:100%;height:200%}"),
  leafletOutput("mymap")

  
))