Freezing Header und erste Spalte mit data.table in Shiny

Question

Ich habe eine Shiny-App, die eine Datentabelle ergibt, aber ich kann nicht die erste Spalte und die Header einfrieren, so dass die Tabelle schwer zu lesen ist, wie Sie oder gehen über. Gibt es trotzdem die Scheiben einzufrieren? Ich habe versucht zu suchen, habe aber nichts gefunden.

Answer 1

Interessante Frage und jetzt dank der jüngsten Aktualisierung von Shiny zu data.tables 1.10.2 es viel einfacher ist, die verschiedenen Plug-Ins und Erweiterungen zu verwenden. Für Ihre Frage scheint die FixedHeader Erweiterung ideal. So fügen Sie diese Erweiterung müssen wir die entsprechende JavaScript und CSS Datei enthalten (siehe http://cdn.datatables.net/):

tagList(
    singleton(tags$head(tags$script(src='//cdn.datatables.net/fixedheader/2.1.2/js/dataTables.fixedHeader.min.js',type='text/javascript'))), 
    singleton(tags$head(tags$link(href='//cdn.datatables.net/fixedheader/2.1.2/css/dataTables.fixedHeader.css',rel='stylesheet',type='text/css'))) 
) 

data.tables hat eine Option initComplete, die uns einen Rückruf an, bestimmen können, sobald Tisch gezogen wird usw.

function(settings, json) { 
    new $.fn.dataTable.FixedHeader(this, { 
              left: true, 
              right: true 
              }); 
             } 

Wir werden eine modifizierte Version des iris Datensatzes verwenden einen Index und einige zufällige Daten am Ende hinzufügen, um von links nach rechts Scrollen zu zeigen:

library(shiny) 
myData <- cbind(list(index = row.names(iris)), iris 
       , rep(list(row.names(iris)), 10)) 
names(myData)[7:16] <- paste0("randomData", 1:10) 
runApp(
    list(ui = fluidPage(
    tagList(
     singleton(tags$head(tags$script(src='//cdn.datatables.net/fixedheader/2.1.2/js/dataTables.fixedHeader.min.js',type='text/javascript'))), 
     singleton(tags$head(tags$link(href='//cdn.datatables.net/fixedheader/2.1.2/css/dataTables.fixedHeader.css',rel='stylesheet',type='text/css'))) 
    ), 

    dataTableOutput("mytable") 
) 
    , server = function(input, output, session){ 
    output$mytable <- renderDataTable(myData, 
             options = list(
             pageLength = 50, 
             initComplete = I("function(settings, json){ 
              new $.fn.dataTable.FixedHeader(this, { 
              left: true, 
              right: true 
              }); 
             }") 
            ) 
    ) 
    }) 
) 

so in dem Bild können wir sehen, wir sind bis 8 und über einige Wege nach unten gescrollt, aber der Header und die erste Spalte (unsere Spalte hinzugefügt Index) sind noch sichtbar.

Answer 2

FixedHeader nicht funktioniert, gibt falsche Spaltennamen während x-Scrollen, aber FixedColumns funktioniert. Es ist aufgrund incompatibility zwischen ihnen

library(shiny) 
library(DT) 
runApp(
    list(ui = fluidPage(

    dataTableOutput("mytable") 
) 
    , server = function(input, output, session){ 
    Rows <- c(1:50) 
    for (y in 1:15){ 
     x<-y-1 
     assign(letters[x+1],runif(5, 0, 1)) 
    } 
    x <- data.frame(Rows, mget(letters[1:15]), row.names=NULL) 
    x<- x[2:15] 
    output$mytable <- renderDataTable(
     DT::datatable(x, rownames=FALSE,extensions = c('FixedColumns',"FixedHeader"), 
        options = list(dom = 't', 
            scrollX = TRUE, 
            paging=FALSE, 
            fixedHeader=TRUE, 
            fixedColumns = list(leftColumns = 1, rightColumns = 0)) 
    ) 
    ) 
    } 
) 
)