docs: Update example to highlight I() for nested table identifier (#606)

* docs: update example to highlight I() for nested table identifier * test: add test for nested table identifier
r-dbi · Apr 17, 2024 · 7a624ea · 7a624ea
1 parent 1056d8b
commit 7a624ea
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 2 deletions.
diff --git a/R/dplyr.R b/R/dplyr.R
@@ -20,7 +20,7 @@
 #' # set up for billing
 #' con <- DBI::dbConnect(bigquery(), project = bq_test_project())
 #'
-#' shakespeare <- con %>% tbl("publicdata.samples.shakespeare")
+#' shakespeare <- con %>% tbl(I("publicdata.samples.shakespeare"))
 #' shakespeare
 #' shakespeare %>%
 #'   group_by(word) %>%

diff --git a/man/src_bigquery.Rd b/man/src_bigquery.Rd
diff --git a/tests/testthat/test-dplyr.R b/tests/testthat/test-dplyr.R
@@ -20,6 +20,17 @@ test_that("can work with literal SQL", {
   expect_true("fips_code" %in% dbplyr::op_vars(x))
 })
 
+test_that("can work with nested table identifier", {
+  con_us <- DBI::dbConnect(
+    bigquery(),
+    project = "bigquery-public-data",
+    billing = bq_test_project()
+  )
+
+  expect_s3_class(dplyr::collect(head(dplyr::tbl(con_us, I("utility_us.country_code_iso")))), "tbl_df")
+  expect_error(dplyr::collect(head(dplyr::tbl(con_us, "utility_us.country_code_iso"))), "tbl_df")
+})
+
 test_that("can copy_to", {
   ds <- bq_test_dataset()
   con <- DBI::dbConnect(ds)