so I have inserted this code:
files <- list.files(pattern = ".xml$") my_xml_reading_function <- function(x) { xmlimport <- read_xml(x)