library(leaflet)                                                    
                                                                    
leaf <- leaflet() %>%                                               
  addTiles() %>%                                                      
  addScaleBar()                                                       
                                                                    
# displays scalebar in top right                                    
leaf                                                                

                                                                    
# no scalebar displayed in top right                                
leaf %>% removeScaleBar()                                           

# displays scalebar in top right with blue polygons over switzerland
leaflet() %>%                                                       
  addTiles() %>%                                                      
  addScaleBar() %>%                                                   
  addScaleBar() %>% # triggers remove scalebar internally             
  addPolygons(data = gadmCHE)                                         
#> Loading required package: sp