将xts转换为data.table时出错

use*_*710 1 r xts data.table

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)

Jos*_*ich 8

问题是你直接调用一个方法,你通常不应该这样做.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)