Reading and plotting shapefiles with a custom function in R?

[المشرف العام]

I have this piece of code that want to turn into a function

r