У меня есть некоторые результаты и отчет, который я хотел бы заархивировать и загрузить (в виде загрузки через браузер).Используя биты и всплывающие подсказки, я построил что-то вроде этого:
resList <- list(x = 1,
y = c("bla", "bla"))
createTestingPackage <- function(resList){
tmpRdsName <- paste0(tempfile(), ".rds")
saveRDS(resList, file = tmpRdsName)
zipName <- paste0(tempfile(), ".zip")
zip::zipr(zipName, tmpRdsName)
browseURL(zipName)
}
createTestingPackage(resList)
Это работает так, как задумано, за исключением того, что имя загруженного zip-файла всегда "file_show.zip", независимо от имени, установленного в zipName,Кто-нибудь знает, как это изменить?Спасибо