R Shiny renderImage()无法识别对象'输入'

时间:2015-12-27 06:49:47

标签: r shiny htmlwidgets

为什么renderImage()无法识别以下代码示例中的input

library(d3heatmap)
library(shiny)
library(ggplot2)


    ui <- fluidPage(
      h1("A heatmap demo"),
      selectInput("palette", "Palette", c("YlOrRd", "RdYlBu", "Greens", "Blues")),
      checkboxInput("cluster", "Apply clustering"),
      downloadButton('downloadPlot', 'Download Heatmap'),
      d3heatmapOutput("heatmap")
)

    server <- function(input, output, session) {

      output$heatmap <- renderD3heatmap({
        d3heatmap(
          scale(mtcars),
          colors = input$palette,
          dendrogram = if (input$cluster) "both" else "none"
) })

    output$downloadPlot <- renderImage(
        d3heatmap(scale(mtcars), colors = input$palette, dendrogram = if (input$cluster) "both" else "none"), 
        env = parent.frame(), 
        quoted = FALSE, 
        deleteFile = FALSE
        )

    }

shinyApp(ui = ui, server = server)

这是我的错误:

Error in match.arg(dendrogram) : object 'input' not found

当我删除dendrogram = if (input$cluster) "both" else "none"行时,我再次收到有关input的错误消息:

Error in toPaletteFunc(pal) : object 'input' not found

找不到对象input似乎有点违反直觉,因为我已经在楼上用server <- function(input, output, session)明确定义了它。

我已经检查了生成类似错误消息的现有Stack Overflow帖子(例如R Shiny error: object input not found)。

上面的代码示例的灵感来自:https://cran.r-project.org/web/packages/d3heatmap/d3heatmap.pdf

1 个答案:

答案 0 :(得分:3)

d3heatmap()生成htmlwidgets类对象。我们可以使用saveWidget()包中的htmlwidgets函数来保存图。

library(d3heatmap)
library(shiny)
library(htmlwidgets)

ui <- fluidPage(
    h1("A heatmap demo"),
    selectInput("palette", "Palette", c("YlOrRd", "RdYlBu", "Greens", "Blues")),
    checkboxInput("cluster", "Apply clustering"),
    downloadButton('download', 'Download Heatmap'),
    d3heatmapOutput("heatmap")
)
server <- function(input, output, session) {
    plot <- reactive({
        d3heatmap(
            scale(mtcars),
            colors = input$palette,
            dendrogram = if (input$cluster) "both" else "none"
        )
    })
    output$heatmap <- renderD3heatmap({
        plot()
    })
    output$download <- downloadHandler(
        filename = function() {
            paste0("d3heatmap-", tolower(input$palette), ".html")
        },
        content = function(file) {
            saveWidget(plot(), file)
        }
    )
}

shinyApp(ui = ui, server = server)

如果您需要将图表保存为png,请参阅此讨论:https://github.com/ramnathv/htmlwidgets/issues/95。简而言之:现在htmlwidgets不支持导出图为png或svg。您可以将exportwidgetwebshot个包视为工作场所。