## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(EDIutils)

## ----eval=FALSE---------------------------------------------------------------
#  # Interactively at the console
#  login()
#  #> User name: "my_name"
#  #> User password: "my_secret"
#  
#  # Programmatically with function arguments
#  login(userId = "my_name", userPass = "my_secret")
#  
#  # Programmatically with a file containing userId and userPass arguments
#  login(config = paste0(tempdir(), "/config.txt"))

## ----eval=FALSE---------------------------------------------------------------
#  # Create reservation
#  identifier <- create_reservation(scope = "edi", env = "staging")
#  identifier
#  #> [1] 595

## ----eval=FALSE---------------------------------------------------------------
#  
#  # Evaluate data package
#  transaction <- evaluate_data_package(
#   eml = paste0(tempdir(), "/edi.595.1.xml"),
#   env = "staging")
#  transaction
#  #> [1] "evaluate_163966785813042760"
#  
#  # Check status
#  status <- check_status_evaluate(transaction, env = "staging")
#  status
#  #> [1] TRUE

## ----eval=FALSE---------------------------------------------------------------
#  # 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

## ----eval=FALSE---------------------------------------------------------------
#  # Read the evaluation report
#  report <- read_evaluate_report(transaction, as = "char", env = "staging")
#  message(report)
#  #> ===================================================
#  #>   EVALUATION REPORT
#  #> ===================================================
#  #>
#  #> PackageId: edi.595.1
#  #> Report Date/Time: 2021-12-16T08:17:40
#  #> Total Quality Checks: 29
#  #> Valid: 21
#  #> Info: 8
#  #> Warn: 0
#  #> Error: 0
#  #>
#  #> ---------------------------------------------------
#  #>   DATASET REPORT
#  #> ---------------------------------------------------
#  #>
#  #> IDENTIFIER: packageIdPattern
#  #> NAME: packageId pattern matches "scope.identifier.revision"
#  #> DESCRIPTION: Check against LTER requirements for scope.identifier.revision
#  #> EXPECTED: 'scope.n.m', where 'n' and 'm' are integers and 'scope' is one ...
#  #> FOUND: edi.595.1
#  #> STATUS: valid
#  #> EXPLANATION:
#  #> SUGGESTION:
#  #> REFERENCE:
#  #>
#  #> IDENTIFIER: emlVersion
#  #> NAME: EML version 2.1.0 or beyond
#  #> DESCRIPTION: Check the EML document declaration for version 2.1.0 or higher
#  #> EXPECTED: eml://ecoinformatics.org/eml-2.1.0 or higher
#  #> FOUND: https://eml.ecoinformatics.org/eml-2.2.0
#  #> STATUS: valid
#  #> EXPLANATION: Validity of this quality report is dependent on this check ...
#  #> SUGGESTION:
#  #> REFERENCE:
#  #> ...

## ----eval=FALSE---------------------------------------------------------------
#  # Create a new data package
#  transaction <- create_data_package(
#   eml = paste0(tempdir(), "/edi.595.1.xml"),
#   env = "staging")
#  transaction
#  #> [1] "create_163966765080210573__edi.595.1"
#  
#  # Check status
#  status <- check_status_create(
#   transaction = transaction,
#   env = "staging")
#  status
#  #> [1] TRUE

## ----eval=FALSE---------------------------------------------------------------
#  #' # Update data package
#  #' transaction <- update_data_package(
#  #'   eml = paste0(tempdir(), "/edi.595.2.xml"),
#  #'   env = "staging")
#  #' transaction
#  #' #> [1] "update_edi.595_163966788658131920__edi.595.2"
#  #'
#  #' # Check status
#  #' status <- check_status_update(
#  #'   transaction = transaction,
#  #'   env = "staging")
#  #' status
#  #' #> [1] TRUE