New7Wonders of the World (2000–2007) was an initiative started in 2000 to choose Wonders of the World from a selection of 200 existing monuments. The popularity poll was led by Canadian-Swiss Bernard Weber and organized by the New7Wonders Foundation based in Zurich, Switzerland, with winners announced on 7 July 2007 in Lisbon.
This map provides interactive view of all wonders.
rm(list = ls())
cat("\014")
library(leaflet)
#Assignment 1
siteLink <- c(
"<a href='https://en.wikipedia.org/wiki/Great_Pyramid_of_Giza'>Great Pyramid of Giza <br> Location : Giza Necropolis, Egypt <br> Year : 2560 BC <br>Honorary Status</a>",
"<a href='https://en.wikipedia.org/wiki/Great_Wall_of_China'>Great Wall of China <br> Location : China <br> Year : 700 BC</a>",
"<a href='https://en.wikipedia.org/wiki/Petra'>Petra <br> Location : Jordan <br> Year : 312 BC</a>",
"<a href='https://en.wikipedia.org/wiki/Colosseum'>The Colosseum <br> Location : Rome, Italy<br> Year : 80 AD</a>",
"<a href='https://en.wikipedia.org/wiki/Chichen_Itza'>Chichen Itza <br> Location : Yucatán, Mexico<br> Year : 600 AD</a>",
"<a href='https://en.wikipedia.org/wiki/Machu_Picchu'>Machu Picchu <br> Location : Cuzco Region, Peru<br> Year : 1450 AD</a>",
"<a href='https://en.wikipedia.org/wiki/Taj_Mahal'>Taj Mahal <br> Location : Agra, Uttar Pradesh, India<br> Year : 1643 AD</a>",
"<a href='https://en.wikipedia.org/wiki/Christ_the_Redeemer_(statue)'>Christ the Redeemer <br> Location : Rio de Janeiro, Brazil<br> Year : 1931 AD</a>"
)
site1Icon <-makeIcon(
iconUrl = 'https://upload.wikimedia.org/wikipedia/commons/thumb/e/e3/Kheops-Pyramid.jpg/300px-Kheops-Pyramid.jpg',
iconWidth = 31*215/230, iconHeight = 31,
iconAnchorX = 31*215/230/2, iconAnchorY = 4)
site2Icon <-makeIcon(
iconUrl = 'https://upload.wikimedia.org/wikipedia/commons/thumb/2/23/The_Great_Wall_of_China_at_Jinshanling-edit.jpg/240px-The_Great_Wall_of_China_at_Jinshanling-edit.jpg',
iconWidth = 31*215/230, iconHeight = 31,
iconAnchorX = 31*215/230/2, iconAnchorY = 16)
site3Icon <-makeIcon(
iconUrl = 'https://upload.wikimedia.org/wikipedia/commons/thumb/f/f5/Petra_Jordan_BW_21.JPG/250px-Petra_Jordan_BW_21.JPG',
iconWidth = 31*215/230, iconHeight = 31,
iconAnchorX = 31*215/230/2, iconAnchorY = 36)
site4Icon <-makeIcon(
iconUrl = 'https://upload.wikimedia.org/wikipedia/commons/thumb/5/53/Colosseum_in_Rome%2C_Italy_-_April_2007.jpg/220px-Colosseum_in_Rome%2C_Italy_-_April_2007.jpg',
iconWidth = 31*215/230, iconHeight = 31,
iconAnchorX = 31*215/230/2, iconAnchorY = 16)
site5Icon <-makeIcon(
iconUrl = 'https://upload.wikimedia.org/wikipedia/commons/thumb/5/51/Chichen_Itza_3.jpg/360px-Chichen_Itza_3.jpg',
iconWidth = 31*215/230, iconHeight = 31,
iconAnchorX = 31*215/230/2, iconAnchorY = 16)
site6Icon <-makeIcon(
iconUrl = 'https://upload.wikimedia.org/wikipedia/commons/thumb/0/01/80_-_Machu_Picchu_-_Juin_2009_-_edit.2.jpg/300px-80_-_Machu_Picchu_-_Juin_2009_-_edit.2.jpg',
iconWidth = 31*215/230, iconHeight = 31,
iconAnchorX = 31*215/230/2, iconAnchorY = 16)
site7Icon <-makeIcon(
iconUrl = 'https://upload.wikimedia.org/wikipedia/commons/thumb/1/1f/Taj_Mahal_N-UP-A28-a.jpg/250px-Taj_Mahal_N-UP-A28-a.jpg',
iconWidth = 31*215/230, iconHeight = 31,
iconAnchorX = 31*215/230/2, iconAnchorY = 16)
site8Icon <-makeIcon(
iconUrl = 'https://upload.wikimedia.org/wikipedia/commons/thumb/8/87/Cristo_Redentor_-_Rio_de_Janeiro%2C_Brasil.jpg/220px-Cristo_Redentor_-_Rio_de_Janeiro%2C_Brasil.jpg',
iconWidth = 31*215/230, iconHeight = 31,
iconAnchorX = 31*215/230/2, iconAnchorY = 16)
newWonderList <- leaflet() %>%
addTiles() %>%
addMarkers(lat = 29.979175, lng = 31.134358, popup = siteLink[1], icon = site1Icon) %>%
addMarkers(lat = 40.68, lng = 117.23, popup = siteLink[2], icon = site2Icon) %>%
addMarkers(lat = 30.328611, lng = 35.441944, popup = siteLink[3], icon = site3Icon) %>%
addMarkers(lat = 41.8902102, lng = 12.4922309, popup = siteLink[4], icon = site4Icon) %>%
addMarkers(lat = 20.683056, lng = -88.568611, popup = siteLink[5], icon = site5Icon) %>%
addMarkers(lat = -13.163333, lng = -72.545556, popup = siteLink[6], icon = site6Icon) %>%
addMarkers(lat = 27.175, lng = 78.041944, popup = siteLink[7], icon = site7Icon) %>%
addMarkers(lat = -22.951944, lng = -43.210556, popup = siteLink[8], icon = site8Icon)
newWonderListsessionInfo()## R version 3.3.2 (2016-10-31)
## Platform: x86_64-apple-darwin13.4.0 (64-bit)
## Running under: macOS Sierra 10.12.1
##
## locale:
## [1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
##
## attached base packages:
## [1] stats graphics grDevices utils datasets methods base
##
## other attached packages:
## [1] leaflet_1.0.1
##
## loaded via a namespace (and not attached):
## [1] htmlwidgets_0.8 backports_1.0.4 magrittr_1.5 rprojroot_1.1
## [5] markdown_0.7.7 tools_3.3.2 htmltools_0.3.5 yaml_2.1.14
## [9] Rcpp_0.12.9 stringi_1.1.2 rmarkdown_1.3 knitr_1.15.1
## [13] jsonlite_1.2 stringr_1.1.0 digest_0.6.11 evaluate_0.10