R語言 呼叫釘釘機器人
阿新 • • 發佈:2019-01-03
R語言 呼叫釘釘機器人
rm(list=ls())
library("httr")
testURL <- list()
phone <- list()
ddFun <- function(group=NULL,content=NULL,at=NULL)
{
headers <- c(
"Content-Type" = "application/json;charset=utf-8"
)
p<- paste0("{
\"msgtype\": \"text\",
\"text\": {
\"content\":\"",
content
,
"\"
},
\"at\": {
\"atMobiles\": [
\"",phone[[at]],"\"
],
\"isAtAll\": false
}
}")
dbs <- POST(testURL[[group]],add_headers(.headers = headers),body =p,verbose(),handle = NULL)
content(dbs,encoding = utf-8)
}
#ddFun("test1",content="我又來了")