read.xts
独自の関数を書くことができます。これをラッパー関数と呼び、次のようになります。
read.xts <- function(x, format = "%m/%d/%Y", header = TRUE, sep = ",") {
result <- as.xts(read.zoo(x, sep = sep, format = format, header = header))
return(result)
}
read.xts(file.choose()) # select your file
の引数に注意してくださいfunction()
。それらは関数の本体(中括弧の間のコード)に渡されます。引数に値がある場合function()
、これはこれがデフォルトであることを意味します。新しい値(たとえばfunction(x = "my.file.csv", sep = "\t")
)を割り当てると、デフォルトが上書きされます。最後の行は、新しい関数の使用方法を示しています。この関数を残りのread.zoo
引数で自由に拡張してください。それを行う方法について具体的な質問がある場合は、恥ずかしがらずに質問してください。:)
私は毎日の仕事でそのような小さな宝石をいくつか使用しています。私はworkhorse.Rというファイルを作成しsource("d:/workspace/workhorse.R")
、小さな関数が必要なときはいつでもそれをロードします(例:)。