Dplyr доступ к подэлементу всех элементов списка

Я пытаюсь использовать safe() из пакета purrr вместе с регрессией лассо из пакета glmnet. Я застрял в части перекрестной проверки, так как safe() возвращает список с двумя элементами: $results и $errors. Я пытаюсь получить только $results с помощью dplyr, но не могу заставить его работать.

Я могу заставить перекрестную проверку работать для одного вида, но не для всех, используя dplyr.

library(dplyr)
library(glmnet)
library(purrr)
data(iris)

# Group to perform regressions for every species
grouped <- iris %>% 
  group_by(Species)

# Make model matrices
mm <- grouped %>%
  do(mm = safely(model.matrix)(Sepal.Length ~ Sepal.Width + Petal.Width, data = .)[1])

# Join the dependent values with the model matrices in a tibble
sepallengths <- grouped %>% 
  summarise(Sepal.Length = list(Sepal.Length))
temp <- inner_join(sepallengths, mm, by = "Species")

# Perform cross validation using the tibble above
cv_holder <- temp %>% 
  group_by(Species) %>% 
  # How to get this to work inside dplyr?
  do(cv = safely(cv.glmnet)(.$mm[1]$result, .$Sepal.Length, alpha = 1, nlambda = 100))

# Contains only errors when it should contain the cross validations
cv_holder$cv

# Works for individual lists this way
safely(cv.glmnet)(temp$mm[[1]][1]$result, temp$Sepal.Length[[1]], alpha = 1, nlambda = 100)$result

Я ожидаю, что на выходе будет таблица (cv_holder) со столбцом (cv), который содержит списки, содержащие списки перекрестных проверок для каждого вида. Однако я могу заставить dplyr возвращать только ошибки, такие как «simpleError in rep(1, N): неверный аргумент «times»»

Вот как это можно сделать с помощью цикла:

for(i in 1:length(temp$mm)){
    print(safely(cv.glmnet)(temp$mm[[i]][1]$result, temp$Sepal.Length[[i]], alpha = 1, nlambda = 100))
cv_holder$error <- NULL
}