R SendMessageToLineNotify

library(httr);
picurl <- "http://www.ccf.org.tw/new/endpoverty/images/product/product-pic1.jpg" 
url <- "https://notify-api.line.me/api/notify"
message <- "中文測試~!@#$%^&*()123456789"
token <-"Bearer 你的Token"
postdata <- list("message"=message, 
                 "imageThumbnail"=picurl, 
                 "imageFullsize"=picurl,
                 "stickerPackageId"="1", 
                 "StickerId"="106")
header <- add_headers("Authorization"=token)
req <- POST(url, header, body = postdata, encode="form") 
status <- content(req , as ="text", encoding="utf-8")
status