Using a function (R) to improve code for Fisher's exact

Question

I\'m trying to make my code more elegant. I want to produce a Fisher\'s exact test across 2 groups for 3 different criteria (essentially 3 tests). I have a solution, but it\'s c