COTAHIST_YEARLY wrongly uses cache

[wilsonfreitas]

For years lower than 2000, a wrong use of cache is happening.

When the download and read is executed for the specific year of 1999, it works fine.

library(rb3)
f <- download_marketdata("COTAHIST_YEARLY", refdate = as.Date("1999-01-01"))
ch <- read_marketdata(f, "COTAHIST_YEARLY")
ch$Header
#> # A tibble: 1 x 5
#>   tipo_registro nome_arquivo  cod_origem data_geracao_arquivo reserva
#>           <int> <chr>         <chr>      <date>               <chr>  
#> 1             0 COTAHIST.1999 BOVESPA    2000-01-03           ""

When the download and read is executed for the specific year of for 2000 and 1999, the read of 1999 file is wrong and returns the cached version that refers to 2000 file.

library(rb3)
f <- download_marketdata("COTAHIST_YEARLY", refdate = as.Date("2000-01-01"))
ch <- read_marketdata(f, "COTAHIST_YEARLY")
#> Warning in rule$handler(.data, str_match(.data, rule$regex)): NAs introduced by
#> coercion
ch$Header
#> # A tibble: 1 x 5
#>   tipo_registro nome_arquivo  cod_origem data_geracao_arquivo reserva
#>           <int> <chr>         <chr>      <date>               <chr>  
#> 1             0 COTAHIST.2000 BOVESPA    2001-05-02           ""
f <- download_marketdata("COTAHIST_YEARLY", refdate = as.Date("1999-01-01"))
ch <- read_marketdata(f, "COTAHIST_YEARLY")
ch$Header
#> # A tibble: 1 x 5
#>   tipo_registro nome_arquivo  cod_origem data_geracao_arquivo reserva
#>           <int> <chr>         <chr>      <date>               <chr>  
#> 1             0 COTAHIST.2000 BOVESPA    2001-05-02           ""

^{Created on 2022-07-02 by the reprex package (v2.0.1)}

[wilsonfreitas]

This happens because the file name changes for files of the years of 2000, 1999, 1998 and so on.

For 2000 it returns the file name COTAHIST.A2000, for 2001 it is COTAHIST_A2001.

Since the regex to get the basename is \.\w+$, the basename is COTAHIST for all years lower than 2000.