as.named.vector() on a DF column gives back a vector much longer than the original dimensions

[vertesy]

Description
as.named.vector() on a DF column gives back a vector much longer than the original dimensions

Expected Behavior

• complain if not uni dimensional?

Buggy Behavior

> l(as.named.vector(obj@meta.data[ , assignments]))
[1] 35860
> dim((obj@meta.data[ , assignments]))
[1] 7172    5

Fun

 as.named.vector <- function (df_col, WhichDimNames = 1) 
{
    namez = dimnames(df_col)[[WhichDimNames]]
    if (is.list(df_col) & !is.data.frame(df_col)) {
        namez = names(df_col)
    }
    vecc = as.vector(unlist(df_col))
    names(vecc) = namez
    return(vecc)
}
<bytecode: 0x7fd41b108ba8>
<environment: namespace:CodeAndRoll2>