p-value formatting

format_pval.R

library(stringr)
library(dplyr)

drop_leading0 <- function(x) {
  str_replace(x, "\\b0+\\.(?=[0-9])", ".")
}

format_pval <- function(x, eps = 0.001, digits = 2, drop = TRUE) {
  ret <- if_else(
    x < eps,
    str_c("<",as.character(eps)),
    formatC(x, digits = digits, format = "f")
  )
  if (drop) {
    ret <- drop_leading0(ret)
  }
  ret
}

Simple function to format p-values (truncate at a lower value, and drop leading 0's).