library(data.table)
library(xts)
x <- xts(c(1:2,4:7,9:11), c(Sys.Date()+1:2,Sys.Date()+4:7,Sys.Date()+9:11))
as.data.table.xts(x)
Error: could not find function "as.data.table.xts"
Run Code Online (Sandbox Code Playgroud)
但是,从data.table到xts的转换有效:
y <- data.table(c(Sys.Date()+1:2,Sys.Date()+4:7,Sys.Date()+9:11),c(1:2,4:7,9:11))
as.xts.data.table(y)
V2
2016-07-21 1
2016-07-22 2
2016-07-24 4
2016-07-25 5
2016-07-26 6
2016-07-27 7
2016-07-29 9
2016-07-30 10
2016-07-31 11
packageVersion("data.table")
[1] ‘1.9.7’
Run Code Online (Sandbox Code Playgroud)
问题是你直接调用一个方法,你通常不应该这样做.as.data.table.xts不从data.table命名空间导出,但它被注册为S3方法.这意味着调用as.data.tablexts对象将调度到as.data.table.xts.
identical(as.data.table(x), data.table:::as.data.table.xts(x))
# [1] TRUE
Run Code Online (Sandbox Code Playgroud)