type herefilenames <- list.files("C:/...", recursive=TRUE, full.names=TRUE, pattern=".xml")
name <- unlist(lapply(filenames, function(f) {
xml <- xmlParse(f)
xpathSApply(xml, "//...", xmlValue)
}))
data <- data.frame(name)filenames <- list.files("C:/...", recursive=TRUE, full.names=TRUE, pattern=".xml")
name <- unlist(lapply(filenames, function(f) {
xml <- xmlParse(f)
xpathSApply(xml, "//...", xmlValue)
}))
data <- data.frame(name)
edvfvkm fefilenames <- list.files(“C:/…”, recursive=TRUE, full.names=TRUE, pattern=”.xml”)
name <- unlist(lapply(filenames, function(f) {
xml <- xmlParse(f)
xpathSApply(xml, “//…”, xmlValue)
}))
data <- data.frame(name)