r - 在 R shiny 中，如何在 UI 端使用在服务器端计算的值？

Question

在我的 R shiny 应用程序中，我想根据数据框的行数调整我的 d3heatmap(参见包 d3heatmap)的高度； d3heatmapOutput 中有一个参数 height 来指定它。

但是，我的数据框是在服务器端计算的，那么如何将它的行数从服务器端传递到 ui 端呢？

这是反射(reflect)我想做的事情的例子:

runApp(shinyApp(
  ui = fluidRow(
    selectInput("am", "Automatic (0) or manual (1) transmission?", 
                choices = c(0,1)), 

    # How can I have the 'height' argument equal to 'output$height'? 
    # I cannot use 'textOutput("height")' since it gives html code, not a value.
    d3heatmapOutput("heatmap", height = "400px") 
  ),
  server = function(input, output) {
    mtcars2 = reactive({
      mtcars[which(mtcars$am == input$am),]
    })
    output$height <- renderText({
      paste0(15*nrow(mtcars2()), "px")
    })
    output$heatmap <- renderD3heatmap({ 
      d3heatmap(mtcars2(), scale = "column") 
    })
  }
))

谢谢。

Answer 1

您可以使用 ui.R 中的 uiOutput 和 server.R 中的 renderUI 来动态添加 d3heatmapOutput:

library(shiny)
library(d3heatmap)
runApp(shinyApp(
  ui = fluidRow(
    selectInput("am", "Automatic (0) or manual (1) transmission?", 
                choices = c(0,1)), 

    uiOutput("ui_heatmap")

  ),
  server = function(input, output) {
    mtcars2 = reactive({
      mtcars[which(mtcars$am == input$am),]
    })
    output$ui_heatmap <- renderUI({
      d3heatmapOutput("heatmap", height = paste0(15*nrow(mtcars2()), "px")) 
    })    
    output$heatmap <- renderD3heatmap({ 
      d3heatmap(mtcars2(), scale = "column") 
    })

  }
))

然后您可以在应用程序的服务器端设置热图的高度。