single_col_df.R

# If your data.frame index is unordered and you only have one column. This portion of xts will error.

  if(!is.null(x) && !isOrdered(order.by, strictly=!unique) ) {                                                         
    indx <- order(order.by)                                                                                            
    if(NCOL(x) > 1 || is.matrix(x)) {                                                                                  
      x <- x[indx,]                                                                                                    
    } else x <- x[indx]                                                                                                                                                                                                   
    order.by <- order.by[indx]                                                                                         
  }