https://researchdatapod.com/how-to-apply-a-function-to-every-row-of-a-table-in-r-using-dplyr/