【发布时间】:2022-12-15 17:54:08
【问题描述】:
我的数据表包含空列。我如何在 R Shiny 中轻松隐藏/删除它们?
数据表输出格式
data_output <- function(data, targets_number) { DT::datatable(data, rownames= FALSE, filter = 'top', extensions = c('Buttons','FixedHeader', 'KeyTable'), options = list(columnDefs = list(列表( 目标 = targets_number, 呈现 = JS( “功能(数据,类型,行,元){”, “返回类型 === '显示' && data.length > 60 ?”, "'<span title="' + data + '">' + data.substr(0, 60) + '...' : 数据;", "}") )), orderClasses = TRUE, scrollX = TRUE, scrollY= TRUE, lengthMenu = list(c(4, 25, 100, -1), c('4', '25', '100', 'All')) , pageLength = 4, dom = 'lr<"sep">CBtip', buttons = c(I('colvis'), 'copy', 'excel'), fixedHeader = TRUE, keys = TRUE, autoWidth = TRUE, deferRender = TRUE), callback = JS('table.page(1).draw(false);')) }
output$drugTable <- renderDT ({data_output(drug_sql_data,13)})
【问题讨论】: