Erro na execução do código Coleta_e_Explora.R

Olá Diego, tudo bem? Espero que sim!

Desculpe pela demora em retornar.

A mensagem que ocorreu é devido à página lida referente ao ano e mês estar vazia. Provavelmente ocorreu algum problema no momento do carregamento da página na execução do loop.

Limpe o Global Enviroment para ter certeza de que as variáveis que foram salvas sejam deletadas e rode o código novamente. Para limpar o Global Enviroment, basta clicar no espanador na aba especificada no RStudio.

Segue abaixo o código completo para extração das informações:

install.packages('httr') 
install.packages('XML') 
library(httr) 
library(XML)

df_OVNI  <- data.frame()
mes_corrente = 9
ano_corrente = 1997
ano_mes_corrente = (ano_corrente * 100) + mes_corrente
while (ano_mes_corrente  <= 201709) {
  site <- paste("http://www.nuforc.org/webreports/ndxe", as.character(ano_mes_corrente), ".html")
  site <- gsub (" ", "", site)
  html2 <- GET(site)
  parsed <- suppressMessages(htmlParse(html2, asText=TRUE))
  tableNodes <- getNodeSet(parsed, "//table")
  tb <- readHTMLTable(tableNodes[[1]])
  df_OVNI <- rbind(df_OVNI,tb)
  if (mes_corrente == 12)
  {
      mes_corrente <- 1
      ano_corrente <- ano_corrente + 1
      ano_mes_corrente <- (ano_corrente * 100) + mes_corrente
  }
  else
  {
    mes_corrente <- mes_corrente + 1
    ano_mes_corrente <- ano_mes_corrente + 1 
  }
  print(ano_mes_corrente)
}
write.csv(rbind(df_OVNI), file = "OVNIS.csv")

Bons estudos!