gpt4 book ai didi

javascript - R Shiny 键和 actionButton 绑定(bind)到 react 值

转载 作者:行者123 更新时间:2023-11-29 17:50:19 25 4
gpt4 key购买 nike

<分区>

我正在尝试制作一个 Shiny 的应用程序,用户可以在其中使用按钮或按键操作 reactiveValues。因此,一个最小的示例是使用 Up/Down actionButton 或 U/D 键来增加或减少计数器。用户应该能够使用按键,而无需先点击屏幕上的任何地方。

基于 SO 上的示例(Using enter key with action button in R ShinyShiny Responds to EnterR Shiny key input binding),我想出了下面的脚本。但是,它对 U/D 键根本没有反应。按钮按预期工作。单击按钮后,它会有点“卡住”,我可以使用 Enter 或 Space 键重复单击按钮,但 U/D 键仍然无效。知道哪里出了问题吗?

这是我写的代码:

library(shiny)
shinyApp(ui <- pageWithSidebar(
headerPanel("Test keyboard control"),
sidebarPanel(
tags$script(
'tags$head(
$(document).keydown(function(e)){
if (e.keyCode == 85) {
$("#upButton").click();
} else if (e.keyCode == 68) {
$("#downButton").click();
}
});'
),
actionButton("downButton", "Down"),
actionButton("upButton", "Up")
),
mainPanel(htmlOutput("text"))
),

server <- function(session, input, output) {
vals <- reactiveValues(count = 0)

observeEvent(input$downButton, {vals$count <- vals$count - 1})
observeEvent(input$upButton, {vals$count <- vals$count + 1})

output$text <- renderText(paste("Counter is:", vals$count))
}
)

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com