if (FALSE) {
login()
# Evaluate data package
transaction <- evaluate_data_package(
eml = paste0(tempdir(), "/edi.595.1.xml"),
env = "staging"
)
transaction
#> [1] "evaluate_163966785813042760"
# Summarize report
read_evaluate_report_summary(transaction, env = "staging")
#> ===================================================
#> EVALUATION REPORT
#> ===================================================
#>
#> PackageId: edi.595.1
#> Report Date/Time: 2021-12-16T22:49:25
#> Total Quality Checks: 29
#> Valid: 21
#> Info: 8
#> Warn: 0
#> Error: 0
logout()
}
Run the code above in your browser using DataLab