.template_name .template_variable_type_dep .template_variable_type_indep
1 cat_plot_html fct;ord fct;ord
2 cat_plot_html fct;ord <NA>
3 cat_table_html fct;ord fct;ord
4 cat_table_html fct;ord <NA>
5 chr_table chr <NA>
.template
1 \n::: {{#fig-{.chunk_name}}}\n\n```{r}\n#| fig-height: !expr fig_height_h_barchart(n_y={.n_dep}, n_cats_y={.n_cats_dep}, max_chars_y={.max_chars_dep}, n_x={.n_indep}, n_cats_x={.n_cats_indep}, max_chars_x={.max_chars_indep})\n{.obj_name} <- \n\tdata_{.chapter_foldername} |>\n\t\tmakeme(dep = c({.variable_name_dep}), \n\t\tindep = c({.variable_name_indep}), \n\t\ttype = 'cat_plot_html')\nnrange <- stringi::stri_c('N = ', n_range2({.obj_name}))\nlink <- make_link(data = {.obj_name}$data)\nlink_plot <- make_link(data = {.obj_name}, \n\t\tfile_suffix = '.png', link_prefix='[PNG](', \n\t\tsave_fn = ggsaver)\nx <- I(paste0(c(nrange, link, link_plot), collapse=', '))\ngirafe(ggobj = {.obj_name})\n```\n\n_{.variable_label_prefix_dep}_ by _{tolower(.variable_label_prefix_indep)}_. `{r} x`.\n\n:::\n\n\n
2 \n::: {{#fig-{.chunk_name}}}\n\n```{r}\n#| fig-height: !expr fig_height_h_barchart(n_y={.n_dep}, n_cats_y={.n_cats_dep}, max_chars_y={.max_chars_dep})\n{.obj_name} <- \n\tdata_{.chapter_foldername} |>\n\t\tmakeme(dep = c({.variable_name_dep}), \n\t\ttype = 'cat_plot_html')\nnrange <- stringi::stri_c('N = ', n_range2({.obj_name}))\nlink <- make_link(data = {.obj_name}$data)\nlink_plot <- make_link(data = {.obj_name}, \n\t\tfile_suffix = '.png', link_prefix='[PNG](', \n\t\tsave_fn = ggsaver)\nx <- I(paste0(c(nrange, link, link_plot), collapse=', '))\ngirafe(ggobj = {.obj_name})\n```\n\n_{.variable_label_prefix_dep}_. `{r} x`.\n\n:::\n\n
3 \n::: {{#tbl-{.chunk_name}}}\n\n```{r}\n{.obj_name} <- \n\tdata_{.chapter_foldername} |>\n\t\tmakeme(dep = c({.variable_name_dep}), \n\t\tindep = c({.variable_name_indep}), \n\t\ttype = 'cat_table_html')\nnrange <- stringi::stri_c('N = ', n_range(data = data_{.chapter_foldername}, \n\tdep = c({.variable_name_dep}), \n\tindep = c({.variable_name_indep})))\nlink <- make_link(data={.obj_name})\nx <- I(paste0(c(nrange, link), collapse=', '))\ngt({.obj_name})\n```\n\n_{.variable_label_prefix_dep}_ by _{tolower(.variable_label_prefix_indep)}_. `{r} x`.\n\n:::\n\n\n
4 \n::: {{#tbl-{.chunk_name}}}\n\n```{r}\n{.obj_name} <- \n\tdata_{.chapter_foldername} |>\n\t\tmakeme(dep = c({.variable_name_dep}), \n\t\ttype = 'cat_table_html')\nnrange <- stringi::stri_c('N = ', n_range(data = data_{.chapter_foldername}, \n\t\tdep = c({.variable_name_dep})))\nlink <- make_link(data={.obj_name})\nx <- I(paste0(c(nrange, link), collapse=', '))\ngt({.obj_name})\n```\n\n_{.variable_label_prefix_dep}_. N=`{r} x`.\n\n:::\n\n\n
5 \n::: {{#tbl-{.chunk_name}}}\n\n```{r}\n{.obj_name} <- \n\tmakeme(data = data_{.chapter_foldername}, \n\t\tdep = c({.variable_name_dep}), \n\t\ttype = 'chr_table_html')\ngt({.obj_name})\n```\n\n_{.variable_label_prefix_dep}_.\n\n:::\n\n\n