搜索
查看: 1982|回复: 0

shiny的DT包控制表格以下拉滚动条形式显示数据

[复制链接]

634

主题

1182

帖子

4030

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
4030
发表于 2017-4-5 10:41:07 | 显示全部楼层 |阅读模式
这样可以在表格区域再增加一个滚动条,可以单独滚动表格来查看具体表格数据:
[AppleScript] 纯文本查看 复制代码
library(DT)
library(shiny)
library(shinydashboard)
if (interactive()) {
  options(device.ask.default = FALSE)
  
  ui <- fluidPage(
    DT::dataTableOutput('tmp') 
    
  )
  
  server <- function(input, output) {
    output$tmp <- DT::renderDataTable({
      m = matrix(runif(1000 * 20), ncol = 20, dimnames = list(NULL, letters[1:20]))
      m = cbind(id = seq_len(nrow(m)), round(m, 2))
      datatable(m, extensions = c('Buttons','Scroller'), options = list(
        buttons = c('copy', 'excel'),
        dom = 'pBfrti', 
        pageLength = -1, 
        lengthMenu = c(5, 10, 15, 'ALL'),
        rownames= FALSE,
        scrollX = TRUE,
        fixedHeader = TRUE,
        fixedColumns = TRUE ,
        deferRender = TRUE,
        scrollY = 200,
        scroller = TRUE
      ))
    })
  }
  
  shinyApp(ui, server)
}
你这个问题很复杂,需要打赏,请点击 http://www.bio-info-trainee.com/donate 进行打赏,谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|小黑屋|生信技能树 ( 粤ICP备15016384号  

GMT+8, 2019-8-19 14:37 , Processed in 0.032093 second(s), 24 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.