r - 在正文末尾运行脚本

Question

在闪亮的情况下，我们如何在正文标签的末尾运行脚本？在 Web 编程世界中，HTML 从上到下加载。头部首先加载，然后是身体，然后是身体内的所有东西。如果我们将 JavaScript 链接放在 head 部分，整个 JavaScript 文件将在加载任何可能导致一些问题的 HTML 之前加载，因此我想了解如何将脚本放在 body 标记的末尾。

library(shiny)
library(shinydashboard)

jscode <- "
  window.close();
"

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    actionButton("close", "Close app"),
    tags$script(
      "Shiny.addCustomMessageHandler('closeWindow', function(data) {
       eval(data.message)
      });"
    )
  ) 
)

server = function(input, output, session) {
  observeEvent(input$close, {
    
    session$sendCustomMessage(type = "closeWindow", list(message = jscode))

  })
}

runApp(list(ui = ui, server = server), launch.browser =T)

标签： rshiny