Добавьте JavaScript в ваш блестящий модуль

Question

Фон

Я хочу включить некоторые JavaScript в мой блестящий модуль, но независимо от того, что я пробовал, сценарий Java не появляется в конечном приложении.Что я делаю не так?

Код

library(shiny)

moduleUI <- function(id) {
   ns <- NS(id)
   js <- 'window.alert("fired from within the module");'
   tags$body(tags$script(HTML(js))) ## does not work
   tags$head(tags$script(HTML(js))) ## does not work either
   div("I am the only element")
}


module <- function(input, output, session) {
}

ui <- fluidPage(
   moduleUI("test"),
   tags$body(tags$script(HTML('window.alert("fired from the main");')))
)

server <- function(input, output, session) {
   handle <- callModule(module, "test")
}

shinyApp(ui = ui, server = server)

Answer 1

Попробуйте, так как я думаю, что вы определили сценарий, но вы не прикрепили его к любому элементу HTML

moduleUI <- function(id) {
  ns <- NS(id)
  js <- 'window.alert("fired from within the module");'
  #tags$body(tags$script(HTML(js))) ## does not work
  #tags$head(tags$script(HTML(js))) ## does not work either
  div(tags$head(tags$script(HTML(js))) ,"I am the only element")
}