I want to parse following file and print it to tabular format like the output
Input.txt
#------Main
rt1=read.delim_1("Row_Merge_data_1.txt", header=TRUE, sep="\t"); colnames(rt1)
rt=as.data.frame(rt1); head(rt1)
rt[is.na(rt)]=""
colnames(rt)
dim(rt)
f_out="Merge_R.txt"
cat("",file=f_out,append = FALSE)
for(i in 1:nrow(rt)){
Symbol=rt$Genes_Info[1,]
FullName=rt$Genes_Info[2,]
Primary=rt$Genes_Info[3,]
Gene_type=rt$Genes_Info[4,]
results= paste(Symbol,FullName,Primary,Gene_type,sep="\\t")
write(results,file=f_out, append=TRUE)
}