https://mapnativeamerican.blogspot.com/2022/06/map-function-in-r.html