Waterfall Data from Chattanooga

This data was collected and then edited and/or checked for accuracy by staff of the UT Chattanooga ARCS. https://data.chattlibrary.org/dataset/Waterfalls/6mh3-bg3z.

Webpage will show waterfall icons and their location names.

November 17, 2016

# Initiating library
library(leaflet)

# Waterfall Icon Image
iconFile <- "/Users/Amit/data/Waterfall.png"
waterfallIcon <- makeIcon(iconFile)

# Saving data file in variable
waterfallsDataFile <- "/Users/Amit/data/Waterfalls.csv"

# Reading data file
waterfallsDataSet <- read.csv(waterfallsDataFile, header=TRUE, as.is = TRUE, stringsAsFactors = FALSE, sep=',', na.strings=c('NA','','#DIV/0!'))

# Storing Waterfall Name
waterfallsDataSet$Name <- paste(waterfallsDataSet$Waterfall)

# Plotting graph
waterfallsDataSet %>% leaflet() %>% addTiles() %>% addMarkers(lng=waterfallsDataSet$LONG, lat = waterfallsDataSet$LAT,clusterOptions = markerClusterOptions(), icon=waterfallIcon, popup =~waterfallsDataSet$Name)