inst/shiny/babbler/server.r

In wrathematics/ngram: Fast n-Gram 'Tokenization'

library(shiny)
library(ngram)


shinyServer(function(input, output, session){
  localstate <- reactiveValues()
  localstate$ng <- NULL
  localstate$tb <- capture.output(cat("Input the text you want to process in the box on the left."))
  
  observeEvent(input$button_process, {
    ### Fit
    localstate$ng <- NULL
    invisible(gc())
    
    localstate$ng <- ngram(str=input$inputbox, n=input$the_n_in_ngram)
    out <- gsub(x=capture.output(print(localstate$ng)), pattern="\\[1\\]|\"", replacement="")
    localstate$tb <- capture.output(cat(paste0("PROCESSED:  ", out, ".")))
  })
  
  ### Inspect
  observeEvent(input$button_inspect, {
    validate(
      need(!is.null(localstate$ng), "You must first process some input text.")
    )
    
    localstate$tb <- HTML(paste(capture.output(print(localstate$ng, output="truncated")), collapse="<br/>"))
  })
  
  ### Babble
  observeEvent(input$button_babble, {
    validate(
      need(!is.null(localstate$ng), "You must first process some input text."),
      need(input$ng_seed == "" || suppressWarnings(!is.na(as.integer(input$ng_seed))), "Seed must be a number or blank.")
    )
    
    seed <- input$ng_seed
    if (seed == "")
      seed <- ngram:::getseed()
    else
      seed <- as.integer(seed)
    
    localstate$tb <- capture.output(cat(babble(ng=localstate$ng, genlen=input$babble_len, seed=seed)))
  })
  
  
  output$text <- renderUI({
    localstate$tb
  })
})