Get Global Options for Chunk Templates

Usage

get_chunk_template_defaults(variant = 1)

Arguments

variant: Positive integer.

Value

List with options in R

Examples

get_chunk_template_defaults()
#>   .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}_ by _{tolower(.variable_label_prefix_indep)}_. `{{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_prop_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(ggobj = {.obj_name})\n```\n\n_{.variable_label_prefix_dep}_. `{{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_prop_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(ggobj = {.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