array_to_text.R

   1 ### $(R) $(ROPTS) -f array_to_text.R --args data_file_name array_name array_file.txt
   2
   3 arguments <- commandArgs(trailingOnly=TRUE)
   4 data.file.name <- arguments[1]
   5 data.array <- arguments[2]
   6 text.file.name <- arguments[3]
   7
   8 load(data.file.name)
   9 eval(parse(text=c("write.table(",data.array,",",
  10              "file=text.file.name,",
  11              'sep="\\t")')
  12            )
  13      )