Rで読書会の非参加者数の分だけYOをとばす

読書会の参加者数が低迷しているらしい。
読書会は笛吹いて太鼓鳴らす人間がどうしても必要だ。
そういう才能は生まれつきのものなので「向いている」人間にやらせるのが良い。
ということで、「向いている」人間に読書会の定員マイナス読書会の現在の参加人数分だけYOをとばし、責任もって集客させるためのスクリプトを書いた。

#devtools::install_github("dichika/connpass")
#devtools::install_github("dichika/yo")

event2yo <- function(event_id, to, apikey){
  require("connpass")
  require("yo")
  res <- connpass::getInfo(event_id)
  count <- res$events$limit - res$events$accepted
  for(i in seq(count)){
    yo(apikey, to)      
  }
}

event2yo(11565, "YAAAMAKA2", options()$YO_KEY)