nháp

library(htmlwidgets)

## Warning: package 'htmlwidgets' was built under R version 4.2.3

library(leaflet)

## Warning: package 'leaflet' was built under R version 4.2.3

widget <- leaflet() %>% addTiles()
saveWidget(widget, file = "leaflet.html", selfcontained = TRUE)