#' Concatenates any errors from nprcgenekeeprErr into narrative form
#'
## Copyright(c) 2017-2020 R. Mark Sharp
## This file is part of nprcgenekeepr
#' @return Error from nprcgenekeepr
#'
#' @param txt character string with initial error description value
#' @param err ve from errorLst
#' @param singularTxt character string with text used when the
#' length of err is 1
#' @param pluralTxt character string with text used when the
#' length of err is greater than 1.
#' @importFrom stringi stri_c stri_detect_fixed
addErrTxt <- function(txt, err, singularTxt, pluralTxt) {
if (length(err) == 1) {
if (stri_detect_fixed(err, "and")) {
txt <- stri_c(txt, pluralTxt, ": ", err, ".\n")
} else {
txt <- stri_c(txt, singularTxt, ": ", err, ".\n")
}
} else if (length(err) > 1) {
if (length(err) > 5)
err <- err[1:5]
txt <- stri_c(txt, pluralTxt, ": ",
get_and_or_list(err), ".\n")
}
txt
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.