20250408 - use apa() function

isaactpetersen · isaactpetersen · commit 8c597b8a01b0 · 2025-04-08T10:50:28.000-05:00
diff --git a/R/pValues.R b/R/pValues.R
@@ -25,7 +25,10 @@ pValue <- function(value, digits = 3){
   if(value < .001){
     newValue <- "< .001"
   } else {
-    newValue <- paste("=", suppressLeadingZero(specify_decimal(value, digits)), sep = "")
+    newValue <- paste(
+      "=",
+      apa(value, decimals = digits, leading = FALSE),
+      sep = "")
   }
   return(newValue)
 }

Original file line number	Diff line number	Diff line change
`@@ -25,7 +25,10 @@ pValue <- function(value, digits = 3){`
`25`	`25`	`if(value < .001){`
`26`	`26`	`newValue <- "< .001"`
`27`	`27`	`} else {`
`28`		`- newValue <- paste("=", suppressLeadingZero(specify_decimal(value, digits)), sep = "")`
	`28`	`+ newValue <- paste(`
	`29`	`+ "=",`
	`30`	`+ apa(value, decimals = digits, leading = FALSE),`
	`31`	`+ sep = "")`
`29`	`32`	`}`
`30`	`33`	`return(newValue)`
`31`	`34`	`}`