r - 如何在 .Rdata 模式下在 R 中使用 .first() 函数

Question

我正在尝试自定义我的 R 设置。我了解我们可以将函数（.First/Last）放入Rprofile.siteor的部分.Rprofile。但我想走.Rdata路线。据我了解，如果我的工作目录中的任何 .R 文件中有 .First/.Last 函数。然后当我打开我的.Rdata文件时，我的自定义设置应该被加载。

虽然我在退出会话时得到了一个 Adios，但是当我打开我的.Rdata. 无论如何，下面是我的 .First 和 .Last 函数。

.First <- function() {
options(prompt="$ ", continue="+\t")  # $ is the prompt
options(digits=5, length=999)
cat(paste(date(),"\nWelcome\n"))
# custom numbers and printout
x11()                                 # for graphics
par(pch = "+")   
# my personal functions
library(cluster)                      # attach a package
s <- base::summary
h <- utils::head
n <- base::names
}


.Last <- function() {
graphics.off()                        # a small safety measure.
cat(paste(date(),"\nAdios\n"))        # Is it time for lunch?
}