R/utils_general.R

In openpharma/visR: Clinical Graphs and Tables Adhering to Graphical Principles

#' Internal function to format pvalues.
#' @param x Input p-value. Numeric value.
#' @noRd
.pvalformat <- function(x) {
  if (x < 0.001) {
    "<0.001"
  } else if (x > 0.999) {
    ">0.999"
  } else {
    format(round(x, 3),
      nsmall = 3,
      justify = "right",
      width = 6,
      scientific = FALSE
    )
  }
}