if (FALSE) {
set_billing_id("")
query <- "SELECT
pib.id_municipio,
pop.ano,
pib.PIB / pop.populacao * 1000 as pib_per_capita
FROM `basedosdados.br_ibge_pib.municipio` as pib
JOIN `basedosdados.br_ibge_populacao.municipio` as pop
ON pib.id_municipio = pop.id_municipio
LIMIT 5 "
data <- read_sql(query)
# in case you want to write your data on disk as a .xlsx, .csv or .Rds file.
library(writexl)
library(readr)
dir <- tempdir()
write_xlsx(data, file.path(dir, "data.xlsx"))
write_csv(data, file.path(dir, "data.csv"))
saveRDS(data, file.path(dir, "data.Rds"))
}
Run the code above in your browser using DataLab