こんなのはダメだろうなあ・・・。
yunocchi <- function(){ f <- FALSE function(s){ paste(sapply(unlist(strsplit(gsub("\n", "", s), " ")), function(i) (switch(i, "X" = {ifelse((f <<- !f), "ひだまり", "")}, "/" = {ifelse((f <<- !f), "", "スケッチ")}, "_" = "x", "<" = "365 ", i ))), collapse="")} } yunocchi()(" X / _ / X < 来週も見てくださいね! ")
RのParserに手を加えるような方法か、_を単品で使ううまい方法があればよいのだけど。うーん。そもそも、元のお題は演算子のoverloadだと思うし・・・。