Remove diversity formatting

Author: ahmig

template.qmd

@@ -175,7 +175,7 @@ from the context dataset. The distribution of the nuclotide diversity is assumed
 `r div_values[["norm.text"]]` be normal after performing a Shapiro-Wilk test
 (p-value of $`r div_values[["normal.pvalue"]]`$).
 
-The nucleotide diversity of the target samples is $`r div_values[["diversity"]] `$ (red line in @fig-div).
+The nucleotide diversity of the target samples is $`r format(div_values[["diversity"]], scientific = TRUE) `$ (red line in @fig-div).
 Assuming the independence of the context samples, the `r div_values[["type.test"]]`
 p-value of the context samples having a nucleotide diversity (in orange in @fig-div)
 as low as that of the target dataset is $`r div_values[["p.value"]]`$.

workflow/scripts/report/diversity_data.R

@@ -91,7 +91,7 @@ pvalue.emp <- empirical.probs(diversity)
 log_info("Building JSON data")
 p.value <- ifelse(st$p.value >= 0.05, pvalue.norm, pvalue.emp)
 list.div <- list(
-  "diversity" = format(diversity, scientific = TRUE),
+  "diversity" = diversity,
   "p.value" = ifelse(p.value >= 0.001, p.value, "< 0.001"),
   "normal.pvalue" = ifelse(st$p.value >= 0.001, p.value, "< 0.001"),
   "norm.text" = ifelse(st$p.value >= 0.05, "", "not"),