スキップしてメイン コンテンツに移動

Rのバッチモードでコマンド引数を取る関数を書いたが必要なかった

[[バッチモードのRにおけるコマンド引数の参照|http://d.hatena.ne.jp/dancing_infobio/20071105/p1|http://d.hatena.ne.jp/dancing_infobio/20071105/p1]]で初めて知ったのだけど、Rのバッチモードで --argsを指定すると、commandArgs() でコマンド引数をとれるらしい。
<<<
$ R --vanilla --quiet -e 'print(commandArgs())' --args hoge fuga piyo
> print(commandArgs())
[1] "/Library/Frameworks/R.framework/Resources/bin/exec/i386/R"
[2] "--vanilla"
[3] "--quiet"
[4] "-e"
[5] "print(commandArgs())"
[6] "--args"
[7] "hoge"
[8] "fuga"
[9] "piyo"
>>>
たしかにとれる。しかし、引用元のエントリでも指摘している通り、"--args" 以降でなくて、全部の引数が格納されるので使いづらい><
気分によって --quiet を指定しなかったり、-e じゃなくて スクリプトをリダイレクトしたい場合に "--args" の位置が変わっちゃうじゃん。怖くて使えないよ。

そこで --args 以降を取得する get_args() を作ってみたが必要なかったorz...
R --vanilla --quiet -e 'print(commandArgs(trailingOnly=T))' --args hoge fuga piyo
で良いそうです。THX > ma_ko
http://twitter.com/ma_ko/statuses/842339104

仮に、--args がない場合は character(0) が帰ってくるので自分で例外処理しないといけないけど。
if (length(commandArgs(trailingOnly=T)) == 0) {
例外処理
}
みたいな感じかな?
<<<
R --vanilla --quiet -e 'print(commandArgs(trailingOnly=T))'
> print(commandArgs(trailingOnly=T))
character(0)
>>>

一応、残しておきますね >< 教訓: ヘルプ読め

どう書くにもありましたよ。id:kkobayashiさんですね。http://ja.doukaku.org/comment/5015/addtag/
<<<
get_args <- function(args) {

if ( isTRUE(any(args == "--args")) ) {
arg_start <- which(args == "--args") + 1
arg_end <- length(args)
args <- args[arg_start:arg_end]
return(args)
} else {
cat("Not found.\n")
q()
}

}
>>>
commandArgs()を引数としているが関数のなかにハードコーティングしてしまってもいいかも。

これを get_args.r と保存して、
<<<
$ R --vanilla --quiet -e 'source("get_args.r"); print(get_args(commandArgs()))' --args hoge fuga piyo
> source("get_args.r"); print(get_args(commandArgs()))
[1] "hoge" "fuga" "piyo"
>>>
もし、--quiet を付けずに、--argsの位置がずれても大丈夫!
<<<
$ R --vanilla -e 'source("get_args.r"); print(get_args(commandArgs()))' --args hoge fuga piyo
> source("get_args.r"); print(get_args(commandArgs()))
[1] "hoge" "fuga" "piyo"
>>>
もし、--args がなかったら怒られるよ。
<<<
$ R --vanilla --quiet -e 'source("get_args.r"); print(get_args(commandArgs()))'
> source("get_args.r"); print(get_args(commandArgs()))
Not found.
>>>

もっと良い方法があったら教えてください。あと、Ruby で言うところの ruby -r オプションがあれば教えてほしいです。

このブログの人気の投稿

Quartz-Seqで1細胞/微量RNA-Seqを始めたい方へ

はじめに 新しい高精度な1細胞RNA-Seq, Quartz-Seq論文を出してから、各方面から多く相談を受けています。
Sasagawa Y and Nikaido I, et. al. Quartz-Seq: a highly reproducible and sensitive single-cell RNA-Seq reveals non-genetic gene expression heterogeneity. Genome Biology. 14. 2013 
そこで、新しく1細胞RNA-Seqを始める方へ、僕達が理想だと考えている技術導入の手順を紹介したいと思います。また我々の方法は1細胞(6-14 pg Total RNA)だけでなく pg-ng オーダーの少量RNAからシーケンスが可能です。そのような方も以下の手順が参考になると思います。 0. 1細胞/微量RNA-Seqが本当に必要なのか検討する 1細胞/微量RNA-Seqでは、現時点でQuartz-Seqが世界最高の性能を持っている訳ですが、十分なサンプルを用意し、通常のRNA-Seqしたほうが、より精度の高いデータが得られます。なので、基本的には、サンプルをたくさん集める方法をしっかり検討すべきです。まずは、戦略面と技術面で1細胞/微量RNA-Seqが本当に必要かを検討する基準について書きます。 0.1. 戦略面での検討 あなたが抱えているプロジェクトが、1細胞/微量RNA-Seqでなければアプローチできないかどうかを問い直すことが重要です。
基本的には以下の2つの状況で、1細胞/微量RNA-Seqが役に立ちます。
a. 細胞状態が連続的に変化し、さまざまな細胞状態が、細胞集団に含まれている場合 (振動現象、ゆらぎなど) b. 細胞状態を特定するマーカーがほどんどわかっていない場合
最初から細胞状態が2状態しかないことが明らかで、しかも細胞状態を代表する遺伝子が分かっている、という状況では、FACSなどで cell sorting し、目的の細胞を採取することを考えるべきです。そして、微量RNA-Seqや通常のRNA-Seqで、しっかりと biological replication を取る方が良いでしょう。微量になると、テクニカルなノイズが増えるために、生物学的な差を知るためには、n を…

シーケンスアダプタ配列除去ツールまとめ

FASTQ/A file からシーケンスアダプター配列やプライマー配列を除くためのプログラムをまとめてみる。

まず、配列の除去には大別して2つの方向性がある。ひとつは、アダプター配列を含む「リード」を除いてしまう方法。もうひとつは除きたい配列をリードからトリムする方法である。後者のほうが有効リードが増えるメリットが、綺麗に除ききれない場合は、ゲノムへのマップ率が下がる。
気をつける点としては、アダプター/プライマーの reverse complement を検索するかどうか。paired end の際には大事になる。クオリティでトリムできるものや、Paired-end を考慮するものなどもある。アダプター/プライマー配列の文字列を引数として直接入力するものと、multi fasta 形式で指定できるももある。

From Evernote: シーケンスアダプタ配列除去ツールまとめTagDust
http://genome.gsc.riken.jp/osc/english/software/src/nexalign-1.3.5.tgz http://bioinformatics.oxfordjournals.org/content/25/21/2839.full
インストール: curl -O http://genome.gsc.riken.jp/osc/english/software/src/tagdust.tgztar zxvf tagdust.tgz cd tagdust/ make sudo make install rehash
使いかた: tagdust adapter.fasta input.fastq -fdr 0.05 -o output.clean.fastq -a output.artifactual.fastq
解説: 入出力形式は fastq/a が使える。リード全体を除く。速い。アダプター配列を fasta 形式で入力できるのが地味に便利で、これに対応しているものがなかなかない。Muth–Manber algorithm (Approximate multiple string search) を利用。FDRを指定できる。GPL3