ゆの in R - kkobayashi

inspired by:

ゆの in Ruby - 冬通りに消え行く制服ガールは✖夢物語にリアルを求めない。 - subtech
ゆの in Perl - Bulknews::Subtech - subtech

とりあえず書いてみた。

"_"をシンボルとして使うと文法エラーになる・・・ので、仕方なく"v"にしました
自分で書いておきながらよく分かってない（えー）
正式なタイトルは「ひだまりスケッチ×365」ですね

setClass("yunocchi", representation(s="character", f="logical"), prototype=list(s="ひだまり", f=TRUE))

setMethod("/", c("yunocchi", "ANY"), function(e1, e2){
  v0   <- deparse(substitute(e1))
  e1@s <- paste(e1@s, ifelse(e1@f, "スケッチ", "x365"), sep="")
  e1@f <- !e1@f
  eval(parse(text=paste(v0, "<<- e1")))
})

setGeneric("/<-", function(e1, e2, value) standardGeneric("/<-"))
setReplaceMethod("/", c("yunocchi", "numeric", "yunocchi"), function(e1, e2, value){e1})

setMethod("<", c("yunocchi", "character"), function(e1, e2){paste(e1@s, e2)})

X <- new("yunocchi")
v <- 1

X / v / X < "来週も見てくださいね!"

((X/v) / X) < "来週も・・・" という順番になるようです。