formatstyle - r datatable extension

R tamaño de la caja de filtro datatable para estrechar para ver el texto

Question

Estoy construyendo un tablero brillante R y cuando coloco mis datos en una tabla usando el paquete DT y renderdatatable (). En la parte superior de cada columna, tengo filtros, el cuadro de búsqueda es demasiado estrecho para ver el texto y seleccionar una opción. Aquí hay una imagen:

¿Alguien sabe de una manera de aumentar el ancho?

Aquí está mi código para el código de tabla de datos en el servidor.r:

  output$table <- DT::renderDataTable(DT::datatable({    
    data <- rv$data
    if (input$sour != "All") {
      data <- data[data[,1] == input$sour,]
    }else{data}
    if (input$sour1 != "All") {
      data <-data[data[,2] == input$sour1,]
    }else{data}
    if (input$tran != "All") {
      data <-data[data[,3] == input$tran,]
    }else{data}
  },filter=''top''))

aquí está el código en el ui.r:

 tabItem(tabName = "ResultsTable",
              fluidPage(  
                headerPanel(
                  h1("List", align="center",  style = "font-family: ''Verdana'';font-weight: 800; line-height: 1.1;   color: #151515;")),
                # fluidRow(
                #     column(8, DT::dataTableOutput("table",width = "100%"),offset = 2)))),
                #                 # Create a new Row in the UI for selectInputs
                fluidRow(

                  column(4,
                         selectInput("sour",
                                     "Name:",
                                     c("All",
                                       unique(as.character(df[,1]))))
                  ),
                  column(4,
                         selectInput("sour1",
                                     "Number:",
                                     c("All",
                                       unique(as.character(df[,2]))))
                  ),
                  column(4,
                         selectInput("tran",
                                     "Code:",
                                     c("All",
                                       unique(as.character(df[,3])))))),
                # Create a new row for the table.
                fluidRow(column(11, DT::dataTableOutput("table",width = "95%")))))

Intenté esto, pero no funcionó:

 output$table <- DT::renderDataTable(DT::datatable({    
    data <- rv$data
    if (input$sour != "All") {
      data <- data[data[,1] == input$sour,]
    }else{data}
    if (input$sour1 != "All") {
      data <-data[data[,2] == input$sour1,]
    }else{data}
    if (input$tran != "All") {
      data <-data[data[,3] == input$tran,]
    }else{data}
  },filter=''top'',options = list(
    autoWidth = TRUE,
    columnDefs = list(list(width = ''200px'', targets = "_all"))
  )))

Answer 1

Resolví este problema usando CSS:

input {
    width: 100px !important;
}

También puede aplicar este estilo solo a filtros de factor :

td[data-type="factor"] input {
    width: 100px !important;
}

Coloque el archivo my.css en el subdirectorio www y vincule a él:

shinyApp(
    ui = fluidPage(
        tags$head(
            tags$link(
                rel = "stylesheet",
                type = "text/css",
                href = "my.css")
        ),

        DT::dataTableOutput(...)
    )

Answer 2

Una pregunta similar fue respondida aquí.

Además, para usar los controles deslizantes de rango para filtrar filas dentro de los rangos , considere convertir la columna "Lista de fechas" al formato de fecha usando as.Date() .