output$main_explore <- renderUI({
mainPanel(id="exploretabs_plot",
tabsetPanel(
tabPanel("Summary", uiOutput("explore_summary")),
tabPanel("Search", uiOutput("explore_termsearch")),
tabPanel("Top 10", uiOutput("explore_top10")),
# tabPanel("Correlation", uiOutput("explore_wordcorr")),
tabPanel("Dispersion", uiOutput("explore_dispersionplot")),
tabPanel("Zipf", uiOutput("explore_zipf")),
tabPanel("Wordcloud", uiOutput("explore_wordcloud"))
)
)
})
show_plotnote_message <- renderUI({
must_have("corpus", silent=TRUE)
plotnote
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.