R/dbR6_colnames.R

In leandroroser/dbR6: Databases Manipulation with the dbR6 Class

#' colnames
#' @name colnames
#' @example
#' {
#' data(mtcars2)
#' my_db <- dbR6$new()
#' my_db$colnames("mtcars_db")
#' }
#' @rdname colnames
#' @aliases colnames,dbR6
#' @exportMethod colnames


dbR6_colnames  <- function(...) {
    if (!tabname %in% self$list_tables())
        return(paste0("Table '", tabname, "' not found in database"))
    RSQLite::dbListFields(self$get_where()$data, tabname)
}