write csv called: "Verified (date)"

CIAT-DAPA · Feb 8, 2018 · f80ad2f · f80ad2f
1 parent 831f1e6
commit f80ad2f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/tools/verification_tool.R b/src/tools/verification_tool.R
@@ -66,7 +66,7 @@ valid_species2 <- lapply(1:nrow(valid_species),function(j){
 valid_species2 <- do.call(rbind,valid_species2)
 
 # Saving Species with FCS valid file
-#write.csv(valid_species,paste0(root,"/","runs","/","results","/","Verified","_",Sys.Date(),".csv"),row.names=F,quote=F)
+write.csv(valid_species,paste0(root,"/","runs","/","results","/","Verified","_",Sys.Date(),".csv"),row.names=F,quote=F)
 
 # Saving Combined FCS file
 write.csv(valid_species2,paste0(root,"/","runs","/","results","/","FCS_Combined","_",Sys.Date(),".csv"),row.names=F,quote=F)