Присвоение имен файлам CSV после преобразования из XLSX (с несколькими листами) в виде пакета

Question

library(xlsx)
lapply(files.to.read, function(f) {
df = read.xlsx(f, sheetName = 'Sheet8')
write.csv(df, gsub("xlsx", "csv", f), row.names=FALSE) 
     })

Я конвертирую xlsx в csv и хочу

• добавить имя листа в конец каждого имени файла
• создать несколько csv для листов8: 10 для каждого файла

Answer 1

что-то вроде этого?

код

files <-  list.files(path = "./", pattern = "*.xlsx$", recursive = FALSE, full.names = TRUE)
sheet_to_read <- c( 8, 9, 10 )

library( readxl )

for( excelsheet in files) {
  for (sheet in sheet_to_read) {
     temp <- read_excel( path = excelsheet, sheet = sheet)
     write.csv( temp, file = paste0( "./", gsub("./", "", excelsheet), "-sheet", sheet,".csv") )
  }
}

результат