if (FALSE) {
login()
transaction <- evaluate_data_package(
eml = paste0(tempdir(), "/edi.595.1.xml"),
env = "staging"
)
transaction
#> [1] "evaluate_163966785813042760"
# Check evaluation status
status <- check_status_evaluate(transaction, env = "staging")
status
#> [1] TRUE
# Read evaluation report
report <- read_evaluate_report(transaction, env = "staging")
report
#> {xml_document}
#> ===================================================
#> EVALUATION REPORT
#> ===================================================
#>
#> PackageId: edi.595.1
#> Report Date/Time: 2021-12-15T17:46:33
#> Total Quality Checks: 29
#> Valid: 21
#> Info: 8
#> Warn: 0
#> Error: 0
logout()
}
Run the code above in your browser using DataLab