Send an SMS with Twilio API with R and httr library

sms.R

library(httr)

send_sms_message <- function (message) {
  twilio_sid <- "ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  twilio_secret <- "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"

  twilio_api_url <- paste("https://api.twilio.com/2010-04-01/Accounts/", twilio_sid, "/Messages.json", sep = "") 

  body <- list(
               From = "+46XXXXXXXXX",
               To = "+46XXXXXXXXX",
               Body = message
               )   

  req <- POST(twilio_api_url,
              authenticate(twilio_sid, twilio_secret, type = "basic"),
              body = body
              )
}