Not correctly escaping column names in sql for duckdb connection

[jestover]

When querying a table with column names that start with a number the column is not returned if using a duckdb connection. Here is a small example showing how the query works with an SQLite connection and fails with duckdb.

library("RSQLite")
library("duckdb")
library("dplyr")

# Works!
sqlite_con <- dbConnect(SQLite())
copy_to(sqlite_con, tibble(first = 1:3, `2nd` = 4:6), "ex_tab")
tbl(sqlite_con, "ex_tab")
# Source:   table<ex_tab> [3 x 2]
# Database: sqlite 3.44.2 []
  first `2nd`
  <int> <int>
1     1     4
2     2     5
3     3     6
tbl(sqlite_con, "ex_tab") |> select(`2nd`)
# Source:   SQL [3 x 1]
# Database: sqlite 3.44.2 []
  `2nd`
  <int>
1     4
2     5
3     6

# Fails
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.2 [jes0129@Darwin 23.0.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.2 [jes0129@Darwin 23.0.0:R 4.3.2/:memory:]
     nd
  <int>
1     2
2     2
3     2

# Comparing the results of show_query()
tbl(sqlite_con, "ex_tab") |> select(`2nd`) |> show_query()
<SQL>
SELECT `2nd`
FROM `ex_tab`
tbl(duckdb_con, "ex_tab") |> select(`2nd`) |> show_query()
<SQL>
SELECT 2nd
FROM ex_tab

[DavisVaughan]

Moved to duckdb/duckdb-r#67