This is the last fish I give you because it seems like you are not learning how to fish, you are not taking syntax into account at all.
regressions %>%
unnest(c(tidied, glanced), .drop = TRUE) %>%
select_if(~!is.list(.)) %>%
write.xlsx("R-squared.xlsx")
If you want to learn this is a good resource