[英]Is there a way in R shiny to concatenate all values taken by an input
我的问题很基本。
INPUT : 键盘上的任意键 (input$mydata)
SERVER :注册 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()
})
}
))
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.