14

私は 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"))
  )))
4

3 に答える 3

7

CSSを使用してこの問題を解決しました：

input {
    width: 100px !important;
}

このスタイルをfactorフィルターのみに適用することもできます。

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(...)
    )
于 2017-05-22T10:28:20.987 に答える
4

同様の質問がここで回答されました。

また、範囲スライダーを使用して範囲内の行をフィルタリングするには、 を使用して [日付リスト] 列を日付形式に変換することを検討してas.Date()ください。

于 2016-03-23T00:55:51.360 に答える