R Shiny中有没有办法将输入所取的所有值连接起来 [英] Is there a way in R shiny to concatenate all values taken by an input

问题描述

我的问题很基本.

输入:键盘上的任意键(input $ mydata)
服务器:注册在input $ data中发生的所有更改(例如在向量中)所需的输出:输入$ mydata
取的所有值的向量(例如，当注册了50个值时，向量可能会重置)

INPUT : any key on the keyboard (input$mydata)
SERVER : register all changes occuring in input$data (for instance in a vector) DESIRED OUTPUT: the vector of all values taken by input$mydata
(and maybe the vector is reset when there are for instance 50 values registered)

我尝试了很多方法，甚至是全局值，但没有任何效果...

I try many way, even global values but nothing is working...

这是显示最后一个按键输入的代码

Here is the code for displaying the last key input

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()
  })

}
))

这篇关于R Shiny中有没有办法将输入所取的所有值连接起来的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！