title: “Leaflet Web Page” author: “Student” date: “2026-01-04” output: html_document —

library(leaflet)

leaflet() %>%
  addTiles() %>%
  addMarkers(
    lng = 46.6753,
    lat = 24.7136,
    popup = "Riyadh, Saudi Arabia"
  )