r - 出力を別の場所に保存 R

Question

ディレクトリ内のすべてのファイルをループして、いくつかのレポートと jpeg ファイルを作成しています。代わりに、これらのレポートと写真、およびサブ フォルダーを保存したいと思います。

ループ内で setwd() を行ったり来たりせずにこれを行うより良い方法はありますか?

例えば：

for (j in 1:length(list.files()))
{
 sp=read.csv(list.files()[j])
#do something
  setwd("H:\test\sub")
  jpeg(paste(list.files()[j],'.jpg',sep=""))
  hist(data)
  dev.off() 
  setwd("H:\test")
#do more 
}

ありがとう