R/fond_carte.R

In l-k-11235/projetMetiers: Le package du projet R dy M1 SSD 2019

#' fond_carte
#'
#'renvoie un fond de carte centré sur la France
#' @return objet de classes "htmlwidget" , "leaflet"
#' @import htmltools
#' @examples fond_carte()
#' @export
fond_carte <- function()
  {
  leaflet::leaflet(df)%>%
    leaflet::fitBounds(-1.9,44,4,52)%>%
    leaflet::addTiles()%>%
    leaflet::addMarkers(~Long, ~Lat, label = ~htmlEscape(df$Name),popup = ~htmlEscape(df$Metiers))
}