使用参数Passing从Rshiny调用javascript函数

Question

我想从Rshiny.But调用javascript函数无法做到这一点。 这是我的剧本。

Serevr.R

fluidRow(
        tags$input(id=paste(change_actionButton,"-ID",sep=""),type="button", 
                    class="btn  mubuttn action-button btn-large btn-primary", 
                    HTML('Change'),onClick="dis('"+name+"')"))

      )

event.js
function dis(name){
alert(name)
}

我想传递名称，这是来自 R.Tell 的变量我如何将名称发送到 event.js