mapping indian subcontinent earthquake

interactive_map.R

## Major earthquake in Indian Sub-continent

## Load the libraries
library(shiny)
library(leaflet)

# Attach the data
quake_data <- read.csv("india.csv", stringsAsFactors = FALSE)

# UI side
ui <- bootstrapPage(
  tags$style(type = "text/css", "html, body {width:100%; height:100%}"),
  leafletOutput("map", width = "100%", height = "100%"),
  absolutePanel(top = 10, right = 2,
                h2("Earthquakes in Indian subcontinent"),
                selectInput("year", "Select a Year",
                            unique(quake_data$Year)),
                h5("Click on the red dot for info")
                )
)

# Server side
server <- function(input, output, session){
  output$map <- renderLeaflet({
    quake_data <- quake_data[quake_data$Year == input$year, ]
    leaflet(quake_data) %>%
      addTiles() %>%
      setView(lng = 78, lat = 21, zoom = 4) %>%
      addCircleMarkers(lng = ~Long ,lat = ~Lat, radius = ~(Magnitude*2), color = "red",
                       stroke = FALSE, fillOpacity = 0.4, popup = ~paste(sep = " ",
                                                          "magnitude-",Magnitude, "Death-",Deaths))
  })
}

shinyApp(ui, server)