Looping function to avoid repeated code in stratified sampling with R

Question

I am using the code below to perform stratified random sampling of a population, with previously established targets according to gender and region. As can be seen, the same cod