r - R、ファイルと同じファイルの概要を返す関数

Question

Rに次のコードがあります：

getmonitor<- function(id,directory,summarize=FALSE) {
    a<- "C:/Users/UNI/Documents/Coursera/archivosR/"

    b<- paste(a,directory,"/",sprintf("%03d",as.numeric(id)),".csv",sep="")

    c<- read.csv(b)

    if(summarize) {
        print(summary(c))
    }else {
        return(c)
    }
}

私がやろうとしているのはsummarize =FALSE、関数がファイルを返すだけで、それが私の関数でうまく機能するということです。ただし、summarize=TRUE関数は正しいサマリーを返しますが、TRUE モードの関数と等しい値に head() を書き込むと、結果はサマリーになり、head の結果がファイルになります。