ui.R中的以下inputText
shinyUI(fluidPage(theme = "bootstrap.css",
...
tags$input(class="form-control form-control-lg", type="text", value="Here", id="inputtext", style="margin-top:15px")),
...
)
当我在输入中手动输入文本时,会正确反应。在服务器端,激活的功能如下所示:
wordsCandidates <- reactive({
if (is.null(nGrams)) { return(NULL) }
wordsCandidates <- predictWords(input$inputtext, nGrams(), numberCandidates = input$integer, ngramRange = 1:4)
wordsCandidates
})
predictWords
从UI中的输入内容提供一组预测的下一个单词。我不相信我的问题在于函数本身,因为我得到了预期的输出。当我使用与按钮单击相关联的JavaScript函数更新输入时,我的问题出现了。就像在这个GIF动画中一样(请注意,有时我会通过点击按钮来更新输入(按钮的颜色随悬停而变化)。之后我必须按空格键使预测功能起作用):
更新输入文本的Javascript函数是:
function sendValueFromTab(el) {
var newWord = ($(el).attr("id"));
var oldString = document.getElementById("inputtext").value;
document.getElementById("inputtext").value = oldString + " " + newWord;
}
有人知道为什么会出现这种反应性损失吗?