This is the submission of the ‘Peer-graded Assignment: R Markdown and Leaflet’ under Developing Data Products Week 2 Assignment.

The map shows the Mukarram Hussain Khundker Biggyan Bhaban in the University of Dhaka with different departments, institutes, and research center.

Map

library(leaflet)

duIcon <- makeIcon(iconUrl = "https://du.ac.bd/fontView/assets/img/du_logo_new.png",
                   iconWidth = 31*215/230, iconHeight = 31)

duLatLong <- data.frame(
        lat = c(23.7280119549411, 23.728022408227023, 23.72842725335567, 23.728352083360885, 23.728776619266675, 23.729081001698738, 23.72916852903481, 23.72892026196527, 23.728751408237883, 23.728939608633656, 23.728664362687184, 23.72820969545509),
        lng = c(90.39882693558116, 90.39874916979458, 90.39845891296041, 90.39829713613545, 90.39837466636432, 90.39836028796563, 90.3986960354655, 90.39909902912969, 90.39898586729706, 90.39900862224431, 90.39902755907653, 90.39977386077717))

duSites <- c(
        "<a href='https://du.ac.bd/body/PHAR'>Department of Pharmacy</a>",
        "<a href='https://du.ac.bd/body/PTCH'>Department Of Pharmaceutical Technology</a>",
        "<a href='https://du.ac.bd/body/TCC'>Department of Theoretical & Computational Chemistry</a>",
        "<a href='https://du.ac.bd/body/DEMET'>Department of Meteorology</a>",
        "<a href='https://du.ac.bd/body/ISR'>Institute of Statistical Research & Training (ISRT)</a>",
        "<a href='https://du.ac.bd/body/IIT'>Institute of Information Technology (IIT)</a>",
        "<a href='https://cars.du.ac.bd/'>Centre for Advanced Research in Sciences (CARS)</a>",
        "<a href='https://du.ac.bd/body/GET'>Department of Genetic Engineering and Biotechnology</a>",
        "<a href='https://du.ac.bd/body/MBI'>Department of Microbiology</a>",
        "<a href='https://du.ac.bd/body/PCHM'>Department Of Pharmaceutical Chemistry</a>",
        "<a href='https://du.ac.bd/body/CSE'>Department of Computer Science & Engineering</a>",
        "<a href='https://du.ac.bd/body/RET'>Institute of Energy</a>"
)

duLatLong %>% 
        leaflet(width = "100%") %>%
        addTiles() %>%
        addMarkers(icon = duIcon, popup = duSites)