Merge branch 'r-0.7-12' into production

Author: krlmlr

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: DBI
-Version: 0.7-11
-Date: 2017-08-08
+Version: 0.7-12
+Date: 2017-08-10
 Title: R Database Interface
 Description: A database interface definition for communication
     between R and relational database management systems.  All

NAMESPACE

@@ -68,6 +68,7 @@ exportMethods(dbDataType)
 exportMethods(dbExecute)
 exportMethods(dbFetch)
 exportMethods(dbGetQuery)
+exportMethods(dbListFields)
 exportMethods(dbQuoteIdentifier)
 exportMethods(dbQuoteString)
 exportMethods(dbReadTable)

NEWS.md

@@ -1,3 +1,8 @@
+## DBI 0.7-12 (2017-08-10)
+
+- Add default implementation of `dbListFields()`.
+
+
 ## DBI 0.7-11 (2017-08-08)
 
 - The default implementation of `dbReadTable()` now has `row.names = FALSE` as default and also supports `row.names = NULL` (#186).

R/DBConnection.R

@@ -294,6 +294,18 @@ setGeneric("dbListFields",
   valueClass = "character"
 )
 
+#' @rdname hidden_aliases
+#' @export
+setMethod("dbListFields", c("DBIConnection", "character"),
+  function(conn, name, ...) {
+    rs <- dbSendQuery(conn, paste("SELECT * FROM ",
+                                  dbQuoteIdentifier(conn, name), "LIMIT 0"))
+    on.exit(dbClearResult(rs))
+
+    names(dbFetch(rs, n = 0, row.names = FALSE))
+  }
+)
+
 #' List remote tables
 #'
 #' Returns the unquoted names of remote tables accessible through this