Muudetud 'db_schema_tablenames'.

R/db_schema_tablenames.R

@@ -8,9 +8,9 @@
 #' @examples
 #' \dontrun{
 #'
-#' config <- get_config()
-#' config$schema <- "public"
-#' db_schema_tablenames(conf = config)
+#' conf <- get_config()
+#' conf$schema <- "public"
+#' db_schema_tablenames(conf = conf)
 #' }
 db_schema_tablenames <- function(conf) {
   conn <- ruut::db_connect()
@@ -20,6 +20,5 @@ db_schema_tablenames <- function(conf) {
   and t.table_type = 'BASE TABLE'
   order by t.table_name;", conf$schema)
   res <- DBI::dbGetQuery(conn, q)
-  # Disconnect
-  res[, "table_name"]
+  if (nrow(res) == 0) NULL else res[, "table_name"]
 }

man/db_schema_tablenames.Rd

@@ -15,9 +15,9 @@ Andmebaasi schema tabelite nimekiri.
 \examples{
 \dontrun{
 
-config <- get_config()
-config$schema <- "public"
-db_schema_tablenames(conf = config)
+conf <- get_config()
+conf$schema <- "public"
+db_schema_tablenames(conf = conf)
 }
 }
 \seealso{