Как применить код для нескольких книг / листов Excel

Question

У меня есть три разные книги Excel с 6 листами (вкладками), каждая с данными пациента.
Все имена находятся в одной позиции для всех файлов и имеют длинные имена:
т.е. "2: NIH-IN NIH-IN-99-D99 Панель MDSC NIH 2-99-99 "

Я использовал следующий код, чтобы удалить лишнюю маркировку и получить только имя, которое я хочу (NIH-IN - ##)

#Load Data 
test <- read.csv("C:/Users/####/Desktop/test.csv")
View(test)

#Take original and remove later chunk following "D" (day)   
df<-separate(test, Sample, c("Keep", "Disc"), "-D", extra = "merge")  

#Split both IN and OUT 
df2<-separate(df, Keep, c("Dont Need", "Need"), sep= "(['NIH-IN '\\'NIH-OUT '\\])", extra = "merge") 
df2<-separate(df2, Need, c("Dont Need", "Need"), " ", extra = "merge")

Мне интересно, как я могу применить этот код, чтобы он проходил через мои три книги Excel и (если возможно) через каждый лист / вкладку в каждой.

Я очень новичок в кодированиипоэтому, пожалуйста, извините за любые ошибки.

Answer 1

Вы ищете цикл, который запускает ваш код 18 раз?Вы хотите сохранить свои результаты в списке.

results <- list()
i <- 1

for (filename in c("filename1", "filename2", "filename3")) {
x <- read.csv(filename)
x <- separate(...)
x <- separate(...)
x <- separate(...)
results[i] <- x
i <- i + 1
}