r - 如何从函数内将扰乱图保存为图像文件？

Question

当我打电话时，UpSetR 图表没有正确保存f。保存到tmp.tiff的是空白图像文件。如果我调试该函数，那么它会正确保存。

f <- function(tmp){
  tmp <- tmp %>% 
    fromList() %>% 
    upset()
  tiff(filename = 'tmp.tiff')
  tmp
  dev.off()
}

list(a = c(1, 1, 2, 6), b = c(2, 2, 3, 7)) %>%
  f()

我已将图形保存到一个变量中，该变量称为文件流的 tiff 函数，称为图形变量，然后是dev.off(). 我在这里想念什么？

编辑：

#Calling tiff before upset does not work either.
f <- function(tmp){
  tiff(filename = 'tmp.tiff')
  upset(fromList(tmp))
  dev.off()
}

list(a = c(1, 1, 2, 6), b = c(2, 2, 3, 7)) %>%
  f()