Not correctly escaping column names in sql for duckdb connection

[DavisVaughan]

See tidyverse/dplyr#6979

[Tmonster]

Thank you for the report.
I'll can take a look at this sometime soon

[krlmlr]

I'm on it. Reprex:

options(conflicts.policy = list(warn = FALSE))
library("duckdb")
#> Loading required package: DBI
library("dplyr")

duckdb_con <- dbConnect(duckdb())
copy_to(duckdb_con, tibble(first = 1:3, `2nd` = 4:6), "ex_tab")

tbl(duckdb_con, "ex_tab")
#> # Source:   table<ex_tab> [3 x 2]
#> # Database: DuckDB v0.9.3-dev3731 [kirill@Darwin 23.2.0:R 4.3.2/:memory:]
#>   first `2nd`
#>   <int> <int>
#> 1     1     4
#> 2     2     5
#> 3     3     6

tbl(duckdb_con, "ex_tab") |> select(`2nd`)
#> # Source:   SQL [3 x 1]
#> # Database: DuckDB v0.9.3-dev3731 [kirill@Darwin 23.2.0:R 4.3.2/:memory:]
#>      nd
#>   <int>
#> 1     2
#> 2     2
#> 3     2

tbl(duckdb_con, "ex_tab") |>
  select(`2nd`) |>
  show_query()
#> <SQL>
#> SELECT 2nd
#> FROM ex_tab

DBI::dbQuoteIdentifier(duckdb_con, "2nd")
#> <SQL> 2nd

^{Created on 2024-02-24 with reprex v2.1.0}