Created Date: 26 July 2020 by Willianto Asalim
Click the icons to visit the websites.
library(leaflet)
melbSites <- c(
"<a href='https://www.parliament.vic.gov.au/'>Parliament House</a>",
"<a href='https://www.melbourne.vic.gov.au/about-melbourne/melbourne-heritage/history/pages/melbourne-town-hall-history.aspx'>Town Hall</a>",
"<a href='https://www.ptv.vic.gov.au/stop/1071/flinders-street-station'>Flinders St Station</a>",
"<a href='https://fedsquare.com/about'>Federation Square</a>",
"<a href='https://qvm.com.au/'>Queen Victoria Market</a>"
)
mel_loc <- data.frame(name = c("Parliament House", "Town Hall", "Flinders St Station", "Fed Square", "Queen Victoria Market"),
rat = c(20, 20, 50, 40, 30),
lat = c(-37.810789, -37.814911, -37.818042, -37.817866, -37.807453),
lng = c(144.973856, 144.966907, 144.967026, 144.969040, 144.956785))
mel_loc %>%
leaflet() %>%
addTiles() %>%
addMarkers(popup = melbSites) %>%
addCircles(weight = 1, radius = sqrt(mel_loc$rat) * 10) %>%
addLegend(labels = "Popularity circle", colors = c("blue"))This is a web page created using R Markdown that features an interactive map using the Leaflet package. It contains a created date at the top and today’s date at the bottom. This web page also contains iconic locations in Melbourne - Australia and please click on the icons to visit their respective websites.
These are the 5 iconic locations: - Parliament House - Seat of Victoria’s parliament built in 1856 with 2 legislative chambers and grand colonnaded facade. - Flinders St Station - Iconic, domed railway and metro hub, opened in 1909, with a yellow facade and an arched entrance. - Town Hall - This stately 19th-century town hall is the seat of local government & host to various events. - Federation Square - a venue for arts, culture and public events on the edge of the Melbourne central business district. - Queen Victoria Market - Longtime market selling food, clothing & more in a historic landmark spanning 2 city blocks.
Today is 26 July, 2020