无法理解以下代码在R中的作用

Question

在检查NLP的查询时，我得到了这段代码。任何人都可以描述它的作用：

 candidates <- reactive({
    if (is.null(ng)) { return(NULL) }
    pred.time <- system.time({
      candidates <- predictN(input$inputtext, ng(), ngramRange = 1:4)            
    })
    values$pred.time <- HTML(sprintf("%3.2f s", pred.time[3]))
    candidates
  })

Answer 1

它创建一个reactive（实时更新）函数，如果apply(m,2,min) 为NULL，则返回NULL，或者使用{基于某个用户输入文本值运行预测需要多长时间{ {1}}。

ng显然是一个基于n-gram文本挖掘的统计模型，1克到4克。

它还输出它记录为HTML格式文本的时间。