R/row.names.odbcDataset.R

In dfdb.RODBC: Access Data Tables in an RODBC Data Base as Pseudo-Dataframes

row.names.odbcDataset <-
function(x) {
    # returns row names of odbcDataset object
    x <- unclass(x)
    if (x$rownames) {
        name <- sqlColumns(x$channel, x$table)[[x$column.selector]][1] 
        as.character(sqlQuery(x$channel, paste("select", name, "from", x$table))[[1]])
        }
    else NULL
    }