我对使用名称空间在R Shiny中进行模块化是完全陌生的，我觉得它不是很直观。在下面的代码中，分为“核心应用代码”和“模块代码”，React对象iris1在核心应用代码和模块代码之间传输，用于模块代码中的几个函数。代码在调用模块服务器函数（及其定义）时使用参数。它将从一个模块返回的值赋给主服务器函数中的reactive，然后通过调用其服务器函数将该reactive传递给第二个模块。
下面的代码似乎可以工作，除了客户头（在模块代码中的myContainer函数中以CSS呈现的第二个头），它跨越几列，出现在DT表头上方）不工作。我在下面做错了什么？

编码应用编码：

library(shiny)
library(DT)

source("C:/Users/.../my_module.R") 

ui <- fluidPage(
  numericInput("number", label = "Enter sepal length multiplier:", value = 1),
  DTOutput('tbl')
)

server <- function(input, output) {
  iris1 <- reactive({
    tmp <- iris
    tmp$Sepal.Length <- tmp$Sepal.Length * input$number
    tmp
  })
  
  output$tbl <- renderDT({renderTable(iris1())})
  
  # Pass the reactive object iris1 to the module server function
  callModule(my_module_server, "myModule", iris1 = iris1)
}

shinyApp(ui, server)

模块编码（另存为 my_module.R）：

myContainer <- function() {
  htmltools::withTags(table(
    class = 'display',
    thead(
      tr(
        th(style = "border-top: none;border-bottom: none;"),
        th(colspan = 4, 'Lengths and widths',
           class = "dt-center",
           style = "border-right: solid 0.5px;border-left: solid 0.5px;border-top: solid 0.5px; background-color:#E6E6E6;"
        )
      ),
      tr(
        th(),
        lapply(names(iris1()), th)  # Access iris1 reactive object
      )
    )
  ))
}

renderTable <- function(data) {
  datatable(
    data,
    container = myContainer(),
    options = list(lengthChange = FALSE)
  )
}

my_module_ui <- function(id) {
  ns <- NS(id)
  DTOutput(ns("tbl"))
}

my_module_server <- function(input, output, session, iris1) {
  output$tbl <- renderDT({
    renderTable(
      iris1()  # Access iris1 reactive object
    )
  })
}