使用Shiny.OnInputChange -R Shiny收听按钮事件

Question

在index.html中监听由按钮生成的事件的正确方式是什么？？在index.html中：

< button class='btn btn-primary btn-custom w-md waves-effect waves-light' id='.loginButton' style='width: 20%' type='button' onclick='myFucntion()'>Log In< /button>

      <script type = 'text/javascript'>
function myFunction() {
    document.getElementById('.loginButton').style.color = 'red';
Shiny.onInputChange('.loginButton',1)
}</script>

在server.R中：

  observeEvent(input$.loginButton,{print("YEAH")})

我似乎是在使用输入域，但不是按钮。

Answer 1

这不是使用Shiny.onInputChange的方式。下面是一个例子。或者，您也可以使用@amrrs的评论中建议的shinyjs包。

library(shiny)

jscode <- '
$("#loginbutton").on("click", function(){
  Shiny.onInputChange("buttonClicked", Math.random());
})
'

ui <- fluidPage(
  actionButton("loginbutton", "Login"),
  singleton(tags$script(HTML(jscode)))
)

server <- function(input, output){
  observeEvent(input$buttonClicked, {
    print("YEAH")
  })
}

shinyApp(ui = ui, server = server)

JS代码说明:点击按钮时，input$buttonClicked取值为Math.random()。

有关Shiny.onInputChange的更多信息，请参阅https://deanattali.com/blog/advanced-shiny-tips/#message-javascript-r。