examples/indexes-composition.r

In wilsonfreitas/rbmfbovespa: Download and Parse Public Data Released by B3 Exchange

library(httr)

params <- jsonlite::toJSON(list(
  pageNumber = 1,
  pageSize = 9999
), auto_unbox = TRUE)


params_enc <- base64enc::base64encode(charToRaw(params))

url <- str_glue("https://sistemaswebb3-listados.b3.com.br/indexProxy/indexCall/GetStockIndex/{params_enc}")

up <- httr::parse_url("https://sistemaswebb3-listados.b3.com.br/indexProxy/indexCall/GetStockIndex/")

up$path <- paste0(up$path, "/", params_enc)

res <- GET(url)

status_code(res)

x <- content(res, as = "text") |> jsonlite::fromJSON()

x$header
x$results |> head()

"https://sistemaswebb3-listados.b3.com.br/indexPage/assets/i18n/pt-br.json"

# carteira teórica

"https://sistemaswebb3-listados.b3.com.br/indexProxy/indexCall/GetTheoricalPortfolio/eyJwYWdlTnVtYmVyIjoxLCJwYWdlU2l6ZSI6MjAsImxhbmd1YWdlIjoicHQtYnIiLCJpbmRleCI6IklCT1YifQ=="

k <- "eyJwYWdlTnVtYmVyIjoxLCJwYWdlU2l6ZSI6MjAsImxhbmd1YWdlIjoicHQtYnIiLCJpbmRleCI6IklCT1YifQ=="

base64enc::base64decode(k) |> rawToChar()
#> "{\"pageNumber\":1,\"pageSize\":20,\"language\":\"pt-br\",\"index\":\"IBOV\"}"

# por setor de atuação

"https://sistemaswebb3-listados.b3.com.br/indexProxy/indexCall/GetPortfolioDay/eyJsYW5ndWFnZSI6InB0LWJyIiwicGFnZU51bWJlciI6MSwicGFnZVNpemUiOjIwLCJpbmRleCI6IklCT1YiLCJzZWdtZW50IjoiMiJ9"

k <- "eyJsYW5ndWFnZSI6InB0LWJyIiwicGFnZU51bWJlciI6MSwicGFnZVNpemUiOjIwLCJpbmRleCI6IklCT1YiLCJzZWdtZW50IjoiMiJ9"

base64enc::base64decode(k) |> rawToChar()
#> "{\"language\":\"pt-br\",\"pageNumber\":1,\"pageSize\":20,\"index\":\"IBOV\",\"segment\":\"2\"}"

# por código

"https://sistemaswebb3-listados.b3.com.br/indexProxy/indexCall/GetPortfolioDay/eyJsYW5ndWFnZSI6InB0LWJyIiwicGFnZU51bWJlciI6MSwicGFnZVNpemUiOjIwLCJpbmRleCI6IklCT1YiLCJzZWdtZW50IjoiMSJ9"

k <- "eyJsYW5ndWFnZSI6InB0LWJyIiwicGFnZU51bWJlciI6MSwicGFnZVNpemUiOjIwLCJpbmRleCI6IklCT1YiLCJzZWdtZW50IjoiMSJ9"

base64enc::base64decode(k) |> rawToChar()
#> "{\"language\":\"pt-br\",\"pageNumber\":1,\"pageSize\":20,\"index\":\"IBOV\",\"segment\":\"1\"}"

# IBrX100

"https://sistemaswebb3-listados.b3.com.br/indexProxy/indexCall/GetPortfolioDay/eyJsYW5ndWFnZSI6InB0LWJyIiwicGFnZU51bWJlciI6MSwicGFnZVNpemUiOjIwLCJpbmRleCI6IklCWFgiLCJzZWdtZW50IjoiMSJ9"

k <- "eyJsYW5ndWFnZSI6InB0LWJyIiwicGFnZU51bWJlciI6MSwicGFnZVNpemUiOjIwLCJpbmRleCI6IklCWFgiLCJzZWdtZW50IjoiMSJ9"

base64enc::base64decode(k) |> rawToChar()
#> "{\"language\":\"pt-br\",\"pageNumber\":1,\"pageSize\":20,\"index\":\"IBXX\",\"segment\":\"1\"}"

f <- download_marketdata("GetStockIndex")
df <- read_marketdata(f, "GetStockIndex", FALSE)
str(df)
df <- read_marketdata(f, "GetStockIndex", TRUE)
str(df)