A sugestão de @heltongraziadei para download dos arquivos do SIH-RD antes permite o download dos arquivos anteriores a 2008, mas se o período desejado inicia antes e termina em 2008 ou depois, a url de leitura dos dados não é atualizada. Então incluí uma linha para captura da sequência de anos entre as linhas de criação da sequência de datas e sua formatação em "mesano": years <- format(dates, "%Y") e aplico a condição para a seleção da url sobre esse objeto (years). Não consegui que a condição funcionasse com if() ..., então usei ifelse().
A sugestão de @heltongraziadei para download dos arquivos do SIH-RD antes permite o download dos arquivos anteriores a 2008, mas se o período desejado inicia antes e termina em 2008 ou depois, a url de leitura dos dados não é atualizada. Então incluí uma linha para captura da sequência de anos entre as linhas de criação da sequência de datas e sua formatação em "mesano":
years <- format(dates, "%Y")e aplico a condição para a seleção da url sobre esse objeto (years). Não consegui que a condição funcionasse comif() ..., então useiifelse().