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

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 オプションがあれば教えてほしいです。

コメント

このブログの人気の投稿

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

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

DNAを増幅するサーマルサイクラーを自作してみたよ

DNAをPCR法で増幅するために必要なサーマルサイクラーを自作してみました。自作と言っても、いわゆる、PCの自作と同じでパーツを組み立てていく感じです。購入から組み立ての様子を簡単に紹介します。 モチベーション ラボには様々なレクリエーションがあります。例えば、単にどこかに遊びに行ったり、スポーツ大会したり、ひたすら合宿形式でプログレスのプレゼンをするミーティングするなどがあります。それもよいのですが、せっかくなので、普段の研究時間ではトライできないが、研究に関わる hack を行う、というイベントを企画してみました。夏休みの自由研究や社会科見学的なノリです。   うちのラボでは、PCRを使ったウェットの実験技術の開発をしてきました。しかし、サーマルサイクラーのハードウェアの仕組みを体験的に理解している訳ではありません。そこで、サーマルサイクラーを作ってみました。   欧米で始まっている、自宅のガレージやキッチンでバイオロジーを行うムーブメント、バイオパンク、DIYbio を体験しておきたいというのもありますし、Arduino などオープンハードウェア、Maker のムーブメントを体験するのも目的の一つです。ハードウェア開発が思っているほどハードルが下っていることを体験できて、かつ、将来、ウェットの開発だけでなく、装置開発などもできたら、ラッキー、ぐらいの気持ちでやってみました。   購入 今回作ったのは、組み立て式で、かつ、仕様などや設計図が公開されているOpenPCRというサーマルサイクラーです。ハードウェアの仕様・設計図、制御ソフトウェアなどの情報がすべて公開されており、部品からも自作することが可能です。今回は、「設計図から部品や回路のパーツを作り、それらを組み立てる直前のもの」を購入しました。   ChaiBio https://www.chaibio.com/   OpenPCR https://www.chaibio.com/products/openpcr   なぜか http://openpcr.org/  で購入できなかったので、eBay にある ChaiBio で買いました。   OpenPCR - eBay http://www.ebay.com/itm/111096418574   本体価格は

もうひとつの Nikaido Lab. が始動します

ろくに更新していないこのブログで公表するものどうかと思いましたが、SNS以外で個人の立場として近況を書けるところはここだけなので、ここに書きます。 2020年4月1日より、 国立大学法人 東京医科歯科大学 難治疾患研究所 ゲノム応用医学部門 ゲノム機能情報分野の教授職を拝命致しました。東京医科歯科大学 大学院医歯学総合研究科 修士課程 医歯理工保健学専攻/博士課程 生命理工医療科学専攻 ゲノム機能情報の教授も兼務し、教育にも従事します。理研のラボも残しつつ2組織3拠点体制で研究、それに教育に励んでいきます。 両方で研究をすることを許して頂いた理研と大学の関係各位に深く御礼を申し上げます。またPI不在が多くなるにも関わらず、いろいろと工夫してラボ運営や研究に参加してくれている理研のメンバーにも大変感謝しています。また事前にお知らせしたかった方々も大勢おりましたが、ばたばたしており直接お話できずに申し訳ありません。 ゲノム分野の新しいバイオインフォマティクス技術は、ゲノム科学の新しい計測技術の側に現れます。その理由は新しいデータには新しいデータ科学の課題があるからです。そのデータの側にいればまっさきにアクセスできオリジナリティを発揮しやすくなります。しかし、それだけではありません。そもそも、データをどのように出すべきなのか、あるいは、データ解析技術を前提すれば新しい計測技術が作れないか(計算と計測の融合)、という1歩、2歩と踏み込んだバイオインフォマティクスとゲノム科学の関係が最先端の研究現場にはあります。このようにして生み出された技術は、新しい生命現象を観測し解き明かし、やがては疾患の理解や制御、診断に役に立つでしょう。 理研ではこのような立場から新しい1細胞RNA-seq法とそのデータ解析技術を開発し、社会実装もしてきました。これは異なるタレントの研究者が揃って共同し生み出せたものです。しかし、アイディアの量に対して人材は常に少ない状況です。また大きなプロジェクト(と家庭と任期)を抱えている研究員では、なかなか気軽にいろいろなことを試すのが難しい状況もあります。このような背景から、研究速度や規模が圧倒的に速くなっているゲノム科学やそのバイオインフォマティクス研究で、国際的な存在感を出すことが難しくなっています。 ここ数年は、このような研究に興