R 闪亮：在闪亮的应用程序中添加科乐美代码

Question

你好！

我想知道如何在任何 R 闪亮应用程序中“轻松”实现 Konami 代码

输入（来自 R 闪亮应用程序页面上的用户键盘）
向上、向上、向下、向下、向左、向右、向左、向右、B、A 箭头

输出
- 在仪表板上添加有趣的图像
（ - 更改应用程序的颜色）

Answer 1

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

ismirsehregal 在我找到的代码上帮助我
在 R 中是否有一种方法可以连接输入采用的所有值

我的最终代码合并了所有提示：

UI.R（体内）

          tags$script('
                   pressedKeyCount = 0;
                      $(document).on("keydown", function (e) {
                      Shiny.onInputChange("pressedKey", pressedKeyCount++);
                      Shiny.onInputChange("pressedKeyId", e.which);
                      });'
            ),

SERVER.R（某处）

keysPressed <- reactiveVal()

observeEvent(input$pressedKey, {
  keysPressed(c(keysPressed(), input$pressedKeyId))
})

output$secret <- renderUI({
  secretCode = keysPressed()
  if(length(secretCode)>=10)
  secretCode = secretCode[(length(secretCode)-9):length(secretCode)]
  trueCode = c(38,38,40,40,37,39,37,39,66,65)
  if(isTRUE(all.equal(secretCode,trueCode))){
    HTML('<center><img src="4BA140A6A75546D791B01BC0BA9E00A2.png"></center>')
    }
})

c(38,38,40,40,37,39,37,39,66,65) 对应著名的konami代码顺序键输入