if (FALSE) {
login()
# Evaluate data package
transaction <- evaluate_data_package(
eml = paste0(tempdir(), "/edi.595.1.xml"),
env = "staging"
)
transaction
#> [1] "evaluate_163966785813042760"
# Read as HTML and write to file for a web browser view
qualityReport <- read_evaluate_report(
transaction = transaction,
as = "html",
env = "staging"
)
writeLines(qualityReport, paste0(tempdir(), "/report.html"))
# Read as character and write to file for browsing
qualityReport <- read_evaluate_report(
transaction = transaction,
as = "char",
env = "staging"
)
writeLines(qualityReport, paste0(tempdir(), "/report.txt"))
# Read as XML
qualityReport <- read_evaluate_report(
transaction = transaction,
env = "staging"
)
qualityReport
#> {xml_document}
#>
Run the code above in your browser using DataLab