Possible new function: six_buckets

[sckott]

Maybe this should inspire six_buckets()? Here is my quick prototype:

aws_buckets()$bucket_name %>% 
  map(~ six_bucket_permissions(.x) %>% 
               mutate(bucket = .x)) %>% 
  bind_rows() %>% 
  filter(user == aws_user()$user$UserName[1]) %>% 
  right_join(aws_buckets(), by = c("bucket" = "bucket_name")) %>% 
  select(-user) %>% 
  rename(bucket_name = bucket) %>% 
  select(bucket_name, permissions, everything(), -policy_admin, policy_admin)

For some reason this is taking a long time to run.

Originally posted by @seankross in #61