有没有办法检索创建对象的时间?
答案 0 :(得分:14)
一般情况下,但您可以通过
为自己创建的对象执行此操作R> df <- data.frame(a=sample(LETTERS[1:5],10,TRUE),b=runif(10))
R> attr(df, "createdAt") <- Sys.time()
R> df
a b
1 B 0.8437021
2 D 0.8683446
3 B 0.5194791
4 B 0.0480405
5 B 0.5604978
6 C 0.1938154
7 A 0.1451077
8 D 0.1785405
9 C 0.3937795
10 B 0.2874135
R> str(df)
'data.frame': 10 obs. of 2 variables:
$ a: Factor w/ 4 levels "A","B","C","D": 2 4 2 2 2 3 1 4 3 2
$ b: num 0.844 0.868 0.519 0.048 0.56 ...
- attr(*, "createdAt")= POSIXct, format: "2011-03-16 10:42:10.137434"
R>
然后您可以自己编写一些使用该属性的自定义print()
或show()
函数。 Frank Harrell的rms及其设计前身已经做了很长时间的事情。
答案 1 :(得分:10)
简短回答:不。
答案很长:是的,您需要做的就是重写R的C核心中的赋值代码,以便在每次更改对象时在某处存储日期戳。我尝试了一次,将数据存储在一个属性中,就像其他答案一样,但它有不同的副作用,使相同的对象不同。 x = 1且y = 1具有不同的时间戳,因此相同的(x,y)为FALSE并且以宏伟的方式破坏了R的测试。我放弃了。
答案 2 :(得分:4)
继Spacedman的回答和我在那里的评论之后,请看这个例子:
x <- 1
print(x)
# [1] 1
`<-` = function(...) {
eval.parent(replace(match.call(), c(1, 3), list(base::`<-`, structure(..2, ctime=Sys.time()))))
}
x <- 2
print(x)
# [1] 2
# attr(,"ctime")
# [1] "2011-03-17 11:33:55 EDT"
您可能不希望在.GlobalEnv
中执行此操作,但它可能在本地化环境中有用。
答案 3 :(得分:3)
我认为查尔斯的功能很棒,但它可能会在全球环境中造成问题。
我建议您创建一个新的运算符%c%
,而不是<-
:
`%c%` = function(...) {
eval.parent(replace(match.call(), c(1, 3), list(base::`<-`, structure(..2, ctime=Sys.time()))))
}
## object 1 older than object 2?
`%c<%` = function(x1, x2) {
if (any(names(attributes(x1))=="ctime") && any(names(attributes(x2))=="ctime")) {
attr(x1, "ctime") < attr(x2, "ctime")
} else {
NA
}
}
## object 1 newer than object 2?
`%c>%` = function(x1, x2) {
if (any(names(attributes(x1))=="ctime") && any(names(attributes(x2))=="ctime")) {
attr(x1, "ctime") > attr(x2, "ctime")
} else {
NA
}
}
其他两个功能可用于比较时间戳。 (使用后面这些函数,我可以避免耗时的计算,除非一些参数对象发生了变化。)
> xx %c% 1
> xx
[1] 1
attr(,"ctime")
[1] "2017-09-14 17:01:03 EEST"
> xx + 1
[1] 2
attr(,"ctime")
[1] "2017-09-14 17:01:03 EEST"
> class(xx)
[1] "numeric"
> yy %c% 2
> xx+yy
[1] 3
attr(,"ctime")
[1] "2017-09-14 17:01:03 EEST"
> yy
[1] 2
attr(,"ctime")
[1] "2017-09-14 17:04:27 EEST"
> xx %c<% yy
[1] TRUE
> xx %c>% yy
[1] FALSE
答案 4 :(得分:1)
您如何看待不更改对象,而是以与保存历史记录相同的方式保存时间戳? R会将您的控制台历史记录保存到您正在使用的文件夹中的文件.Rhistory
(即getwd()
)。
我让R将时间戳(以Unix格式,自Epoch = 1970年1月1日0:00:00以来的秒数)保存到.Rtimestamps
,但仅当将其设置为选项时:
#' @export
#' @noRd
`<-` = function(...) {
if (!is.null(getOption("recordTimestamps"))
& interactive()
& environmentName(parent.frame()) == "R_GlobalEnv") {
# only save timestamp when set in options, in interactive mode and in global env.
if (getOption("recordTimestamps")) {
write(
x = paste(
as.character(match.call())[2],
as.double(Sys.time()),
sep = ","),
file = ".Rtimestamps",
append = TRUE)
}
}
eval.parent(
replace(
match.call(),
1,
list(base::`<-`)))
}
用法:
options(recordTimestamps = TRUE) # only first time of course
a <- 123
# wait 5 seconds and change it
a <- 456
现在您只需要获取那些日期,您可以使用一些打印有效POSIXct类的辅助函数来执行这些日期:
#' @export
#' @noRd
ctime <- function(object) {
target_object <- deparse(substitute(object))
get_cmtime(target_object, 1)
}
#' @export
#' @noRd
mtime <- function(object) {
target_object <- deparse(substitute(object))
get_cmtime(target_object, 2)
}
get_cmtime <- function(target_object, mode) {
if (!is.null(getOption("recordTimestamps")) & interactive()) {
# only get dates when set in options and when in interactive mode
if (getOption("recordTimestamps") & file.exists(".Rtimestamps")) {
lines <- readLines(con <- file(".Rtimestamps"), warn = FALSE, encoding = "UTF-8")
close(con)
target_lines <- lines[grepl(paste0("^(", target_object, "),"), lines)]
if (length(target_lines) > 0) {
if (mode == 1) {
# get first value, second element
timestamp <- unlist(strsplit(target_lines[1], ","))[2]
} else if (mode == 2) {
# get last value, second element
timestamp <- unlist(strsplit(target_lines[length(target_lines)], ","))[2]
}
## transform to date
return(as.POSIXct(origin = "1970-01-01", x = as.double(timestamp)))
} else {
return(NA)
}
}
}
}
现在它的工作原理如下:
> a
[1] 456
> ctime(a)
[1] "2018-02-07 10:43:03 CET"
> mtime(a)
[1] "2018-02-07 10:43:08 CET"