view eml_validate.R @ 3:36150f04b524 draft default tip

planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
author ecology
date Fri, 27 Sep 2024 13:01:53 +0000
parents
children
line wrap: on
line source

#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,"")
}