``` R f <- function(n) { 10 %>% rerun(x = rnorm(n), y = rnorm(n)) %>% map_dbl(~ cor(.x$x, .x$y)) } f(10) ``` think it probably needs to use lazyeval