now.R シグナル発生部(Rソース)
今月より新システムでシグナル発生させて、実運用しています
昨年末の時点で稼働できるのは1ルールだけで複数のルールを稼働させるにはどうしようか? 悩んでいたんだけど、、、
非常にシンプルな方法でとりあえず解決
now.R
---------------
#標準入力からデータを読み込む
s<-read.table("stdin",header=TRUE, sep="\t")
################
source("./rule.R")
write.csv(p, "./output/now.csv", quote=FALSE, row.names=FALSE)
#####################
source("./rule1.R")
write.csv(p, "./output/now1.csv", quote=FALSE, row.names=FALSE)
#####################
source("./rule2.R")
write.csv(p, "./output/now2.csv", quote=FALSE, row.names=FALSE)
----------
凄く単純w
結局のところ、ルールをR言語で記述して、それをsource文で読み込んで適用させ、結果をcsvでファイルに書き出すだけ
ルールを増やすときは、更にズラズラ書いていくだけw
勿論、これを単独で実行するのではなく、shell script によるコマンドから呼び出すんだけど
R言語べったりのシステムになりつつあるけど、まあ自分で使うだけだからw