This site is created on Aug 05 2018
library(leaflet)
df_TX_LatLong <- data.frame(
lat = c(30.2672, 32.7767, 29.7604, 29.4241),
lng = c(-97.7431, -96.7970, -95.3698, -98.4936))
df_TX_w_sites <- c(
"<a href = 'https://www.wunderground.com/weather/us/tx/austin' > Click for Weather in Austin, Tx </a>",
"<a href = 'https://www.wunderground.com/weather/us/tx/dallas' > Click for weather in Dallas, Tx </a>",
"<a href = 'https://www.wunderground.com/weather/us/tx/houston' > Click for weather in Houston, Tx </a>",
"<a href = 'https://www.wunderground.com/weather/us/tx/san-antonio' > Click for weather in San Antonio, Tx </a>"
)
df_TX_LatLong %>%
leaflet %>%
addTiles() %>%
addMarkers(popup = df_TX_w_sites)