0

ループ内のいくつかのプロットを png ファイルに保存しています。これは、R を閉じるとすぐにうまく機能します。RStudio を使用している限り、すべてのファイルのサイズは 0 Kb であり、別のプログラムで既に使用されているため開くことができません。何故ですか?何かをコーディングするのを忘れましたか?

ここに私のループがあります:

plotBasketAndSaveToDirectory<-function(BasketName, SaveToDirectory){
    BasketVariables <- readVariablesFromBasket(BasketName)

    for(i in 1:nrow(BasketVariables)){
      VariableCSV<-read.table(getVariableCSVPath(BasketVariables[i,1]),header=TRUE,stringsAsFactors=FALSE,sep=",")
      VariableCSV$Date<-as.Date(as.character(VariableCSV$Date), format="%Y/%m/%d")
      VariableXTS<-xts(VariableCSV$Close, order.by=VariableCSV$Date)
      png(file=paste(SaveToDirectory,BasketVariables[i,1],".png",sep=""))
      plot(VariableXTS, main=BasketVariables[i,1])
      dev.off
    }
}
4

1 に答える 1