Javascript sendCustomMessage在actionButton中无法正常工作(闪亮)
我正在测试脚本,请参见Pattern 1-Command一节 如果要按下按钮,请单击网站上的“我”,以便一切正常-我们可以看到弹出菜单 但如果要将示例脚本复制到新的.R文件中并运行它,则不会出现弹出消息,也不会生成警告或错误消息。我的浏览器是Google Chrome。所以我被它拖了 示例脚本:Javascript sendCustomMessage在actionButton中无法正常工作(闪亮),javascript,shiny,Javascript,Shiny,我正在测试脚本,请参见Pattern 1-Command一节 如果要按下按钮,请单击网站上的“我”,以便一切正常-我们可以看到弹出菜单 但如果要将示例脚本复制到新的.R文件中并运行它,则不会出现弹出消息,也不会生成警告或错误消息。我的浏览器是Google Chrome。所以我被它拖了 示例脚本: 这应该行得通,我给出了两个弹出警报示例 1具有标准js警报 这应该行得通,我给出了两个弹出警报示例 1具有标准js警报 谢谢。你帮了我很多忙!两种选择都很酷!谢谢。你帮了我很多忙!两种选择都很酷! li
这应该行得通,我给出了两个弹出警报示例 1具有标准js警报
这应该行得通,我给出了两个弹出警报示例 1具有标准js警报
谢谢。你帮了我很多忙!两种选择都很酷!谢谢。你帮了我很多忙!两种选择都很酷!
library(shiny)
ui <- fluidPage(
tags$head(tags$script(src = "message-handler.js")),
actionButton("do", "Click Me")
)
server <- function(input, output, session) {
observeEvent(input$do, {
session$sendCustomMessage(type = 'testmessage',
message = 'Thank you for clicking')
})
}
shinyApp(ui, server)
rm(list = ls())
library(shiny)
ui <- fluidPage(
tags$head(tags$script(HTML('Shiny.addCustomMessageHandler("jsCode",function(message) {eval(message.value);});'))),
actionButton("do", "Click Me")
)
server <- function(input, output, session) {
observeEvent(input$do, {
js_string <- 'alert("Thank you for clicking");'
session$sendCustomMessage(type='jsCode', list(value = js_string))
})
}
shinyApp(ui, server)
rm(list = ls())
library(shiny)
library(shinyBS)
ui <- fluidPage(
tags$script(HTML('Shiny.addCustomMessageHandler("jsCode",function(message) {eval(message.value);});')),
bsModal("ThankYou", "Message", "",tags$p(tags$h1("Thank you for clicking", style = "color:red", align = "center")), size = "small"),
actionButton("do", "Click Me")
)
server <- function(input, output, session) {
observeEvent(input$do, {
activate_modal <- "$('#ThankYou').modal('show')"
session$sendCustomMessage(type='jsCode', list(value = activate_modal))
})
}
shinyApp(ui, server)