Два списка с одинаковым именем появляются после фрейма rbind

Question

book.add <- function(book, message) {
if(message$side=="S"){
    book$ask <- rbind(book$ask,(data.frame("oid"=message$oid,"price"=message$price,"size"=message$size)))
}
if(message$side=="B"){
    book$bid <- rbind(book$bid,(data.frame("oid"=message$oid,"price"=message$price,"size"=message$size)))
}
return(book)

} Я использовал rbind для добавления нового элемента в книгу данных, затем результат отображается в виде рисунка вывод терминала

Кажется, что есть две книги $ ask и Я не могу передать book $ ask $ oid другой функции как вектор

Answer 1

просто связать с новым списком, а не с фреймом данных

book.add <- function(book, message) {
if(message$side=="S"){
    book$ask <- rbind(book$ask,list("oid"=message$oid,"price"=message$price,"size"=message$size),stringsAsFactors=FALSE)
    return(book)
}
if(message$side=="B"){
    book$bid <- rbind(book$bid,list("oid"=message$oid,"price"=message$price,"size"=message$size),stringsAsFactors=FALSE)
    return(book)
}

}