I would like all values to be rounded to 1 decimal place in em_means, and the 95% CI to be dipslayed using pairwise difference in the following code - this is still displaying fully rounded numbers for em_means & no 95% CI (just SE) for pairwise_diff

em_means <- emmeans(ComPAS_MUAC115_LinearGrowth_ForAnalysis_completecases_2.1, specs = ~ control_str2, digits=1)
# Calculate pairwise differences between groups
pairwise_diff <- pairs(em_means, conf.level=0.95, digits=1)
# Display the estimated means and pairwise differences
print(em_means)
print(pairwise_diff)