r - Rblpapi: BDH を使用して、日付列が 1 つだけの複数の証券の履歴データを取得する

Question

単一の日付範囲で複数の証券の履歴データを取得しようとしています。以下のコードを使用して必要なデータを取得できますが、結果のリストにはすべての証券の日付列が生成されます。最初の左端の列に日付を表​​示し、右側の列にリスト内のすべての証券の証券フィールド データ (px_last など) を表示したいと考えています。Excel を使用した BBG では、オーバーライド (dts = H) を使用して日付フィールドを非表示にできることを知っていますが、リストの左端の列に日付を入力する必要があります。

sec <- c("SPX Index","SX5E Index")
lb <- 5
startdate <- Sys.Date() - lb
opt <- c("periodicitySelection"="DAILY","nonTradingDayFillOption"="NON_TRADING_WEEKDAYS","nonTradingDayFillMethod"="PREVIOUS_VALUE")
dat <- bdh(sec,fields="px_last",start.date = startdate,options=opt)

戻り値：

$`SPX Index`
        date px_last
1 2016-12-19 2262.53
2 2016-12-20 2270.76
3 2016-12-21 2265.18
4 2016-12-22 2261.03

$`SX5E Index`
        date px_last
1 2016-12-19 3257.85
2 2016-12-20 3279.41
3 2016-12-21 3270.75
4 2016-12-22 3262.11

4 列ではなく 3 列にしたいと思います。Col1 は日付、Col2 は SPX インデックス px_last、Col3 は SX5E インデックス px_last です。ありがとうございました