R Shiny : How to get square plot to use full width of panel?

Question

我有一个正方形图(纵横比 1:1)，我试图将其缩放为 mainPanel 的全宽。由于默认情况下 height 参数为 400px，因此绘图在面板中间显示为 400x400 图像:

我了解到您可以将 plotOutput 的 height 参数更改为 "100%" 或 "auto" 让面板使用图像的自然尺寸。但是，plotOutput 然后尝试从 renderPlot 检索高度参数，而 renderPlot 本身从 plotOutput 获取其 height 值导致“Catch-22”场景和高度 0px 的绘图。

我想要做的是将renderPlot(或plotOutput)的height值设置为等于 mainPanel 的宽度，但我不确定如何访问该值。到目前为止，这是我的代码:

library( shiny )
library( ggplot2 )

server <- function(input, output)
{
    output$plot1 <- renderPlot({
        X <- data.frame( x=rnorm(input$n), y=rnorm( input$n ) )
        ggplot( X, aes(x=x, y=y) ) + geom_point() + coord_fixed()
    }, height=400   # how to get this value to be mainPanel width?
    )
}

ui <- fluidPage(
    sidebarLayout( 
        sidebarPanel(
            sliderInput("n", "Number of Samples", min=10, max=1000, value=100) ),
        mainPanel( plotOutput("plot1", height="auto") )
    )
)

shinyApp(ui = ui, server = server)

有什么想法吗？

Answer 1

基于this post :

library( shiny )
library( ggplot2 )

server <- function(input, output)
{
  output$plot1 <- renderPlot({
    X <- data.frame( x=rnorm(10), y=rnorm( 10) )
    ggplot( X, aes(x=x, y=y) ) + geom_point() +  coord_fixed()
    } ,
    height=reactive(ifelse(!is.null(input$innerWidth),input$innerWidth*3/5,0))
  )
}

ui <- fluidPage(
  sidebarLayout( 
    sidebarPanel(
      tags$head(tags$script('$(document).on("shiny:connected", function(e) {
                            Shiny.onInputChange("innerWidth", window.innerWidth);
                            });
                            $(window).resize(function(e) {
                            Shiny.onInputChange("innerWidth", window.innerWidth);
                            });
                            ')),
      sliderInput("n", "Number of Samples", min=10, max=1000, value=100) ),
    mainPanel( plotOutput("plot1"))
  )
)

shinyApp(ui = ui, server = server)