Cleaned and commented

plotting/map.R

@@ -207,12 +207,17 @@ map_panel = function (list_df2plot, df_meta, df_shapefile, idPer=1, outdirTmp=''
             sizerv = 0.2
         }
 
+        # Stores the coordonate system 
+        cf = coord_fixed()
+        # Makes it the default one to remove useless warning
+        cf$default = TRUE
+
         # Open a new plot with the personalise theme
         map = ggplot() + theme_void() +
             # theme(plot.background=element_rect(fill=NA,
                                                # color="#EC4899")) +
-            # Fixed coordinate system
-            coord_fixed() +
+            # Fixed coordinate system (remove useless warning)
+            cf +
             # Plot the background of France
             geom_polygon(data=df_france,
                          aes(x=long, y=lat, group=group),