df <- data.frame(name = c("Mister", "Hipster"), age = c(30, 25))
# Create personalized messages
fmapr(df, function(row) paste(row$name, "is", row$age, "years old"))
# Row-wise model formulas
formulas <- data.frame(
response = c("y1", "y2"),
predictor = c("x1", "x2"),
stringsAsFactors = FALSE
)
fmapr(formulas, function(row) {
reformulate(row$predictor, row$response)
})
Run the code above in your browser using DataLab