Excel_batch_generator/batch.R at master · nurolab/Excel_batch_generator · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
# R script to generate a batch of excel sheets from .BVEC file format
# Date: September 27, 2017

# Read file and folders ---------------------------------------------------

setwd("~/Excel_batch_generator")
files <-  Sys.glob("*.bvec")
limit <- length(files)
list.index <- 1:limit

# Batch processing --------------------------------------------------------

for(i in list.index)
  di <- t(read.delim(files[i],header = FALSE,sep = " ")[-1][-121])
di <- as.data.frame(di)
colnames(di) <- NULL
rownames(di) <- NULL

# Generate Excel sheets ---------------------------------------------------

write.xlsx(as.matrix(di[1:30,]),file="1.xls",sheetName = "1",row.names = FALSE,col.names = FALSE)
write.xlsx(as.matrix(di[31:60,]),file="2.xls",sheetName = "1",row.names = FALSE,col.names = FALSE)
write.xlsx(as.matrix(di[61:90,]),file="3.xls",sheetName = "1",row.names = FALSE,col.names = FALSE)
write.xlsx(as.matrix(di[91:120,]),file="4.xls",sheetName = "1",row.names = FALSE,col.names = FALSE)

# Generate CSV files ------------------------------------------------------

write.csv(di[1:30,],file = "1.csv",row.names = FALSE)
write.csv(di[31:60,],file = "2.csv",row.names = FALSE)
write.csv(di[61:90,],file = "3.csv",row.names = FALSE)
write.csv(di[91:120,],file = "4.csv",row.names = FALSE)

# Generate text files -----------------------------------------------------

cat(as.matrix(di[1:30,]),file = "1.txt",sep = " ")
cat(as.matrix(di[31:60,]),file = "2.txt",sep = " ")
cat(as.matrix(di[61:90,]),file = "3.txt",sep = " ")
cat(as.matrix(di[91:120,]),file = "4.txt",sep = " ")