Rで部下に歩数を送りつける

R

自分では全く意外ではないデータでも他人にとっては意外なことがある。
ましてやそれが行動データであればなおさらだ。
たとえば自分では最近運動不足を痛感しているが、人は知らない。
俺は俺に甘いので運動不足は放置されがちだが、人は放置しない。
ということで、自分の歩数を部下にメールで送るようにした。Rで。

fitbitから歩数をゲット

# devtools::install_github("corynissen/fitbitScraper")
library("fitbitScraper")
cookie <- login(email=options()$FITBIT_MAIL, password=options()$FITBIT_PW)
steps <- get_daily_data(cookie, what="steps",format(Sys.Date()-1),format(Sys.Date()-1))

gmailで歩数を送りつける

# install.packages("mailR")
library("mailR")
mail_body <- sprintf("<html><head></head><body><h1>昨日の歩数は%sでした</h1></body></html>", steps$data)
send.mail(from = "Yoshio TOKOROSAWA<prrrrrrrrrrrrrrrrr@gmail.com>",
          to = "uchinobuka@hogehoge.com",
          subject="昨日の歩数",
          body = mail_body,
          encoding = "utf-8",
          html = TRUE,
          smtp = list(host.name = "smtp.gmail.com", 
                      port = 465, 
                      user.name = "prrrrrrrrrrrrrrrrr@gmail.com",
                      passwd = options()$GMAIL_PW,　
                      ssl = TRUE),
          authenticate = TRUE,
          send = TRUE)

enjoy!!!