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)