代码之家 › 专栏 › 技术社区 › SJB

冻结数据表中的页眉和页脚-闪亮

shinyjs shiny r

2

SJB · 技术社区 · 7 年前

我想冻结闪亮应用程序中数据表的页眉和页脚。我已经研究并发现了这个链接 https://datatables.net/examples/basic_init/scroll_xy.html .但当我包含上面链接中的脚本时,数据表不会冻结。请帮我解决这个问题。

library(shiny)
library(shinydashboard)

ui <- dashboardPage(skin = "black",
                    dashboardHeader(title = "test"),
                    dashboardSidebar(
                      sidebarMenu(
                        menuItem("Complete", tabName = "comp"))),
                    dashboardBody(useShinyjs(),
                      tabItems(
                        tabItem(tabName = "comp",
                                  fluidRow(
                                    box(title = "data", width = 12, solidHeader = TRUE, status = "primary", 
                                        collapsible = TRUE, dataTableOutput("tbe")))))))

server <- function(input, output, session) { 

  output$tbe <- renderDataTable(mtcars)

  observe({
    runjs("
          $(document).ready(function() {
          $('#DataTables_Table_0').DataTable( {
          \"scrollY\": 200,
          \"scrollX\": true
          } );
          } );

          ")

          })

}
shinyApp(ui, server)

谢谢, 上海交大。

1 回复 | 直到 7 年前

1

4

GyD 7 年前

不需要包括 jquery ,而是使用 选项 参数:

scrollx :a boolean( true or false )


    
     
      
       
        scrolly
        
         :像素数或任何其他有效的
         
          css
          
           units。
          
         
        
       
      
      
       
        
         
          
           代码:
          
          output$tbe<-rendertatable(mtcars,options=list(scrollx=true,scrolly=“200px”))
输出:


:布尔值(TRUE或FALSE)
scrollY:像素数或任何其他有效的CSS单位。

         
         
          
           
            代码:
           
           output$tbe <- renderDataTable(mtcars, options = list(scrollX = TRUE, scrollY = "200px"))

           
            输出: