extension - render table shiny

R Shiny, eliminar los filtros dentro de la columna de DataTables

Question

[también publicado en Shiny Google Group]

Estoy encontrando algún comportamiento inesperado (creo) cuando intento mostrar una tabla de datos. Cuando visualizo la tabla, mi objetivo es eliminar la mayoría de las opciones de clasificación / paginación / filtro / procesamiento. Hasta el momento ajuste bSort = 0, bProcessing = 0, bPaginate = 0, bInfo = 0 parece producir los resultados deseados. Sin embargo, cuando configuro bFilter = 0, solo se quita el cuadro de filtro "global" en la esquina superior derecha; los cuadros de filtro dentro de la columna permanecen (esperaba bFilter = 0 para eliminar todos los cuadros de filtro).

¿Alguien puede ayudar con el código para eliminar los cuadros de filtro dentro de la columna (por favor y gracias). [Además, conozco las opciones de formato específicas de la columna, pero hasta ahora no he podido implementarlas con éxito para eliminar los formatos dentro de la columna]. He incluido el código mínimo a continuación para reproducir el problema:

shinyUI(pageWithSidebar(

  #my code has a header panel;
  headerPanel("Table Example"),

  #my code has a sidebar panel;
  sidebarPanel(helpText("Stuff Here")),

  #table is displayed in the main panel;
  mainPanel(dataTableOutput("myTable"))
))


shinyServer(function(input, output) {

  #example dataTable that produces undesired result;
  output$myTable <- renderDataTable({
    as.data.frame(matrix(sample(1:10,100,replace=TRUE),nrow=20,ncol=10))
  }, options = list(bFilter=0, bSort=0, bProcessing=0, bPaginate=0, bInfo=0))

})

[El comportamiento aparece tanto en el servidor como a nivel local. Brillante 0.7.0.99. Usando Google Chrome]

¡Gracias por adelantado!

Answer 1

La solución fue simplemente editar el css asociado con el objeto de salida myTable:

Es decir, cambio:

mainPanel(dataTableOutput("myTable"))

a

mainPanel(
  dataTableOutput("myTable"),
  tags$style(type="text/css", ''#myTable tfoot {display:none;}'')
)