SSL connect error

[kmcd39]

Hi. This seems to be similar to the issue raised here: #19 ?

I am using blsAPI::blsQCEW to iterate through a few time periods and pull county-level qcew data. However, i am getting 'SSL connect errors' for some years or quarters... but the specific time period that gets the error changes if I run the command multiple times. As in, sometimes it's 2018 Q1; sometimes 2020 Q3, etc.

Repex:

library(blsAPI)
library(tidyverse)

pull.params <- tibble(
  yr = c(2018:2021)
  ) %>% 
  merge(tibble(qtr = c(1:4))) %>% 
  arrange(yr)

qcew <- map2_dfr(
  pull.params$yr, pull.params$qtr
  ,~blsAPI::blsQCEW(method = 'area'
                    ,year = .x, quarter = .y
                    ,area = 
                      '37053'
                    )) %>% 
  tibble()

The output from libcurlVesion is:

> libcurlVersion()
[1] "7.83.1"
attr(,"ssl_version")
[1] "(OpenSSL/1.1.1q) Schannel"
attr(,"libssh_version")
[1] "libssh2/1.10.0"
attr(,"protocols")
 [1] "dict"    "file"    "ftp"     "ftps"    "gopher"  "gophers" "http"    "https"   "imap"    "imaps"  
[11] "ldap"    "ldaps"   "mqtt"    "pop3"    "pop3s"   "rtsp"    "scp"     "sftp"    "smb"     "smbs"   
[21] "smtp"    "smtps"   "telnet"  "tftp"   

Thank you for your package!!