Super Storm Sandy - Web Page with Leaflet Plots for High Water Marks (Flooding)

Summary Description

A dataset was provided by NOAA - National Weather Service (NWS). The dataset pertains to Super Storm Sandy that impacted the Eastern United States during October 2012. When a user of the web page higlights the data marker; the latitude, longitude, county name, state name,high water mark elevation, and high water mark location description.

options(warn=-1)
# Load the necessary libaries 
library(knitr)
suppressPackageStartupMessages(library(googleVis))

## Creating a generic function for 'toJSON' from package 'jsonlite' in package 'googleVis'

library(leaflet)

# The data was previously downloaded from NOAA-NWS and read in from our default directory.
# Read in our data set.
stormData <- read.csv(file="./FilteredHWMs.csv", header=TRUE)

# head(stormData)
# str(stormData)

# Create the hover data set for each data point. 
# Create the pop-up dialog for the map.
stormData$hover <- with(stormData, paste("Latitude:  ",latitude_dd, "<BR>", 
                                         "Longitude:  ",longitude_dd , "<BR>", 
                                         "County Name:  ",countyName, "<BR>", 
                                         "State Name:  ",stateName, "<BR>", 
                                         "High Water Mark Elevation:  ",elev_ft, "<BR>",                                                                     "High Water Mark Location Description:  ",hwm_locationdescription))

stormData %>%
          leaflet() %>%
          addTiles() %>%
          addCircleMarkers(weight=0.75, radius=(sqrt(stormData$latitude_dd))/2,
                                                      popup = stormData$hover)

## Assuming 'longitude' and 'latitude' are longitude and latitude, respectively