# Reduce redundant calls to the same service - this only needs to be made
# once per test
cnProd <- NULL
cnStaging <- NULL
d1cKNB <- NULL
mnKNB <- NULL
d1cProd <- NULL
d1cTestKNB <- NULL
d1cTest <- NULL
mnTest <- NULL
servicesDown <- FALSE
# Define service variables that the checks will use.
# If a service is down, skip tests
tryCatch({
cnProd <- CNode()
cnStaging <- CNode("STAGING")
d1cKNB <- D1Client("PROD", "urn:node:KNB")
mnKNB <- d1cKNB@mn
d1cProd <- D1Client("PROD")
d1cTestKNB <- D1Client("STAGING", "urn:node:mnTestKNB")
# If mnStageUCSB2 isn't available for write tests, use mnTestKNB
#d1cTest <- D1Client("STAGING", "urn:node:mnStageUCSB2")
d1cTest <- d1cTestKNB
mnTest <- d1cTestKNB@mn
}, warning = function(wrn) {
servicesDown <<- TRUE
}, error = function(err) {
servicesDown <<- TRUE
})
if(is.null(cnProd)) servicesDown <- TRUE
if(is.null(cnStaging)) servicesDown <- TRUE
if(is.null(d1cKNB)) servicesDown <- TRUE
if(is.null(mnKNB)) servicesDown <- TRUE
if(is.null(d1cProd)) servicesDown <- TRUE
if(is.null(d1cTestKNB)) servicesDown <- TRUE
if(is.null(d1cTest)) servicesDown <- TRUE
if(is.null(mnTest)) servicesDown <- TRUE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.