ゆのっちゆのっちー "_"が使えないよー

こんなのはダメだろうなあ・・・。

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だと思うし・・・。