fix inconsistency in message style

Author: malcolmbarrett

R/tip_with_binary.R

@@ -225,7 +225,7 @@ tip_with_binary_one <- function(b,
 
     } else {
       message_cli(c(
-        "The observed effect ({round(o$effect_observed, 2)}) WOULD \\
+        "i" = "The observed effect ({round(o$effect_observed, 2)}) WOULD \\
         be tipped by {round(o$n_unmeasured_confounders)} \\
         unmeasured confounder{ifelse(o$n_unmeasured_confounders > 1, 's', '')} \\
         with the following specifications:",

README.md

@@ -203,8 +203,8 @@ tip_with_binary(effect_observed = 1.09,
                 unexposed_confounder_prev = 0.10)
 ```
 
-    ## The observed effect (1.09) WOULD be tipped by 1 unmeasured confounder with the
-    ## following specifications:
+    ## ℹ The observed effect (1.09) WOULD be tipped by 1 unmeasured confounder with
+    ##   the following specifications:
     ## • estimated prevalence of the unmeasured confounder in the exposed population:
     ##   0.25
     ## • estimated prevalence of the unmeasured confounder in the unexposed