#
# Interactive Map Component
#

interactiveMapStatistics <- function(input, output) {
  output$interactive_world_map <- renderLeaflet(
    leaflet(World) %>% addTiles() %>% setView(-93.65, 42.0285, zoom = 17)
  )
}