Sequential-Data-Classification/code/CSV_transform_code.R at master · yuting1214/Sequential-Data-Classification · 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
39
40
41
42
### Package
library(stringr) # For str_trim
### Working directory
root<-"C:/Users/Public/Industry_data/Inform_manu_comp/comp_data/"#Change
setwd(root)
fold_name<- list.files(pattern="G*")
working_directory<- paste(root,fold_name,"/", sep="")

### Iteration
#Repository
repo<-"C:/Users/陳昱廷/Desktop/comp_data_csv/"#Change
repo_dr<- paste(repo,fold_name,"/", sep="")
#fold
for( iin seq_len(length(working_directory))){
wdsep<-working_directory[i]
 setwd(wdsep)
file_name<- list.files(pattern="*.txt")
file_path<- paste(wdsep,file_name,sep="")
title<- unlist(strsplit(file_name, "txt"))
file_csv<- paste(title,"csv",sep="")
repo_current<-repo_dr[i]
#file
for ( jin seq_len(length(file_path))){
file<-file_path[j]
file_read<- readLines(file)
# Treatment
split_file<- strsplit(file_read, split="\t")
split_file[[1]] <-NULL#space
split_file[[2]] <-NULL# Deg.F
element_num<- length(split_file[[2]])
variable_name<-split_file[[1]]
temp<- lapply(2:length(split_file), function(i) split_file[[i]][-element_num])
file_final<- as.data.frame(do.call(rbind, temp), stringsAsFactors=FALSE)
 colnames(file_final) <-variable_name
#Repository
 setwd(repo_current)
#Save CSV
 write.csv(file_final,file_csv[j])
 cat("The", j, "th iteration is finished. \n")
 }
}