Support views in the INFORMATION_SCHEMA schema (#587)

Which appear to error when you attempt to get their metadata. Fixes #468

Author: hadley

NEWS.md

@@ -1,6 +1,7 @@
 # bigrquery (development version)
 
-* `tbl()` now works with views (#519).
+* `tbl()` now works with views (#519), including the views found in the 
+  `INFORMATION_SCHEMA` schema (#468).
 
 * dplyr joins now work correctly across any bigquery connections (#433).
 

R/dplyr.R

@@ -48,7 +48,8 @@ tbl.BigQueryConnection <- function(src, from, ...) {
 
   # This is ugly, but I don't see a better way of doing this
   tb <- as_bq_table(src$con, from)
-  tbl$lazy_query$is_view <- !inherits(from, "sql") && bq_table_meta(tb, "type")$type == "VIEW"
+  tbl$lazy_query$is_view <- !inherits(from, "sql") &&
+    tryCatch(bq_table_meta(tb, "type")$type == "VIEW", bigrquery_notFound = function(e) TRUE)
   tbl
 }
 

tests/testthat/test-dplyr.R

@@ -106,6 +106,11 @@ test_that("collect can identify directly download tables", {
   defer(DBI::dbExecute(con, 'DROP VIEW mtcars2'))
   bq6 <- dplyr::tbl(con, "mtcars2")
   expect_false(op_can_download(bq6))
+
+  # INFORMATION_SCHEMA.TABLES errors when we attempt to get metadata
+  bq7 <- dplyr::tbl(con, "INFORMATION_SCHEMA.PARTITIONS")
+  expect_false(op_can_download(bq7))
+  expect_false(op_can_download(head(bq7)))
 })
 
 test_that("casting uses bigquery types", {