Question

我的一个应用是通过uiOutput('plot.ui')显示ggplot，plot.ui通过renderUI()呈现。

  output$plot.ui=renderUI({
   plotOutput('plot', width=a function(), height=a function())
   })

代码有效，但是非常迟钝。这似乎是一个两步的过程。在我的应用程序中，它首先渲染'plot'（由renderPlot渲染的ggplot），然后根据指定的宽度和高度调整绘图的大小。两个步骤之间的滞后是显着的（约3秒）。我通过在plotOutput（）周围包含一个withProgress（）来检查它，问题仍然存在。我想知道为什么这个问题存在，如果有任何方法可以解决它。

附上一个小例子来说明这个问题。

library(shiny)
shinyApp(
  ui=shinyUI(
    pageWithSidebar(
      titlePanel('test'),
      sidebarPanel(
        sliderInput('width','Width: ', min=0,max=1000,value=100),
        sliderInput('height','Height: ',  min=0,max=1000,value=100)

        ),
    mainPanel(uiOutput('plot.ui'))
      )
    ),
  server=function(input,output){

    output$plot.ui=renderUI({
      plotOutput('plot',width=input$width,height=input$height)

    })
    output$plot=renderPlot({
      plot(runif(100000,1,100),runif(100000,1,100))
    })
  }
)

非常感谢你的帮助！

Answer 1

我有类似的问题，所以如果您以其他方式解决了问题，请告诉我。我试图调整plotOutput的大小取决于我绘制的内容（使用某些输入，我有水平条形图，1条或10条...需要相应地调整高度。

解决方案1）调整renderplot（）的高度正如jcheng5 here所解释的那样。看看这是否解决了问题

解决方案2）定义绘图函数，使用isolate（）

# Define a function that returns a plot
plot_function <- function(){
  plot(runif(100000,1,100),runif(100000,1,100)
}

# reactive UI and adjust the height here
output$plot.ui=renderUI({
   plotOutput("plot", height = -------------)
})
# call plot_function but use isolate()
output$plot <- renderPlot({
  isolate(plot_function())
}

这对我有用。看看这是否解决了这个问题。

滞后有光泽的uiOutput

1 个答案: