如何使用getsymbols加载具有特定字段的csv文件？

Question

我有一个csv文件，其中包含字段“Date”，“Time”，“O”，“H”，“L”，“C”，“V” 我希望将它与quantmod包中的getSymbols函数一起使用。 csv文件（h1.csv）如下：

"Date","Time","O","H","L","C","V"
20070801,0001,1.3668,1.3675,1.3666,1.3673,20693
20070801,0100,1.3671,1.3674,1.3652,1.3653,26636
20070801,0200,1.3655,1.3669,1.3651,1.3667,31300

R代码：

library(quantmod)
setSymbolLookup(h1=list(src='csv', format='%Y%m%d')) 
h1 <- getSymbols('h1', dir='C:\\Users\\Admin\\Documents\\R\\csv', auto.assign=FALSE, extension='csv')
barChart(h1)

R发送错误：周期性（x）：无法计算1次观察的周期性

但是当我使用这个R代码时：

library(quantmod)
getSymbols("SPY")
write.zoo(SPY, file="SPY.csv", sep=",")
setSymbolLookup(SPY=list(src="csv",format="%Y-%m-%d"))
spy <- getSymbols("SPY", auto.assign=FALSE)
barChart(spy)

一切正常