Какой метод является наилучшим для повторного применения сценария к n файлам .csv в R?

Моя ситуация :

1. У меня есть несколько файлов csv, все с одинаковым суффиксом pre .csv, но первые два символа имени файла разные (например, AA01 .csv, AB01.csv, AC01.csv и т. д.)
2. У меня есть сценарий R, который я хотел бы запустить для каждого файла. Этот файл по сути извлекает данные из .csv и назначает их векторам / преобразует их в объекты таймсерий. (Например, объект таймсерии AA01 xts, объект AB01 xts)

Чего я хотел бы достичь :

1. Встраивать сценарий в более крупный цикл (или при необходимости) для последовательного выполнения каждого файла и применения сценария.
2. Удалить созданные промежуточные объекты (см. Фрагмент кода ниже).
3. Оставить меня с созданными последними объектами xts из каждого файла исходных данных (например, от AA01 до AC01 и т. д. в виде значений / векторов и т. д.)

Каким будет правильный способ встроить этот скрипт в R? Извините, но я новичок в программировании!

Мой код сценария ниже ... заголовок каждого столбца в каждом CSV - ДАТА, ВРЕМЯ, ЗНАЧЕНИЕ

    # Pull in Data from the FileSystem and attach it
AA01raw<-read.csv("AA01.csv")
attach(AA01raw)
#format the data for timeseries work
cdt<-as.character(Date)
ctm<-as.character(Time)
tfrm<-timeDate(paste(cdt,ctm),format ="%Y/%m/%d %H:%M:%S")
val<-as.matrix(Value)
aa01tsobj<-timeSeries(val,tfrm)
#convert the timeSeries object to an xts Object
aa01xtsobj<-as.xts(tsobj)
#remove all the intermediate objects to leave the final xts object
rm(cdt)
rm(ctm)
rm(aa01tsobj)
rm(tfrm)
gc()

, а затем повторять для каждого файла .csv, пока не будут извлечены все объекты xts.

то есть, что бы мы закончили в R, готовые для дальнейших приложений:

aa01xtsobj, ab01xtsobj, ac01xtsobj....etc

любая помощь о том, как это сделать, будет очень признательна.