inst/tag/shiny/pages/explore/zipf.r

In wrathematics/TAG: Text Analytics Gateway

output$explore_zipf <- renderUI(
  verticalLayout(
    show_plotnote_message,
    renderPlot(
      withProgress(message='Rendering plot...', value=0,
      {
        must_have("corpus")
        
        update_secondary()
        
        tm::Zipf_plot(localstate$tdm)
      })
    ),
    
    render_helpfile("Explore Zipf's Law", "explore/plot_zipf.md")
  )
)