set_couleur_saphirs <-
function(map,colEntree="#EB617F",colSortie="#286AC7",colBorder="black",map_leaflet=NULL

set_couleur_saphirs <-
function(map,colEntree="#EB617F",colSortie="#286AC7",colBorder="black",map_leaflet=NULL

]]$args[[2]]$var_flux
colBorder <- map$x$calls[[idx_fleche]]$args[[4]]$color
colEntree <- map$x$calls

[[idx_fleche]]$args[[4]]$color
colEntree <- map$x$calls[[idx_fleche]]$args[[2]]$colEntree
colSortie <- map$x$calls

colEntree <- colFleche[1]
colSortie <- colFleche[2]
}else

<- unique(map$x$calls[[idx_fleche]]$args[4][[1]]$fillColor)
if(length(colFleche)>1)
colEntree

<- list_fonds[[4]]
colEntree <- list_fonds[[5]]
colSortie <- list_fonds[[6]]

")
if(is.null(titre1)) titre1 <- list_fonds[[3]]
if(is.null(source)) source <- list_fonds[[4]]

,largeurFlecheMax=NULL,direction="Ent",filtreVol=0,colEntree="#EB617F",colSortie="#286AC7",colBorder="#303030",emprise="FRM

,largeurFlecheMax=NULL,direction="Ent",filtreVol=0,colEntree="#EB617F",colSortie="#286AC7",colBorder="#303030",emprise="FRM

export_projet_qgis_fleches_saphirs <-
function(liste_fonds,chemin_fonds,nom_projet,titre,titre2,sourc,colEntree

,yLeg=NULL,cadreLeg=FALSE,xLimCadreLeg=NULL,yLimCadreLeg=NULL,titreCarte="",sourceCarte="",etiquettes=NULL,colEntree

,yLeg=NULL,cadreLeg=FALSE,xLimCadreLeg=NULL,yLimCadreLeg=NULL,titreCarte="",sourceCarte="",etiquettes=NULL,colEntree

export_projet_qgis_fleches_saphirs <-
function(liste_fonds,chemin_fonds,nom_projet,titre,titre2,sourc,colEntree

,largeurFlecheMax,direction,filtreVol,colEntree,colSortie,colBorder,emprise,fondEtranger,map_proxy){
msg_error1<-msg_error2

,largeurFlecheMax,direction,filtreVol,colEntree,colSortie,colBorder,emprise,fondEtranger,map_proxy){
msg_error1<-msg_error2