fix indentation

Author: gogonzo

R/tm_g_distribution.R

@@ -1274,7 +1274,7 @@ srv_distribution <- function(id,
       q_common <- common_q()
       teal.reporter::teal_card(q_common) <- c(
         teal.reporter::teal_card(q_common),
-        "## Statistics table"
+        "### Statistics table"
       )
       if (iv_r()$is_valid()) {
         within(q_common, {
@@ -1294,7 +1294,7 @@ srv_distribution <- function(id,
       q_common <- common_q()
       teal.reporter::teal_card(q_common) <- c(
         teal.reporter::teal_card(q_common),
-        "## Distribution Tests table"
+        "### Distribution Tests table"
       )
       if (inherits(test_q_out, c("try-error", "error"))) {
         within(

R/tm_t_crosstable.R

@@ -386,7 +386,7 @@ srv_t_crosstable <- function(id, data, label, x, y, remove_zero_columns, basic_t
       )
 
       obj <- merged$anl_q_r()
-      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "# Table")
+      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "### Table")
       obj <- teal.code::eval_code(
         obj,
         substitute(