Kmeans在Shiny中的实现

Question

我有一个对文本数据进行kmeans处理的代码。它有大约160行代码。我的主要目标是使用用户提供的数据查询数据库，然后对这些文本kmeans进行操作。

用户查询的数据表输出正常。现在，我想将代码重写为闪亮的。

# Here is the data that is provided by the query
query <- reactive({
    query <- get_sql_query(input$key)
    query_data <- dbGetQuery(con, query)
  })

  word_extract <- function(x) unlist(strsplit(x, "[[:space:]]|(?=[.!?*-])", perl = TRUE))

eng.reviews <- reactive({
      data <- query()
      data <- as.data.frame(data)
      eng.reviews <- data[,3]
    })

eng.reviews.list <- reactive({
    eng.reviews <- eng.reviews()
    eng.reviews.list <- list()
    for (i in 1:nrow(eng.reviews)) {
      z <- word_extract(tolower(as.character(eng.reviews[i,1])))
      eng.reviews.list[[i]] <- z
    }
  })

在这种情况下，我可以使用反应性吗？接下来，我创建了VectorSource，Corpus，tm_map，DocumentTermMatrix，dist.matrix.jaccard，但我在一个代码片段中执行了此操作，但在Shiny中不起作用。