DT 固定标题冻结在 Shiny App R 的所有选项卡上

Question

这是DTR 中包的问题，适用于 Shiny 应用程序。

我注意到使用选项fixedHeader = TRUE，冻结的标题将出现在 Shiny 应用程序的所有选项卡上。这是一个说明问题的示例。只需转到“Tab2”并向下滚动，“Tab1”中的标题应该可见（不需要）。我希望标题只出现在“Tab1”上。

library(shiny)
library(DT)

data("volcano")

ui = shinyUI(navbarPage(title = 'Navbar',
  tabPanel('Table',
           fluidPage(
             fluidRow(
               column(width = 12,
                      DT::dataTableOutput('table'))
               )
           )
  ),

  tabPanel('Tab2',
           fluidPage(
             fluidRow(
               column(width = 4,
                      style = "height:1500px;background-color:#f0f0f5;border-radius:6px 0px 0px 6px;
                      box-shadow:1px 1px 8px #888888")
             )
           )
  )
))

server = shinyServer(function(input, output){
  output$table <- DT::renderDataTable(
    volcano,
    extensions = c('Buttons', 'FixedHeader'),
    options = list(
      pageLength = 100,
      fixedHeader = TRUE
    )
  )
})

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