After reading this discussion, " R bigrquery returns the following error: Exceeded rate limits", I found that these options worked for me:
page_size = 1000000,
max_connections = 3L,
Like this:
con1 <- dbConnect(
bigrquery::bigquery(),
project = "pjname",
dataset = "ds_name",
billing = "bill_name",
page_size = 1000000,
max_connections = 3L,
)