<commit_before>output$main_script <- renderUI({
  mainPanel(
    verticalLayout(
      renderUI(
        HTML(get_callscript())
      )
    )
  )
})


get_callscript <- function()
{
  code <- paste0(
"# TAG Script
This script is roughly what is run underneath TAG as you perform your
analysis.  The goal is to be able to enhance reproducibility, and
so that you can just re-run an analysis script if a small change is
needed, rather than remember what you clicked and in what order, etc.
<commit_msg>script page wording<commit_after>output$main_script <- renderUI({
  mainPanel(
    verticalLayout(
      renderUI(
        HTML(get_callscript())
      )
    )
  )
})


get_callscript <- function()
{
  code <- paste0(
"# TAG Script
This script is roughly what is run underneath TAG as you perform your
analysis.  The goal is to be able to enhance reproducibility, help
you learn R, and speed up making minor changes to an analysis.

{'fraction_non_alphanumeric': 0.07510729613733906, 'fraction_numerical': 0.002145922746781116, 'mean_word_length': 3.3194444444444446, 'pattern_counts': {'":': 0, '<': 9, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '2108663', 'n_tokens_mistral': 281, 'n_tokens_neox': 260, 'n_words': 112}