Merge pull request #463 from r-dbi/b-names

krlmlr · web-flow · commit 256b325ac9c6 · 2024-04-01T18:26:18.000+02:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -101,7 +101,6 @@ Collate:
     'dbWriteTable_PqConnection_character_data.frame.R'
     'default.R'
     'export.R'
-    'names.R'
     'quote.R'
     'show_PqConnection.R'
     'sqlData_PqConnection.R'
diff --git a/R/dbColumnInfo_PqResult.R b/R/dbColumnInfo_PqResult.R
@@ -3,7 +3,6 @@
 dbColumnInfo_PqResult <- function(res, ...) {
   rci <- result_column_info(res@ptr)
   rci <- cbind(rci, .typname = type_lookup(rci[[".oid"]], res@conn), stringsAsFactors = FALSE)
-  rci$name <- tidy_names(rci$name)
   rci
 }
 
diff --git a/R/dbFetch_PqResult.R b/R/dbFetch_PqResult.R
@@ -13,7 +13,7 @@ dbFetch_PqResult <- function(res, n = -1, ..., row.names = FALSE) {
   ret <- convert_bigint(ret, res@bigint)
   ret <- finalize_types(ret, res@conn)
   ret <- fix_timezone(ret, res@conn)
-  set_tidy_names(ret)
+  ret
 }
 
 #' @rdname postgres-query
diff --git a/R/names.R b/R/names.R

Original file line number	Diff line number	Diff line change
`@@ -3,7 +3,6 @@`
`3`	`3`	`dbColumnInfo_PqResult <- function(res, ...) {`
`4`	`4`	`rci <- result_column_info(res@ptr)`
`5`	`5`	`rci <- cbind(rci, .typname = type_lookup(rci[[".oid"]], res@conn), stringsAsFactors = FALSE)`
`6`		`- rci$name <- tidy_names(rci$name)`
`7`	`6`	`rci`
`8`	`7`	`}`
`9`	`8`
Original file line number	Diff line number	Diff line change
`@@ -13,7 +13,7 @@ dbFetch_PqResult <- function(res, n = -1, ..., row.names = FALSE) {`
`13`	`13`	`ret <- convert_bigint(ret, res@bigint)`
`14`	`14`	`ret <- finalize_types(ret, res@conn)`
`15`	`15`	`ret <- fix_timezone(ret, res@conn)`
`16`		`- set_tidy_names(ret)`
	`16`	`+ ret`
`17`	`17`	`}`
`18`	`18`
`19`	`19`	`#' @rdname postgres-query`