Failed to connect to www.inmet.gov.br port 80: Timed out

[patrickgoulart12]

Hello!

This code it's awesome! It's work to get some information about two stations.

However, when I try to get informations about 10 stations, I received this text:

Error in curl::curl_fetch_memory(url, handle = handle) :
Failed to connect to www.inmet.gov.br port 80: Timed out

Now I can't get mor informations.

Do you know how can I solve this?

Thanks!

[lhmet]

Thank you @patrickgoulart12!
To help you more effectively, it would be good if you provide reproducible example code.

[patrickgoulart12]

Hello!

Follow the code:

library(devtools)
install_github('lhmet/inmetr')
library(inmetr)

stations <- c("Rio de Janeiro", "São Paulo (Mir. de Santana)", "Belo Horizonte",
"Porto Alegre", "Florianópolis", "Vitória", "Curitiba",
"Goiás", "Rio Branco", "Manaus", "Brasília", "Campo Grande",
"Recife (Curado)", "Natal", "Aracaju", "Salvador (Ondina)",
"Palmas", "Fortaleza", "São Luis", "Cuiabá",
"João Pessoa", "Teresina", "Porto Velho", "Boa Vista",
"Belém", "Macapá")

stations_rows <- pmatch(stations, bdmep_meta$name)
bdmep_meta[stations_rows, ]

stns_codes <- bdmep_meta[stations_rows, "id"]
stns_codes

start_date <- "01/01/2018"
end_date <- format(Sys.Date(), "%d/%m/%Y")
met_data <- bdmep_import(id = stns_codes,
sdate = start_date,
edate = end_date,
email = "xxxxx@gmail.com",
passwd = "xxxxx",
verbose = TRUE)

Thanks!

[jdtatsch]

Hi @patrickgoulart12, this kind of message is probably related to a network problem on INMET website. When this happens, did you access the website using a web browser?

browseURL("https://www.inmet.gov.br")

[lhmet]

@patrickgoulart12 I should have included a pause in the code so that it was not spamming the website with requests. This helps us avoid getting flagged as a spammer.
Please reinstall the package. Now, the expected results for two station in your code are:

stns_codes <- c("83743", "83374")
start_date <- "01/01/2018"
end_date <- format(Sys.Date(), "%d/%m/%Y")
met_data <- bdmep_import(id = stns_codes, 
                          sdate = start_date, 
                          edate = end_date,
                          email = "jdtatsch@gmail.com",
                          passwd = "d17ulev5",
                          verbose = TRUE)

---

station: 83743
OK (HTTP 200).
Nao existem dados disponiveis da estacao: Rio de Janeiro-RJ para o periodo de 01/01/2018 a 13/04/2020

---

station: 83374
OK (HTTP 200).
Nao existem dados disponiveis da estacao: Goiás-GO para o periodo de 01/01/2018 a 13/04/2020
met_data
date id prec tair tw tmax tmin urmax patm pnmm wd wsmax n cc evap ur ws
1 NA 83743 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
2 NA 83374 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
request_status
1 Nao existem dados disponiveis da estacao: Rio de Janeiro-RJ para o periodo de 01/01/2018 a 13/04/2020
2 Nao existem dados disponiveis da estacao: Goiás-GO para o periodo de 01/01/2018 a 13/04/2020

Therefore, some of the stations do not have data in the requested period.
Thank you for reporting this issue.

[patrickgoulart12]

Hello,

I reinstalled the package and I tried again your first step by step with "Santa Maria" and "Macapá" stations and year 1961, but still don't working =/.

It could be some problem with my IP in inmet, because I tried before with many stations? You know some solution for this situation?

Already I thank you very much the support

follow the code:

library(devtools)
install_github('lhmet/inmetr', force = TRUE)
library(inmetr)

head(bdmep_meta)

stations <- c("Santa Maria", "Macapá")

stations_rows <- pmatch(stations, bdmep_meta$name)
bdmep_meta[stations_rows, ]

stns_codes <- bdmep_meta[stations_rows, "id"]
stns_codes

start_date <- "01/01/1961"
end_date <- format(Sys.Date(), "%d/%m/%Y")
met_data <- bdmep_import(id = stns_codes,
sdate = start_date,
edate = end_date,
email = "your@email",
passwd = "yourpassword",
verbose = TRUE)