How can I create a new variable that is the output of a predefined function using mutate in dplyr?

Question

I need to create a new variable that is the output of a predefined function. Here is my reproducible example:

library(tidyverse)

data.1 <-read.csv(text =