Как преобразовать растровое изображение, например PBM, в файл CSV?

Question

Я пытаюсь преобразовать растровое изображение с типом файла PBM в файл CSV.

Я пробовал это:

setwd("~/Desktop/")
directory <- "test.pbm"
ndirectory <- "test.csv"

file_name <- list.files(directory, pattern = ".pbm")

files.to.read <- paste(directory, file_name) 
files.to.write <- paste(ndirectory, paste(sub(".pbm","", 
file_name),".csv"))

for (i in 1:length(files.to.read)) {
  temp <- (read.csv(files.to.read[i], header = TRUE, skip = 11, 
  fill = TRUE))
  write.csv(temp, file = files.to.write[i])
}

Но я получаю сообщение об ошибке "Неттакой файл или каталог ", но файл определенно находится в моем каталоге рабочего стола. Я это слишком усложняю или у кого-нибудь есть предложения, как мне двигаться дальше?

Answer 1

Вы можете получить абсолютные пути к файлам src, установив флаг path и full.names. А затем замените «.pbm» на «.csv», чтобы легко получить имена файлов назначения.

Попробуйте это.

src_files <- list.files(path="~/Desktop/",pattern = ".pbm", full.names = TRUE)
dest_files <- sub(".pbm", ".csv", src_files)
for (i in 1:length(src_files)) {
  temp <- (read.csv(src_files[i], header = TRUE, skip = 11, fill = TRUE))
  write.csv(temp, file = dest_files[i])
}