examples/debug-rb3.R

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

devtools::load_all()

# debugonce(url_encoded_download)
single_index_get("IBOV", 1980, cachedir(), TRUE)

x <- index_get("IBXL", as.Date("1980-01-01"), Sys.Date(), cachedir(), TRUE)
x <- index_get("IBXX", as.Date("1980-01-01"), Sys.Date(), cachedir(), TRUE)

library(plotly)
library(tidyverse)

x |>
  # filter(refdate >= as.Date("2024-01-01")) |>
  ggplot(aes(x = refdate, y = value)) +
  geom_line()
# + scale_y_continuous(trans = "log10")