プリプロセッサの利用
の編集
http://www.okadajp.org/RWiki/?%E3%83%97%E3%83%AA%E3%83%97%E3%83%AD%E3%82%BB%E3%83%83%E3%82%B5%E3%81%AE%E5%88%A9%E7%94%A8
[
トップ
] [
編集
|
差分
|
バックアップ
|
添付
|
リロード
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
-- 雛形とするページ --
(no template pages)
//なかま COLOR(red){SIZE(20){cpp+Rによるマクロの使用法}} #がコメントの言語ではみんな同じなんですが。 #contents * ヘッダーの用意 [#u36964de] ** common.R [#y71b97d0] 平方根 <- function(x) { #ifdef DOUBLE sqrt(x) #else floor(sqrt(x)) #endif } * メインの用意 [#b2b407bf] ** main.R [#k88a5b99] #include "common.R" #define TARGET 2 平方根(TARGET) * 実行1 [#a056fcfb] cpp main.R | R --vanilla -q * 結果1 [#sc5faffb] > # 1 "main.R" > # 1 "common.R" 1 > 平方根 <- function(x) + { + + + + floor(sqrt(x)) + + } > > # 1 "main.R" 2 > > > 平方根(2) [1] 1 > * 実行2 [#u78e80ea] cpp -DDOUBLE main.R | R --vanilla -q * 結果2 [#n9aabfc6] > # 1 "main.R" > # 1 "common.R" 1 > 平方根<- function(x) + { + + sqrt(x) + + + + } > > # 1 "main.R" 2 > > > 平方根(2) [1] 1.414214 >
タイムスタンプを変更しない
//なかま COLOR(red){SIZE(20){cpp+Rによるマクロの使用法}} #がコメントの言語ではみんな同じなんですが。 #contents * ヘッダーの用意 [#u36964de] ** common.R [#y71b97d0] 平方根 <- function(x) { #ifdef DOUBLE sqrt(x) #else floor(sqrt(x)) #endif } * メインの用意 [#b2b407bf] ** main.R [#k88a5b99] #include "common.R" #define TARGET 2 平方根(TARGET) * 実行1 [#a056fcfb] cpp main.R | R --vanilla -q * 結果1 [#sc5faffb] > # 1 "main.R" > # 1 "common.R" 1 > 平方根 <- function(x) + { + + + + floor(sqrt(x)) + + } > > # 1 "main.R" 2 > > > 平方根(2) [1] 1 > * 実行2 [#u78e80ea] cpp -DDOUBLE main.R | R --vanilla -q * 結果2 [#n9aabfc6] > # 1 "main.R" > # 1 "common.R" 1 > 平方根<- function(x) + { + + sqrt(x) + + + + } > > # 1 "main.R" 2 > > > 平方根(2) [1] 1.414214 >
テキスト整形のルールを表示する