https://thinkr.fr/abcdr/comment-creer-une-fonction-dans-r-function/