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

时间:2017-11-10 03:29:49

标签: r shiny shinyjs

在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")})

我似乎使用输入字段,但不使用按钮。

1 个答案:

答案 0 :(得分:0)

这不是使用Shiny.onInputChange的方式。以下是一个例子。或者,您可以使用@ {amrrs&#39;中提出的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