How to update the size of a plotOutput ui object

Question

I am trying to resize a plotOutput ui object in shiny

library(shiny)

ui <- fluidPage(
  fluidRow(
        column(6, numericInput('save.height', "Save height (mm)", value = 50)),
        column(6, numericInput('save.width', "Save width (mm)", value = 43))),
  plotOutput('plot_display', width = '50mm', height = '43mm'))

server <- function(input, output) {
  output$plot_display <- renderPlot({

    ggplot(iris, aes(x = Species, y = Petal.Length)) +
      stat_summary(geom = 'bar', fun.y = mean) +
      geom_point() +
      theme(aspect.ratio = 1)

  })


}

shinyApp(ui, server)

I haven't been able to find something equivalent to updateNumericInput() to update the values dynamically in plotOutput

Tonio Liebrand · Accepted Answer · 2018-06-29 11:31:39Z

5

You could also use the awesome shinyjqui package:

library(shiny)
library(shinyjqui)

shinyApp(
  ui = fluidPage(
          jqui_resizabled(plotOutput('hist'))
  ), 
  server = function(input, output) {
    output$hist <- renderPlot({
      hist(rnorm(100))
    })
  }
)

See here: https://github.com/Yang-Tang/shinyjqui.

edited Jun 29, 2018 at 11:31

answered Jun 29, 2018 at 8:18

Tonio Liebrand

17.8k4 gold badges45 silver badges64 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

John Gagnon Over a year ago

That's a really cool package, thanks! Is there any way to access the values associated with the plot size when resizing?

Tonio Liebrand Over a year ago

Yes, see my answer here: stackoverflow.com/questions/51068604/….

SeGa · Accepted Answer · 2018-06-29 07:24:40Z

4

In order to do that you must indicate that the size of your output depends on the value of the input. You can find a working example below :

library(shiny)
library(ggplot2)

ui <- fluidPage(
 fluidRow(
  column(6, numericInput('save.height', "Save height (mm)", value = 500)),
  column(6, numericInput('save.width', "Save width (mm)", value = 450))),
  plotOutput('plot_display'))

server <- function(input, output) {
 output$plot_display <- renderPlot({

ggplot(iris, aes(x = Species, y = Petal.Length)) +
  stat_summary(geom = 'bar', fun.y = mean) +
  geom_point()

},height = function()input$save.height, width = function()input$save.width)}

shinyApp(ui, server)

edited Jun 29, 2018 at 7:24

SeGa

9,8793 gold badges34 silver badges76 bronze badges

answered Jun 29, 2018 at 5:09

user9901566

Collectives™ on Stack Overflow

How to update the size of a plotOutput ui object

2 Answers 2

2 Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related