R 如何在zip存档中获取照片文件名

我有几张zip存档中的照片，比如1000.jpg、1012.jpg、3056.jpg

如何提取这些照片的名称并创建一个名为custID的列表？

这将起作用

custID <- unzip("test.zip", files = NULL, list = TRUE, overwrite = TRUE,
                junkpaths = FALSE, exdir = ".", unzip = "internal",
                setTimes = FALSE)[1]

custID