Return multiple lists with foreach

Question

I am doing some kmeans clustering analysis. Example:

library(tidyverse)
library(foreach)

my_diamonds <- diamonds %>% select_if(is.numeric) %>% scale