0

I want to convert 100 excel document lying in "C:/Users/hp/Desktop/excel" to .txt format..I am triyng to use lapply so that all of them are converted to txt at one go.. Please help me .. if I have one file I am converting the .xlsx document to txt in the following way library(xlsx)

sink("output.txt")

data=read.xlsx("C:/Users/hp/Desktop/excel/test2.xlsx",1)

data

sink()

I am writing following code to do it recursively

dest <- "C:/Users/hp/Desktop/excel"

dir(dest)

myfiles <- list.files(path = dest, pattern = "xlsx",  full.names = TRUE)

lapply(myfiles,function(x)  system(sink(x) data=read.xlsx(myfiles,1) data 
sink()),fullnames=TRUE)

After having done for .xlsx it has to be done for .docx also

r2evans
  • 108,754
  • 5
  • 72
  • 122
mjaay
  • 1
  • Your code in the `lapply` is wrong syntactically, cannot work (probably a copy/paste problem). Is there a reason you aren't using `read.xlsx(...)` followed by `write.csv(...)` or one of the text file variants? – r2evans Apr 09 '17 at 20:00
  • 1
    Perhaps it would help if you identify exactly how you expect your text files to be formatted. For example, comma-delimited, tab-delimited, or aesthetically-oriented R-console-output (not good for later programmatic consumption). – r2evans Apr 09 '17 at 20:15
  • r2evans..This is what came to my mind . I am beginner programmer Actually I was trying to make a lapply function for this problem. – mjaay Apr 10 '17 at 05:41
  • yes we can do it as follows . dta=read.xlsx("C:/Users/Desktop/excel_p/abc.xlsx",1) write.table(dta,"abc.txt") .But I am not getting it how to recursively do it for the folder using laaply – mjaay Apr 10 '17 at 07:08
  • Perhaps this is useful: http://stackoverflow.com/a/5759013/3358272 – r2evans Apr 10 '17 at 12:56

0 Answers0