标签: dt

是否可以隐藏"显示条目"下拉列表,但将"搜索"框保留在DataTable中？我想在底部始终显示10行分页和搜索框,但不想显示"显示条目"下拉列表.

我试图在Shiny中呈现的DataTable中设置列的宽度,并且无法使用aoColumnDefs选项实现它.有人曾尝试过这个吗？我的表有1个文本,后跟3个数字列.数字列需要更窄,第1列(文本)更宽.

output$result <- renderDataTable({
z <- as(dataInput(), "data.frame")
setnames(z, c("Rules", "Support", "Confidence", "StatDep"))
z
}, options = list(aLengthMenu = c(5, 30, 50), iDisplayLength = 5, bSortClasses = TRUE,
              aoColumnDefs = list(sWidth = "50px", aTargets = list(1))))

谢谢,

• 拉吉.

**更新**这似乎有效,但也可能有其他选择.

output$result <- renderDataTable({
z <- as(dataInput(), "data.frame")
setnames(z, c("Rules", "Support", "Confidence", "StatDep"))
z
}, options = list(aLengthMenu = c(5, 30, 50), iDisplayLength = 5, bSortClasses = TRUE,
              bAutoWidth = FALSE,
              aoColumn = list(list(sWidth = "150px", sWidth = "30px",
                                       sWidth = "30px", …

按2.3节的解释在这里,我可以通过设置删除rownames的数据表rownames = FALSE

DT::renderDataTable在R闪亮中使用时如何抑制行名？以下方法不起作用,因为如果查看dataTables选项引用,则没有rownames选项

  output$subsettingTable <- DT::renderDataTable(
    subsetTable(), filter = 'top', server = FALSE, 
    options = list(pageLength = 5, autoWidth = TRUE, rownames= FALSE
    ))

我的问题类似于这里的问题.答案是有的renderTable,我已经尝试过那里的答案没有DT::renderDataTable成功.

在我的shiny应用我使用datatable功能从DT库来构建一个表,要对齐的中心柱.我可以使用,formatStyle('column', textAlign = 'center')但它只影响列体而不影响标题.

我想从我的应用程序中删除"全局搜索"选项,但请保留"列搜索"选项.有任何想法吗？我尝试过不同的参数searching=FALSE, filtering='none'......这些都不正常.

我的代码:

server.R:

library("shiny")
library("DT")

data(iris)

shinyServer(function(input, output) {

    output$tabelka <- DT::renderDataTable({

        datatable(iris, filter="top", selection="multiple", escape=FALSE)

    })

})

ui.R

library("shiny")
library("DT")

shinyUI(fluidPage(

    DT::dataTableOutput("tabelka")

))

和图片有助于理解我的问题:

我正在尝试使用DT包为我的闪亮应用程序创建响应数据表.我想提前隐藏某些列.例如:

library("shiny")
library("DT")
shinyApp(
  ui = fluidPage(DT::dataTableOutput('tbl')),
  server = function(input, output) {
    output$tbl = DT::renderDataTable(
      iris,extensions="Responsive"
    )
  }
)

这个输出给了我5列.当我缩小页面时,它只隐藏列.但是,我想提前隐藏最后3列,我只想每次看到前两列.有没有办法做到这一点？

更新:

示例输出

我有一个闪亮的界面,我用DT::dataTableOutput和DT::renderDataTable了很多.但是,我想知道是否有办法缩小数据表的大小,例如,使字体和表格更小.我该怎么做？

假设我有以下代码:

foo <- function(){
  shinyApp(
    ui = fluidPage(
      DT::dataTableOutput("table")
    ),

    server <- function(input, output) {
      x <- data.frame(1:5, 2:6)
      output$table <- DT::renderDataTable(x)
    }
  )
}

我应该添加哪些选项或标签？

我正在为通路浓缩程序创建用户界面.结果如下表所示.

下面是一个片段,显示我使用DT :: renderDataTable和DT :: datatable在选项卡中输出表.spia_out()只是一个反应函数,它运行路径浓缩并产生一个数据帧.

spia_out <- reactive({
    ...get results in a dataframe...
  })

output$spiaout <- DT::renderDataTable({
      DT::datatable(spia_out(), extensions = ..., options = ...)
  })

一切正常,路径丰富表生成并打印在相应的UI元素中.我唯一的问题是如何将URL的最后一列(KEGGLINK)转换为活动超链接？这样人们就可以点击它们而不是复制和粘贴.

为截图的大小提前道歉.我希望你能看到最后一栏KEGGLINK有URL,但它们没有活动.

如何mouseover text在R闪亮数据表显示中为列名创建.我正在尝试为用户提供一些文本来理解列名称.我也检查了DT包,我找不到解决方案.我可以为列名创建标签,并在用户选中一个框时显示所有这些标签,这需要大量的空间,我不希望这样.有小费吗？

我正在尝试在我的 R Shiny 应用程序的表格上方添加下载按钮（'copy'、'csv'、'excel'、'pdf'），但是在内部使用数据表时，renderDataTable 似乎不起作用。

output$mytable1  <- DT::renderDataTable(
        datatable(
            { plots.dfs()[[1]] },
        rownames = TRUE,
        options = list(
            fixedColumns = TRUE,
            autoWidth = TRUE,
            ordering = FALSE,
            dom = 'tB',
            buttons = c('copy', 'csv', 'excel', 'pdf')
        ),
        class = "display"
    ))

当我在没有 DT::datatable 的情况下使用 DT::renderDataTable 时，renderDataTable 运行良好并且我拥有所有功能（过滤器、搜索字段等），除了下载按钮（我要添加的内容）

output$mytable1 = DT::renderDataTable({ plots.dfs()[[1]] })

你知道我做错了什么吗？谢谢你的帮助