R/contours.R

In l-k-11235/metiers: Projet R M1SSD

#' Contours
#' met les contours des régions sur la carte de la France
#' @param map 
#'
#' @return 
#' @export
#' @import leaflet
#' @import htmltools
#' @imprt dplyr
#' @examples
contours<-function(map){
  

counter <- 1

for(i in blocks){
  m <- matrix(as.numeric(strsplit(blocks,",")[[counter]]),ncol=2,byrow=TRUE)
  index<-c(2,1)
  m<-m[,index]
  map <- leaflet::addPolygons(map, data = m, color = 'blue', weight = 0.50,
                     smoothFactor = 0.9,opacity = 3, fillOpacity = 0.2)
  
  counter <- counter +1
  
}

map
map %>% leaflet::addProviderTiles(providers$CartoDB.Positron)
}