From 5f00d3fd2cca7cb50895b053c998eba0da501758 Mon Sep 17 00:00:00 2001 From: egouldo Date: Wed, 4 Sep 2024 20:09:31 +1000 Subject: [PATCH] bug: fix sci formatting in A.2 #65 --- supp_mat/SM1_summary.qmd | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/supp_mat/SM1_summary.qmd b/supp_mat/SM1_summary.qmd index ded09c2..4a8940e 100644 --- a/supp_mat/SM1_summary.qmd +++ b/supp_mat/SM1_summary.qmd @@ -124,7 +124,17 @@ Table2 %>% gt::gt(rowname_col = "subset") %>% gt::row_group_order(groups = c("fixed", "random", "interactions", "*N*")) %>% gt::tab_spanner_delim(delim = ".") %>% - gt::fmt_scientific(columns = c(contains("mean"), contains("SD")), + gt::fmt_scientific(columns = "mean.blue tit", + rows = `mean.blue tit` < 0.01, + decimals = 2) %>% + gt::fmt_scientific(columns = "SD.blue tit", + rows = `SD.blue tit` < 0.01, + decimals = 2) %>% + gt::fmt_scientific(columns = "mean.eucalyptus", + rows = `mean.eucalyptus` < 0.01, + decimals = 2) %>% + gt::fmt_scientific(columns = "SD.eucalyptus", + rows = `SD.eucalyptus` < 0.01, decimals = 2) %>% gt::cols_label_with(fn = Hmisc::capitalize) %>% gt::tab_style(