.RPTile中的.Last（）不会执行

Question

我正在尝试退出R重启，所以我在.Rprofile中使用.Last。 从Quit and restart a clean R session from within R?修改的解决方案，我在该答案中尝试了其他解决方案无济于事。 my.First（）工作正常，但是当我在最后的q（）时，它会提示“保存工作区图像？”在回答之后，它会关闭

.Last <- function()
{
 print("new R in 3 seconds")
Sys.sleep(3)
 system("R --no-save")
 print("close R in 3 seconds")
 Sys.sleep(3)
}
print("test")

（最后的打印是因为有一个隐藏的“功能”，如果没有换行，.Rprofile会忽略最后一行，我知道它不应该执行。）