exemplos_de_aula/01-brasilapi.R

In curso-r/202202-web-scraping: What the Package Does (One Line, Title Case)

library(httr)
library(jsonlite)


# cep ---------------------------------------------------------------------
## ctrl+shift+r

cep <- "35702453"
u_base <- "https://brasilapi.com.br/api"
endpoint_cep <- "/cep/v2/"

u_cep <- paste0(u_base, endpoint_cep, cep)
r_cep <- GET(u_cep)

# vamos entender as diferentes formas de pegar o resultado

r_cep
content(r_cep)

content(r_cep, as = "text")
content(r_cep, as = "raw")
content(r_cep, as = "parsed")


r_cep <- GET(u_cep, write_disk("output/cep.json"))
read_json("output/cep.json")

fromJSON(content(r_cep, as = "text"))


# tabela fipe -------------------------------------------------------------

endpoint_fipe_tabelas <- "/fipe/tabelas/v1"
u_fipe_tabelas <- paste0(u_base, endpoint_fipe_tabelas)
r_fipe_tabelas <- GET(u_fipe_tabelas)


# library(magrittr)
# %>%

content(r_fipe_tabelas, simplifyDataFrame = TRUE) |>
  tibble::as_tibble()

# equivale a
r_fipe_tabelas |>
  content(as = "text") |>
  fromJSON(simplifyDataFrame = TRUE) |>
  tibble::as_tibble()

endpoint_fipe <- "/fipe/marcas/v1/"
tipo_veiculo <- "carros"
u_fipe <- paste0(u_base, endpoint_fipe, tipo_veiculo)
r_fipe <- GET(u_fipe)

content(r_fipe, simplifyDataFrame = TRUE)

tab_referencia <- "270"

r_fipe_270 <- GET(
  u_fipe,
  query = list(tabela_referencia = tab_referencia,
               outro = 3)
)

r_fipe_270

content(r_fipe_270, simplifyDataFrame = TRUE)


# consultar tabela fipe de carros -----------------------------------------

## infelizmente ainda não dá para pegar a lista de carros pela Brasil API
## https://github.com/BrasilAPI/BrasilAPI/issues/373

## Mas nós podemos pegar aqui: https://www.tabelafipebrasil.com/fipe/carros
## (depois podemos fazer isso via web scraping!)

endpoint_preco <- "/fipe/preco/v1/"
cod_veiculo <- "060006-7"
u_preco <- paste0(u_base, endpoint_preco, cod_veiculo)

r_preco <- GET(u_preco)
content(r_preco, simplifyDataFrame = TRUE)


r_preco <- GET(u_preco, query = list(tabela_referencia = tab_referencia))
content(r_preco, simplifyDataFrame = TRUE)

baixa_preco_tab_referencia <- function(cod_veiculo, tab_referencia) {
  endpoint_preco <- "/fipe/preco/v1/"
  u_preco <- paste0(u_base, endpoint_preco, cod_veiculo)
  r_preco <- GET(u_preco, query = list(tabela_referencia = tab_referencia))
  content(r_preco, simplifyDataFrame = TRUE)
}


tabelas <- 270:273

purrr::map_dfr(tabelas, ~baixa_preco_tab_referencia("060006-7", .x))

baixa_preco_tab_referencia("060006-7", "270")