blue
/
excuse-scripts
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

R version of smack my bitch is ready

This commit is contained in:
Samir Madhavan 2015-11-28 14:12:07 +05:30
parent 5082dc945f
commit d9ac2b7ca2
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
R/smack_my_bitch_up.R
View File

@ -1,4 +1,4 @@
library(httr)
today = Sys.Date()
@ -27,3 +27,8 @@ reasons = c(
'Someone fucked the system again'
)
POST(paste("https://api.twilio.com/2010-04-01/Accounts/",TWILIO_ACCOUNT_SID,"/Messages.json",sep=""),
body = list(From=my_number,To=her_number,Body=sample(reasons,1) ),
authenticate(TWILIO_ACCOUNT_SID,TWILIO_AUTH_TOKEN) )
print( paste("Message sent at",Sys.time()) )