Fix for shapefiles in the cloud?

[ldecicco-USGS]

The cuid and key are needed for downloads, and seem to get lost in get_facet_files.

I'm not confident on how/if this would break other things. I got 2 failed tests, but they might be unrelated (a 404 on an item).

This is what was failing (and now works):

item <- sbtools::item_get("69330512d4be02765ea81805")
shapefiles <- item |> 
	sbtools::item_list_files() |> 
	dplyr::filter(facet == 'SWFL_SurveyAreas_2025') |> 
	dplyr::pull(fname)
fs::dir_create(path = fs::path_wd("sb_download"))
sbtools::item_file_download(sb_id = item,
					     names = shapefiles,
					     destinations = fs::path_wd("sb_download", shapefiles),
					     fetch_cloud_urls = TRUE)

[dblodgett-usgs]

Thanks Laura -- I'm on leave till January 5th and will look into what's up here when I'm back.

[dblodgett-usgs]

I used more or less this pattern in a commit I have incoming. Thanks for the head start @ldecicco-USGS