どう書く？org : 設定ファイルから値を取得

R doukaku.org

original page : http://ja.doukaku.org/186/

設定ファイルから項目名をキーとして値を取得するコードを書いてください。
設定ファイルのイメージも載せてください。

ここで設定ファイルとは、
・項目名と値のペアが書いてあるファイル
・フォーマットはその言語で扱いやすいものでよい
・コードと分離され、コードに影響を与えずに変更が可能
を条件とします。ファイルが難しければ同等のものでもかまいません（テーブル、環境変数など）。

例）
----
ファイル：ShowPrice.ini
ITEM_NAME=りんご
ITEM_COST=200

> showPrice()
「りんご」は210円（税込み）
----
ITEM_NAME=みかん
ITEM_COST=100

> showPrice()
「みかん」は105円（税込み）

#6626

original page : http://ja.doukaku.org/comment/6626/

データフレームとして読み込んでから名前つきベクトルに変換することで連想配列と同様の機能が使えますが、

要素数が２つ程度であればデータフレームのまま使っちゃった方が早いと思います。

showPrice <- function(){
    d <- read.table("ShowPrice.ini", sep="=", stringsAsFactors=FALSE)
    sprintf("「%s」は%d円（税込み）", d$V2[d$V1=="ITEM_NAME"], as.numeric(d$V2[d$V1=="ITEM_COST"])*1.05)
}