library(tmap)
data("World")

tm_shape(World) +
  tm_polygons("HPI",
              palette = "scico.hawaii",
              style = "cont",
              title = "Global Health and Well-Being Index") +
  tm_layout(title = "Global HPI Map")
## 
## ── tmap v3 code detected ───────────────────────────────────────────────────────
## [v3->v4] `tm_polygons()`: instead of `style = "cont"`, use fill.scale =
## `tm_scale_continuous()`.
## ℹ Migrate the argument(s) 'palette' (rename to 'values') to
##   'tm_scale_continuous(<HERE>)'
## [v3->v4] `tm_polygons()`: migrate the argument(s) related to the legend of the
## visual variable `fill` namely 'title' to 'fill.legend = tm_legend(<HERE>)'
## [v3->v4] `tm_layout()`: use `tm_title()` instead of `tm_layout(title = )`
## [tip] Consider a suitable map projection, e.g. by adding `+ tm_crs("auto")`.
## [plot mode] fit legend/component: Some legend items or map compoments do not
## fit well, and are therefore rescaled.
## ℹ Set the tmap option `component.autoscale = FALSE` to disable rescaling.

library(leaflet)

centers <- data.frame(
  name = c("Mirpur Clinic", "Dhanmondi Hospital", "Uttara Health Center"),
  lat = c(23.815, 23.746, 23.877),
  lng = c(90.355, 90.365, 90.395)
)

leaflet(centers) %>%
  addTiles() %>%
  addMarkers(~lng, ~lat,
             popup = ~name,
             label = ~name)
library(terra)
## terra 1.8.60
elev <- rast(system.file("ex/elev.tif", package = "terra"))

plot(elev, main = "Elevation (m)")