r - 使用 end() 返回 xts 对象的最后日期

Question

我正在使用吸墨纸和相关软件包来创建一个小型投资组合。这些软件包依赖于来自 yahoo 的数据。此外，它们在xts内部使用，但不知何故，xts对象上的函数不起作用并返回所需的结果。这当然需要大量更改内部功能才能替换end()为max(index()).

library(quantmod)
library(xts)
getSymbols("LGQM.DE", from="2017-01-01", to=Sys.Date(), src='yahoo',
          auto.assign = TRUE, adjust = TRUE)

str(LGQM.DE)
end(LGQM.DE)

max(index(LGQM.DE))

可以看出，在执行此代码时，end() 函数仅返回一个空日期值，尽管日期已正确存储，如检查结果时所见max(index(LGQM.DE))。这些软件包是使用 github 从 github 安装的，devtools安装后我重新启动了 R 会话。