as.xts.data.frame drops column name for data.frame with 1 non-time-based column

[joshuaulrich]

No column name for data.frames with one column (other than the time-based column). Works correctly for more than non-time-based column.

require(xts)
packageVersion("xts")
## [1] '0.13.0'

x <- data.frame(Index = as.Date("2023-02-21"), Value = 21)
as.xts(x)
##            [,1]
## 2023-02-21   21

y <- data.frame(Index = as.Date("2023-02-21"), A = 21, B = 42)
as.xts(y)
##             A  B
## 2023-02-21 21 42