inst/tag/shiny/pages/script.r

In wrathematics/TAG: Text Analytics Gateway

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.

HOWEVER, this feature is currently very experimental and should not be
considered fully implemented.

```r 
", paste0(localstate$call, collapse="\n"), 
"\n```")
  
  unclass(markdown::markdownToHTML(text=code, fragment.only=TRUE))
}