Подключение общедоступного API с помощью эластичного пакета в R

#r #elasticsearch #connect

Вопрос:

Я пытаюсь подключить API из elasticsearch с помощью R. Это должно было быть легко, но я получаю следующую ошибку:

 Error: 403 - action [cluster:monitor/main] is unauthorized for user [user-public-notificacoes]
 

Что я делаю не так?

 library(elastic)

user <- 'user-public-notificacoes'
paswd <- 'Za4qNXdyQNSa9YaA'
api <- 'elasticsearch-saps.saude.gov.br'

body<-
  '{
  "query": {
    "match": {
      "resultadoTeste": "Positivo"
    }
  }
}'

MS_conn <- 
  elastic::connect(transport_schema = "https",
                   host = 'elasticsearch-saps.saude.gov.br',
                   port = NULL,
                   ssl_verifyhost = 0,
                   ssl_verifypeer=0,
                   es_host="elasticsearch-saps.saude.gov.br",
                   user = user, 
                   pwd  = paswd)

assign('res', Search(conn = MS_conn,
                     body = body,
                     index = 'desc-notificacoes-esusve-*',
                     time_scroll =  '1m', size = 100))
 

Информация об API https://opendatasus.saude.gov.br/dataset/casos-nacionais/resource/30c7902e-fe02-4986-b69d-906ca4c2ec36

URL: https://elasticsearch-saps.saude.gov.br/desc-notificacoes-esusve-*/_смотреть?хорошенький