I am trying to let the user change the height and width of a plot with two numericInputs, like this
output$plot_preview <- renderPlot({
return(the_plot())
}
, width = function() as.numeric(input$plot_width)
, height = function() as.numeric(input$plot_height)
)
However, this value is not used when Shiny sets the height of the fluidRow that contains the plotOutput. The rows after the plot will not change position and will appear over the top of the plotOutput.
, tabPanel(title = "Plot Preview"
, fluidRow( plotOutput('plot_preview'))
, fluidRow(column(4
, imageOutput('trend_badge')
)
, column(4
, imageOutput('alarm_badge')
)
, column(4
, imageOutput('goal_badge')
)
)
)
Shouldn't the fluidRow change its height based on the output plot and the following row move down?
Do I need to manually force a refresh of some kind, or is this just not how fluidRows work?
Sorry for the lack of a reprex, I will create one and update this post with it later if it is needed.