在R中的cat函数中打印引号

Question

我正在自动化脚本，并希望使用以下内容创建文件：

希望在脚本中打印bash：

save(output1, file = "output1.rda")

这是我尝试过的

   rfile = "output1.rda"
    output1 <- "output1"
    cat("save(", output1, ",", "file=", rfile, ")")

结果：

save( output1 , file= output1.rda )

任何想法，当它是循环的一部分时，如何在cat函数中粘贴“”。