Welcome Message

Hey Welcome to Nanyang Technological University. Do you want to find a place to study? Just tick the Library you would like to go and the location will show up on the right. https://m1601.shinyapps.io/NTUmap/

library(shiny)
library(leaflet)
print("Find a NTU Library")
## [1] "Find a NTU Library"
libLocation = data.frame(name = c("LWN","BUS","CHN"),
                             lat = c(1.347488,1.346730,1.343671),
                             lng = c(103.680936,103.679081,103.682313),
                             popup = c("Lee Wee Nam Library","Business Library","Chinese Library"))

map = libLocation %>% leaflet() %>% addTiles() %>% addMarkers()
## Assuming "lng" and "lat" are longitude and latitude, respectively
map