R语言 调用钉钉机器人

                                         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="我又来了")