R/rownames.R

compatRowNames <- function(row.names) {
  if (is.null(row.names)) {
    row.names <- FALSE
  } else if (is.numeric(row.names)) {
    warning_once("RSQLite: Passing numeric values to row.names is deprecated. Pass a logical or a column name.")
    row.names <- as.logical(row.names)
  }

  row.names
}
real-didi/RSQLiteFixed documentation built on May 21, 2019, 1:45 p.m.