R閃亮的數據過濾器框大小以縮小看到文本

Question

我正在構建一個R閃亮的儀表板，當我使用DT包和renderdatatable（）將我的數據放在表中。在每列的頂部，我有過濾器，搜索框太窄而無法看到文本並選擇一個選項。以下是圖像：

有誰知道的方式來增加寬度？

這是我在server.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')) 

這裏是在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%"))))) 

我嘗試這樣做，但它沒有工作：

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

A similar question was answered here.

此外，爲了to use range sliders to filter rows within ranges，請考慮使用as.Date()將「日期列表」列轉換爲日期格式。

input { 
    width: 100px !important; 
} 

您也可以應用這種風格只factor過濾器：

Answer 2

我使用CSS來解決這個問題

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

把my.css文件中www子目錄，並鏈接到它：

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

     DT::dataTableOutput(...) 
    )