sag_file <- system.file("SAG", "sol_27_4.xml", package = "icesTAF")
sag <- artifact(sag_file, type = "SAG", check = FALSE)
sag
if (FALSE) {
# to check the artifact, use:
sag <- artifact(tmpfile, type = "SAG")
# or
check.artifact(sag)
}
Run the code above in your browser using DataLab