1

我遇到了一个奇怪的错误。我不知道是因为 Shiny，还是 pheatmap，还是 RStudio，还是 plotly。

renderPlotly我需要在同一个 Shiny 应用程序中显示一个来自 pheatmap 的图和另一个图（带有）。两者必须在不同的导航栏上，并且仅在我按下按钮时才需要显示。

如果我绘制 pheatmap，然后绘制 plotly 图，然后返回到热图，只要按下应该生成它的按钮，热图就会消失。

此外，该地图不再适用于下一次运行（请参阅下面有关图形设备的评论）。

plotOutput如果我对图形使用法线而不是plotlyOutput（和 renderPlotly） ，则不会发生这种情况。

但是，现在地图绘制在 RStudio 的“绘图”面板上。

在调试时，我注意到在使用时plotlyOutout，周围有流氓图形设备。例如，当使用 时，使用in处的plotOutput断点显示“NULL”。 在同一断点处，使用 时，显示：plot(map_reactive)server.Rdev.list()
plotlyOutputdev.list()

Browse[2]> dev.list()
    RStudioGD quartz_off_screen quartz_off_screen 
            2                 3                 4

在调试过程中使用 dev.off() 关闭设备并没有帮助（我不完全知道调试范围是如何工作的），但如果我在停止应用程序后这样做，一切都会再次运行。

这是代码：

用户界面：

# ui.R

library(shiny)
library(plotly)

shinyUI(
  navbarPage("Test",
             selected = 'map',
    tabPanel('map', 
             sidebarLayout(
      sidebarPanel('side',
                   actionButton('getHmap', 'get heatmap')
                   ),
      mainPanel('main',
                plotOutput("themap")
                )
    )),
    tabPanel('plot', 
             sidebarLayout(
               sidebarPanel('side',
                            actionButton('getPlot', 'getPlot')
               ),
               mainPanel('main',
                         plotlyOutput("theplot")
               )
             ))
  )

)

服务器：

# server.R

library(shiny)
library(pheatmap)

shinyServer(
  function(input, output, session) {

    map_reactive = eventReactive(input$getHmap,{
      tmp = data.frame(matrix(1:20,5,4))
      tmpmap = pheatmap(tmp, silent = T)
      tmpmap$gtable
    })

    output$themap = renderPlot({
      plot(map_reactive())
    })

    plot_reactive = eventReactive(input$getPlot,{
      return(ggplot(data.table(x=1:10, y=1:10), aes(x=x,y=y))+
               geom_point()
             )
    })

    output$theplot = renderPlotly({
      plot_reactive()
    })

})
4

1 回答 1

1

这似乎对我有用：

 ui = navbarPage("Test",
                selected = 'map',
                tabPanel('map', 
                         sidebarLayout(
                           sidebarPanel('side',
                                        actionButton('getHmap', 'get heatmap')
                           ),
                           mainPanel('main',
                                     plotOutput("themap")
                           )
                         )),
                tabPanel('plot', 
                         sidebarLayout(
                           sidebarPanel('side',
                                        actionButton('getPlot', 'getPlot')
                           ),
                           mainPanel('main',
                                     plotlyOutput("theplot")
                           )
                         ))
)

server = function(input, output, session) {

  observeEvent(input$getHmap, {

    tmp = data.frame(matrix(1:20,5,4))
    tmpmap = pheatmap(tmp, silent = T)

  output$themap = renderPlot({        
    tmpmap
  })

  })

  plot_reactive = eventReactive(input$getPlot,{
    return(ggplot(data.table(x=1:10, y=1:10), aes(x=x,y=y))+
             geom_point()
    )
  })

  output$theplot = renderPlotly({
    plot_reactive()
  })     
}

shinyApp(ui, server)
于 2018-06-21T11:57:36.197 回答