こんなのはダメだろうなあ・・・。 yunocchi <- function(){ f <- FALSE function(s){ paste(sapply(unlist(strsplit(gsub("\n", "", s), " ")), function(i) (switch(i, "X" = {ifelse((f <<- !f), "ひだまり", "")}, "/" = {ifelse((f <<- !f), "", "スケ…

こないだPCが壊れたんですけど、そういうときに備えて超重要なファイルだけでも自動バックアップしておこう、と思ったので、gmailにバックアップファイルをメールするスクリプトを作ることにしました。 引数に任意のファイル名を指定して送れます。 参考：Gm…