Реализация 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.