blob: 9bec6d0b843f88a9766bb2a0926b7dd441434de1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
## example to convert an Excel xml file to tab delimited
input <- xmlToList("grid1_1cz1rlvt.xml")
for(row in input$Worksheet$Table){
line <- c()
for(cell in row){
if("Data" %in% names(cell)){
line <- c(line, cell$Data$text)
}
}
cat(paste(line, collapse="\t"), "\n", file="output.csv", append=TRUE)
}
|
