Como enviar múltiplos SMS a partir do R
A maneira mais simples de enviar múltiplos SMS a partir do R é utilizar a API HTTP/Rest de SMS integrada do Ozeki SMS Gateway. Ao usar esta API, você enviará mensagens SMS através de uma requisição HTTP Post para o gateway de SMS. A requisição HTTP Post irá conter uma mensagem formatada em JSON. O gateway de SMS irá enviar este SMS para o telefone do destinatário e retornará uma resposta HTTP 200 OK para a sua requisição.
O exemplo de código R para SMS abaixo demonstra como você pode enviar SMS utilizando a API HTTP Rest de SMS do Ozeki SMS Gateway com a biblioteca R Ozeki.Libs.Rest. Esta biblioteca é fornecida gratuitamente e você pode usá-la e modificá-la em qualquer um dos seus projetos.
SendMultipleSms.Rlibrary(Ozeki.Libs.Rest) configuration <- Ozeki.Libs.Rest::Configuration$new( username = "http_user", password = "qwe123", api_url = "http://127.0.0.1:9509/api" ) msg1 <- Ozeki.Libs.Rest::Message$new() msg1$to_address <- "+36201111111" msg1$text <- "Hello world 1" msg2 <- Ozeki.Libs.Rest::Message$new() msg2$to_address <- "+36202222222" msg2$text <- "Hello world 2" msg3 <- Ozeki.Libs.Rest::Message$new() msg3$to_address <- "+36203333333" msg3$text <- "Hello world 3" api <- Ozeki.Libs.Rest::MessageApi$new(configuration) result <- api$send(list(msg1, msg2, msg3)) print(result$to_string())
Como usar o exemplo de SMS em R:
Este exemplo de SMS em R pode ser usado em qualquer aplicação R. Para usá-lo, você deve baixar a biblioteca Ozeki.Libs.Rest. Após o download da biblioteca, você precisa adicionar uma referência a ela no seu código-fonte R. Isso permitirá que você use as classes fornecidas pela biblioteca Ozeki.Libs.Rest. Você pode usar a classe Message para criar o SMS. Você pode usar a classe MessageApi para enviar o SMS para o gateway de SMS. O gateway de SMS encaminhará sua mensagem para a rede móvel através de uma conexão wireless ou pela Internet.
Baixar SendMultipleSms.R
O código-fonte explicado neste artigo pode ser baixado, usado e modificado gratuitamente.
Download: SendMultipleSms.R.zip (407B)
No SendMultipleSms.R.zip você encontrará o arquivo SendMultipleSms.R, que contém o código de exemplo para mostrar como enviar um SMS. Este código de exemplo está listado abaixo.
Para enviar SMS a partir do R:
- Instale um usuário de API HTTP
- Ative "Log communication events" na aba Advanced
- Configure o Visual Studio
- Baixe e extraia o arquivo SendMultipleSms.R.zip
- Inicie o aplicativo Ozeki SMS Gateway
- Execute o código R SendMultipleSms.R usando o prompt de comando
- Verifique os logs para ver se o SMS foi enviado
Para poder enviar SMS a partir do R, primeiro você precisa instalar o Ozeki SMS Gateway. O gateway de SMS pode ser instalado no mesmo computador onde você desenvolve seu código R em qualquer editor de texto, como o bloco de notas do Windows. Após a instalação, o próximo passo é conectar o Ozeki SMS Gateway à rede móvel. Você pode enviar um SMS de teste a partir da interface gráfica do Ozeki para verificar se a sua conexão com a rede móvel está funcionando. O passo final para preparar o seu ambiente é criar um usuário de API HTTP para SMS. Crie um usuário com o nome "http_user" e senha "qwe123" para fazer o exemplo funcionar sem modificações.
Após a configuração do ambiente, você pode executar o seu código R.
URL da API HTTP para enviar SMS a partir do RPara enviar SMS a partir do R, o seu R terá que fazer uma requisição HTTP para o gateway de SMS. A URL da API é mostrada abaixo. Observe que o endereço IP (127.0.0.1) deve ser substituído pelo endereço IP do seu gateway de SMS. Se o Ozeki SMS Gateway estiver instalado no mesmo computador onde o aplicativo R de SMS está sendo executado, pode ser 127.0.0.1. Se estiver instalado em um computador diferente, deve ser o endereço IP desse computador.
http://127.0.0.1:9509/api?action=rest
Para autenticar o cliente de SMS em R, você precisa enviar o nome de usuário e senha em uma string codificada em base64 para o servidor em uma requisição HTTP. O formato usado é: base64(username+":"+password). Em R você pode usar o seguinte código para fazer esta codificação:
username_password <- paste(username, ":", password, sep="")
username_password_encoded <- base64enc::base64encode(charToRaw(username_password))
return (paste("Basic", username_password_encoded, sep=" "))
Por exemplo, se você codificar o nome de usuário 'http_user' e a senha 'qwe123', você obterá a seguinte string codificada em base64: aHR0cF91c2VyOnF3ZTEyMw==. Para enviar
Cabeçalho da requisição HTTP para enviar SMS a partir do RPara enviar as mensagens SMS, você precisa incluir as seguintes linhas como cabeçalhos na requisição HTTP. Observe que incluímos um cabeçalho de tipo de conteúdo e um cabeçalho de Autorização.
Content-Type: application/json Authorization: Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ==
Solicitação HTTP para enviar SMS a partir do R
Para enviar o SMS, sua aplicação em R enviará uma solicitação HTTP semelhante à mostrada abaixo. Observe que esta solicitação contém uma parte de cabeçalho HTTP e uma parte de corpo HTTP. O corpo HTTP é uma string de dados codificada em JSON. Ela contém os números dos destinatários e os textos das mensagens que enviamos.
POST /api?action=sendmsg HTTP/1.1
Content-Length: 962
Content-Type: application/json
Accept: application/json
Accept-Encoding: deflate, gzip
Authorization: Basic aHR0cF91c2VyOnF3ZTEyMw==
Host: 127.0.0.1:9509
User-Agent: libcurl/7.64.1 r-curl/4.3.2 httr/1.4.2
{
"messages":
[
{
"message_id": "fcb65595-06bd-41fe-84e5-f3f8912ff0a1",
"to_address": "+36201111111",
"text": "Hello world 1",
"create_date": "2021-07-13T12:46:23",
"valid_until": "2021-07-20T12:46:23",
"time_to_send": "2021-07-13T12:46:23",
"is_submit_report_requested": true,
"is_delivery_report_requested": true,
"is_view_report_requested": true
},
{
"message_id": "e14c1980-ca12-4d83-92f3-b25ebf6e1b97",
"to_address": "+36202222222",
"text":"Hello world 2",
"create_date": "2021-07-13T12:46:23",
"valid_until": "2021-07-20T12:46:23",
"time_to_send": "2021-07-13T12:46:23",
"is_submit_report_requested": true,
"is_delivery_report_requested": true,
"is_view_report_requested": true
},
{
"message_id": "5f7f0290-172a-446e-a9fe-cf6b22c84fe6",
"to_address": "+36203333333",
"text": "Hello world 3",
"create_date": "2021-07-13T12:46:23",
"valid_until": "2021-07-20T12:46:23",
"time_to_send": "2021-07-13T12:46:23",
"is_submit_report_requested": true,
"is_delivery_report_requested": true,
"is_view_report_requested": true
}
]
}
Resposta HTTP recebida pelo exemplo de SMS em R
Assim que o gateway de SMS receber esta solicitação, ele gerará uma resposta HTTP. A resposta HTTP conterá um código de status para indicar se o envio do SMS foi bem-sucedido ou não. Também retornará uma estrutura codificada em JSON para fornecer detalhes úteis sobre o envio das mensagens.
HTTP/1.1 200 OK
User-Agent: OZEKI 10.3.123 (www.myozeki.com)
Content-Type: application/json; charset=utf8
Last-Modified: Tue, 13 Jul 2021 14:08:09 GMT
Server: 10/10.3.123
Transfer-Encoding: chunked
{
"http_code": 200,
"response_code": "SUCCESS",
"response_msg": "Messages queued for delivery.",
"data": {
"total_count": 3,
"success_count": 3,
"failed_count": 0,
"messages": [
{
"message_id": "fcb65595-06bd-41fe-84e5-f3f8912ff0a1",
"from_station": "%",
"to_address": "+36201111111",
"to_station": "%",
"text": "Hello world 1",
"create_date": "2021-07-13 12:46:23",
"valid_until": "2021-07-20 12:46:23",
"time_to_send": "2021-07-13 12:46:23",
"submit_report_requested": true,
"delivery_report_requested": false,
"view_report_requested": false,
"tags": [
{
"name": "Type",
"value": "SMS:TEXT"
}
],
"status": "SUCCESS"
},
{
"message_id": "e14c1980-ca12-4d83-92f3-b25ebf6e1b97",
"from_station": "%",
"to_address": "+36202222222",
"to_station": "%",
"text": "Hello world 2",
"create_date": "2021-07-13 12:46:23",
"valid_until": "2021-07-20 12:46:23",
"time_to_send": "2021-07-13 12:46:23",
"submit_report_requested": true,
"delivery_report_requested": false,
"view_report_requested": false,
"tags": [
{
"name": "Type",
"value": "SMS:TEXT"
}
],
"status": "SUCCESS"
},
{
"message_id": "5f7f0290-172a-446e-a9fe-cf6b22c84fe6",
"from_station": "%",
"to_address": "+36203333333",
"to_station": "%",
"text": "Hello world 3",
"create_date": "2021-07-13 12:46:23",
"valid_until": "2021-07-20 12:46:23",
"time_to_send": "2021-07-13 12:46:23",
"submit_report_requested": true,
"delivery_report_requested": false,
"view_report_requested": false,
"tags": [
{
"name": "Type",
"value": "SMS:TEXT"
}
],
"status": "SUCCESS"
}
]
}
}
Como enviar SMS a partir do R usando a API de SMS em R (Tutorial em vídeo)
Este vídeo mostra como baixar o arquivo SendMultipleSms.R.zip desta página. Se você assistir ao vídeo, notará que o conteúdo do SendMultipleSms.R.zip é colocado na área de trabalho do Windows. Você também verá que executamos o prompt de comando para enviar o SMS.
Exemplo de SMS em R: SendMultipleSms.R
O código de exemplo abaixo faz parte do SendMultipleSms.R.
Como verificar se o SMS foi aceito pelo usuário HTTP
Após o envio do SMS, é uma boa ideia verificar no seu gateway de SMS o que foi recebido. Você pode verificar o log abrindo os detalhes do usuário HTTP no console de gerenciamento do Ozeki SMS Gateway. O vídeo a seguir mostra o que procurar.
Conclusão
Este artigo teve como objetivo explicar os passos para o envio de múltiplos SMS em R com a ajuda do Ozeki SMS Gateway. Esta solução é perfeita para alcançar vários clientes com um único código em R. É recomendado utilizar este conhecimento para alcançar alta performance no compartilhamento de informações. O Ozeki SMS Gateway permite que você registre mensagens SMS em um banco de dados e oferece várias capacidades de relatório para fornecer informações sobre as mensagens.
Continue a leitura na página de tutoriais da Ozeki, onde mais informações podem ser encontradas sobre tópicos como exclusão de SMS em R.
A única coisa a fazer agora é baixar o Ozeki SMS Gateway e começar a trabalhar!
More information
- Enviar SMS com a API REST HTTP em R (exemplo de código)
- Enviar múltiplos SMS com a API REST HTTP em R (exemplo de código)
- Agendar SMS com a API REST HTTP em R (exemplo de código)
- Receber SMS com a API REST HTTP em R (exemplo de código)
- Excluir SMS com a API REST HTTP em R (exemplo de código)
- Como baixar a biblioteca R SMS mais recente do Github