Pipe list_files into get_file

Currently need the following, using `lapply` to get multiple files: 
```
bb_files <- list_files(161)
get_file(2,161, data_type = 'extraction',
         out_dir = 'embargo/act')
```

Would be nice to just pipe the list of files straight in to the download call:

```
get_file(bb_files)
```