откройте все файлы в папке и запустите функцию (получение данных из xml), затем создайте файл on в csv или excel

Question

Helo.У меня есть код в R, я хотел бы открыть все файлы CCA 10 в папке Zip и запустить функцию, связанную с получением XML в dataframe.Вывод должен быть одним файлом CSV или Excel.Я довольно новичок в R, поэтому любая помощь будет оценена. Спасибо.

приведенный ниже код уже работает, но как реализовать функцию цикла do while в R, чтобы получить данные из всех файлов в один файл / файл.

`Portfolio_check<-read_xml("UTF-8_20190228_SK3110000310_ver2.xml")%>%xml_ns_strip%>%xml_find_all(".//Portfolio/Assets")

   lapply(Portfolio_check, function(Assets) {
      find the first ISIN
     first_asset_node = xml_find_first(Portfolio_check, ".//SecurityCodes/ISIN")

     ISIN = xml_text(first_asset_node,trim = TRUE)

      use the text() to find out text nodes from the current position
     PRICE = xml_text(xml_find_first(Portfolio_check, ".//Price"))


          # find if security exists
         Security = xml_find_all(Portfolio_check, ".//SecurityCodes")

   }
     check if the second span exists
if(length(Securitz) != 0) {
      Amount_AUV = xml_text(xml_find_first(Portfolio_check, ".//InterestClaimGross/Amount"))

      }
            else {
       Amount_AUV = ""  
       }

data.frame(ISIN,PRICE,Amount_AUV)`