Iteration Safely over functions

safely_iterate.R

# Rules
library(purrr)
library(dplyr)
library(tibble)

dat <- tibble(x = 1:3, y = 4:6) 

f1 <- function(tbl) {
    
    mutate(tbl, z = x*y) %>% select(z)
}

f2 <- function(tbl) {
    stop("I don't like this function", call. = FALSE)
}

f3 <- function(tbl) {
    
    mutate(tbl, z = x^2 + y^2) %>% select(z)
}

rules <- list(f1, f2, f3)

safe_rules <- purrr::map(rules, purrr::safely)

results <- purrr::map(safe_rules, .f = ~ .x(dat) )