generated from curso-r/template-pagina-do-curso
/
03-sptrans.R
40 lines (29 loc) · 916 Bytes
/
03-sptrans.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
library(tidyverse)
library(httr)
u_sptrans <- "http://api.olhovivo.sptrans.com.br/v2.1"
endpoint <- "/Posicao"
u_sptrans_busca <- paste0(u_sptrans, endpoint)
r_sptrans <- httr::GET(u_sptrans_busca)
content(r_sptrans)
# usethis::edit_r_environ("project")
# api_key <- Sys.getenv("API_OLHO_VIVO")
api_key <- "4af5e3112da870ac5708c48b7a237b30206806f296e1d302e4cb611660e2e03f"
u_sptrans_login <- paste0(u_sptrans, "/Login/Autenticar")
r_sptrans_login <- POST(
u_sptrans_login,
query = list(token = api_key)
)
httr::content(r_sptrans_login)
r_sptrans <- httr::GET(u_sptrans_busca)
resultados <- content(r_sptrans)
dados <- resultados$l |>
purrr::map(tibble::as_tibble) |>
dplyr::bind_rows()
jsonlite::fromJSON()
resultados <- content(r_sptrans, simplifyDataFrame = TRUE)
resultados$l |>
tibble::as_tibble() |>
tidyr::unnest(vs) |>
ggplot(aes(px, py)) +
geom_point(alpha = .2) +
coord_equal()