library(b3archives)
archive <- b3_indexreport_download(as.Date("2019-09-18"))
df <- b3_indexreport_read(archive)
file.remove(archive)
#> [1] TRUE
dplyr::glimpse(df)
#> Observations: 399
#> Variables: 4
#> $ Date <date> 2019-09-18, 2019-09-18, 2019-09-18, 2019-09-18, ...
#> $ TickerSymbol <chr> "ICO2", "ISEE", "BDRX", "MLCX", "INDX", "SMLL", "...
#> $ Value <dbl> 2351.15, 3564.14, 6969.75, 2009.35, 19296.01, 228...
#> $ Attribute <chr> "OpngPric", "OpngPric", "OpngPric", "OpngPric", "...