--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/eml_validate.R	Fri Sep 27 13:01:53 2024 +0000
@@ -0,0 +1,35 @@
+#17/09/2024
+#Seguineau Pauline 
+
+#EML validate
+
+#Load packages
+
+library(emld)
+library(EML)
+
+#Load arguments
+
+args = commandArgs(trailingOnly=TRUE)
+
+if(length(args)>0){
+  eml_file <- args[1]
+}else{
+
+stop("This tool needs at least one argument.")}
+
+#run eml_validate
+
+eml = read_eml(eml_file)
+
+eml_valid = eml_validate(eml)
+
+if(eml_valid==T){
+  cat("Your EML is valid.")
+}else if(eml_valid==F && length(attr(eml_valid,""))>1){
+  cat("Your EML is not valid. You can improve it by correcting these errors:","\n")
+  attr(eml_valid,"")
+}else{
+  cat("Your EML is not valid. You can improve it by correcting this error:","\n")
+  attr(eml_valid,"")
+}