R/report_p.R

In thealk/thear: Misc functions used for my dissertation

#' Report pvals in RMarkdown
#' @export

report_p <- function(x){
  return(ifelse(x<0.001,
                "< .001",
                paste0("= ",round(x,3),1)
                # APAstyler is now deprecated
                #paste0("= ",APAstyler::snip(round(x,3),1))
                #scales::pvalue(x,add_p = TRUE),1)))
                #paste0("= ",as.character(round(x,3)))
  ))
}