在R shiny中是否有一个R函数来绘制词干和显示汇总表

library(shiny)
library(wordcloud2)
library(DT)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      # 输入文本数据
      textAreaInput("text", "输入文本数据", rows = 5),
      actionButton("generate", "生成词云图")
    ),
    mainPanel(
      # 显示词云图
      wordcloud2Output("wordcloud"),
      # 显示汇总表
      DT::dataTableOutput("summary_table")
    )
  )
)

server <- function(input, output) {
  # 生成词云图
  observeEvent(input$generate, {
    text <- input$text
    if (!is.null(text) && nchar(text) > 0) {
      wordcloud_data <- data.frame(word = strsplit(text, "\\s+")[[1]])
      output$wordcloud <- renderWordcloud2({
        wordcloud2(wordcloud_data)
      })
    }
  })
  
  # 显示汇总表
  output$summary_table <- DT::renderDataTable({
    text <- input$text
    if (!is.null(text) && nchar(text) > 0) {
      summary_data <- data.frame(word = strsplit(text, "\\s+")[[1]])
      datatable(summary_data)
    }
  })
}

shinyApp(ui, server)