相关疑难解决方法(0)

我正在构建一个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, …

我是新手,shiny但想知道是否有任何方法可以在对象中存储过滤的数据表(使用列过滤器),R以便可以将此过滤后的数据传递给直方图和绘图函数.

编辑5月7日,15日:包括作者对评论的扩展解释

我希望使用内置列过滤器对表进行过滤,然后希望绘图自动调整.我已经尝试过DT软件包,但是我不喜欢这个软件包附带的很多列过滤器,因为我不想(我认为)从表中的一个子列中删除过滤器