R/send.R

In mrchypark/kakaorest: What the Package Does (One Line, Title Case)

talkme <- function(text) {
  url <- "https://kapi.kakao.com/v2/api/talk/memo/default/send"
  body <- list(
    template_object = '{
  "object_type":"text",
  "text":"텍스트 영역입니다. 최대 200자 표시 가능합니다.",
  "link":{
    "web_url":"http://dev.kakao.com",
    "mobile_web_url":"http://dev.kakao.com"
  },
  "button_title":"바로 확인"
}'
  )
  
  auth <- paste0("Bearer ", km_key_get())
  auth <- httr::add_headers("Authorization"= auth)
  httr::POST(url, body = body, auth, encode = "form", verbose())
  return(url)
}