我的问题很基本。
INPUT：键盘上的任何键（input $ mydata）
服务器：注册input $ data中发生的所有更改（例如，在向量中）期望的输出：input $ mydata所获取的所有值
的向量（可能在以下情况下重置向量）例如注册了50个值）
我尝试了很多方法，甚至是全球价值观，但没有任何效果。
这是显示最后一个按键输入的代码
library(shiny)
runApp( list(ui = bootstrapPage(
verbatimTextOutput("results"),
verbatimTextOutput("allInputs"),
tags$script('
$(document).on("keypress", function (e) {
Shiny.onInputChange("mydata", e.which);
});
')
)
, server = function(input, output, session) {
output$results = renderPrint({
input$mydata
})
}
))
您可以将更改附加到reactiveVal：
library(shiny)
runApp( list(ui = bootstrapPage(
verbatimTextOutput("results"),
verbatimTextOutput("allInputs"),
tags$script('
$(document).on("keypress", function (e) {
Shiny.onInputChange("mydata", e.which);
});
')
)
, server = function(input, output, session) {
output$results = renderPrint({
input$mydata
})
keysPressed <- reactiveVal()
observeEvent(input$mydata, {
keysPressed(c(keysPressed(), input$mydata))
})
output$allInputs = renderPrint({
keysPressed()
})
}
))
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句