file(file, ifelse(append, "a", "w")) でエラーの解決策

前提・実現したいこと

大量のjpgファイルをmxnetのデータセットとして使うために、csvファイルを作ろうとしましたが、その過程で以下のエラーメッセージが発生しました。imageToDatasetのコードはネットから拾ってきたものをそのまま使っています。

発生している問題・エラーメッセージ

 file(file, ifelse(append, "a", "w")) でエラー: 
   コネクションを開くことができません 
 追加情報:  警告メッセージ: 
 file(file, ifelse(append, "a", "w")) で: 
   ファイル 'C:/Users/my/R/train' を開くことができません: Permission denied

該当のソースコード

R言語
imageToDataset <- function(basedir, save_to,label, isGray) {
imagefiles <- list.files(basedir)
w <- 30
h <- 30
img_size <- wh
df <- data.frame()
for (i in 1:length(imagefiles)) {
result <- tryCatch({
imgname <- imagefiles[i]
img <- readImage(paste0(basedir,"/",imgname))
img_resized <- resize(img, w = w, h = h)
if (isGray) {
img_resized <- channel(img_resized,"gray")
}
img_matrix <- img@.Data
img_vector <- as.vector(array(img_matrix,dim=c(1,wh*3)))
vec <- c(label, img_vector)
df <- rbind(df, vec)
},
error = function(e) { print(e) })
}
names(df) <- c("label", paste0("pixel", c(1:img_size)))
write.csv(df, save_to, row.names = FALSE)
return(df)
}

library(EBImage)
path = "C:/Users/my/R/train/train/jpg"
save_to = "C:/Users/my/R/train"

imageToDataset(path, save_to,0,1)

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

R3.4.0

行動規範の内容に同意します

回答1件

ベストアンサー

C:/Users/my/R/trainなるディレクトリが存在し、かつ書きこみ可能な状態にあるか、確認してください。

コメントを読んで追記：
一つ見損なっていました。
C:/Users/my/R/trainはsave_toという変数に代入されており、それは関数imageToDataset内のwrite.csvで使われています。write.csvはデータをcsvファイルに書き出す関数です。書き出し先としてファイル名が指定されなくてはなりません。ところが書き出し先はC:/Users/my/R/trainでディレクトリです。これがエラーの原因でしょう。

コードの最後の方のsave_toにファイル名が代入されるように書き直してテストしてみてください。

投稿2018/01/31 06:11

編集2018/01/31 16:56