r 示例使用shinydashboard中的renderUI动态调整d3heatmap的大小

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了r 示例使用shinydashboard中的renderUI动态调整d3heatmap的大小相关的知识,希望对你有一定的参考价值。

library(shiny)
library(d3heatmap)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title="resizing d3heatmap"),
  dashboardSidebar(
    sliderInput("obs", "Number of rows:", min = 10, max = 100, value = 50)
  ),
  dashboardBody(
    tabBox(
      tabPanel("Heatmap",uiOutput("hm_o")),
      tabPanel("Data",verbatimTextOutput("dat_print"))
    )
  )
)

server <- function(input, output) {
  dat <- reactive({ matrix(rnorm(input$obs*4),ncol=4) })

  output$dat_print <- renderPrint({ dat() })

  output$hm_o <- renderUI({
    d3heatmap::d3heatmapOutput('hm',width="50%", height=paste0(50+input$obs*10,"px"))
  })

  output$hm <- renderD3heatmap({
    d3heatmap(dat(), Colv=FALSE,
              colors=colorRampPalette(c("blue", "white", "red"))(100))
  })
}

shinyApp(ui = ui, server = server)

以上是关于r 示例使用shinydashboard中的renderUI动态调整d3heatmap的大小的主要内容,如果未能解决你的问题,请参考以下文章

R shinydashboard ——1. 基本用法

shinydashboard ui.R 和 server.R 未读取 Global.R

R + Shiny 哪个锤子?直的 Shiny、flexdashboard 还是 shinydashboard? [关闭]

R shinydashboard 在值框中显示所选输入的总和

R语言使用shinydashboard可视化美国投票记录

Shinydashboard 使下载按钮变灰?