When I used this function with Mathematica 10.1 I obtain the map of France with Corsica
DiscretizeGraphics[CountryData["France", {"Polygon", "Mercator"}]]
But with Mathematica 11, I obtain only the map of Corsica. 
Do you have a solution to obtain the complete map with France and Corsica?