library("allofus")
con <- aou_connect()
tmp_tbl <- dplyr::tbl(con, "concept") %>%
dplyr::select(concept_id) %>%
head(10) %>%
aou_compute()
tmp_tbl# Source: SQL [?? x 1]
# Database: BigQueryConnection
concept_id
<int64>
1 42810990
2 45705100
3 45652525
4 44367159
5 45654285
6 45639211
7 45683855
8 45664353
9 36175202
10 45630467