R zip文件到ZIP文件中的特定子文件夹

Question

我想将文件压缩到zip存档中新子目录中的zip存档中。这是我的代码：

dir.create('subdirectory')
write(c(1, 2, 3), file = './subdirectory/test.txt')
zip('test.zip', files = 'subdirectory')

问题在于我不想经历必须创建子目录的麻烦，只是为了能够控制文件在zip存档中压缩到的位置。我希望能做的是这样的事情：

write(c(1, 2, 3), file = 'test.txt')
zip('test.zip/subdirectory', files = 'test.txt')

理想情况下，这会将文件添加到子目录文件夹中的存档中。有没有办法做到这一点，还是我不得不首先在zip存档之外创建文件夹？