http://qiita.com/giiko_/items/8c3442e8e7a83cc0b91a

zoi.R

library(magrittr)

takewhile <- function(zoi, count=0L) {
   count <- count + 1L
   if (eval(zoi)) {
      return(count)
   } else {
      return(takewhile(zoi, count))
   }
}

quote(
   list(c("今日", "ぞい"), c("も"), c("1", "ぞい"), c("日", "ぞい"), c("がん", "ぞい"), c("ばる", "ぞい"), c("ぞい！")) %>%
   sapply(sample, size=1L) %>%
   paste(collapse="") %T>%
   cat(fill=TRUE) %>%
   equals("今日も1日がんばるぞい！")
) %>%
takewhile() %>%
cat("がんばるまで", ., "zoi でした", fill=TRUE)