Plot points, labelling, set icon, set layer groups of basemap using leaflet package in R

Rleaflet.R

rm(list = ls())
setwd("D:/Learn/Rleaflet")

install.packages("shiny")
install.packages("leaflet")
library(leaflet)
library(htmltools)
library(sp)
library(rgdal)


pump <- readOGR("Lundpump.shp")
plot(pump)

pumpicon <- icons(ifelse(pump$status=="Working","bikeblue.png",
                  "bikered.png"), iconWidth=40,iconHeight=40)

m <- leaflet(pump) %>%
  addProviderTiles(providers$CartoDB.Positron, group= "CartoDB") %>%
  addProviderTiles(providers$Esri.WorldImagery, group = "Imagery") %>%
  addTiles(group = "OSM") %>%
  setView(lng=13.195, lat=55.705, zoom=14) %>%
  addMarkers(lng=~xcoord, lat=~ycoord, icon=pumpicon, popup=~descriptio, 
             label=~Name, group = "Pump") %>%
  addLayersControl(
    baseGroups=c("CartoDB", "Imagery", "OSM"),
    overlayGroups=c("Pump"),
    options=layersControlOptions(collapsed=FALSE)) %>%
  addEasyButton(easyButton(
    icon="fa-crosshairs", title="Locate me",
    onClick=JS("function(btn, map){ map.locate({setView: true});}")));

print(m)

#Export as webpage, rename index.html
#Upload to repo
#Embed by <iframe src="relative path to the export folder"> </iframe>