ruut/R/db_schema_tablenames.R

#' Database schema table names list
#'
#' Andmebaasi schema tabelite nimekiri.
#' @param conf A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.
#' @seealso [ruut::db_connect()], [ruut::get_config()]
#' @keywords database, table, schema
#' @export
#' @examples
#' \dontrun{
#'
#' conf <- get_config()
#' conf$schema <- "public"
#' db_schema_tablenames(conf = conf)
#' }
db_schema_tablenames <- function(conf) {
  conn <- ruut::db_connect()
  q <- sprintf("select t.table_name
  from information_schema.tables t
  where t.table_schema = '%s'
  and t.table_type = 'BASE TABLE'
  order by t.table_name;", conf$schema)
  res <- DBI::dbGetQuery(conn, q)
  if (nrow(res) == 0) NULL else res[, "table_name"]
}