At the moment, if the number of studies in the uploaded sheet is small <5, then the traffic light figure is incorrectly sized.
Need to update both the code used to define the size of the image when displayed:
nrows <- ifelse(nrows * (70/(20/input$psize)) + 100 < 750, 750, nrows * (70/(20/input$psize)))
and the code used to define the size of the image when downloaded.
nrows <- ifelse(nrows * 1/(20/input$psize) < 9, 9, nrows * 1/(20/input$psize))
At the moment, if the number of studies in the uploaded sheet is small <5, then the traffic light figure is incorrectly sized.
Need to update both the code used to define the size of the image when displayed:
nrows <- ifelse(nrows * (70/(20/input$psize)) + 100 < 750, 750, nrows * (70/(20/input$psize)))
and the code used to define the size of the image when downloaded.
nrows <- ifelse(nrows * 1/(20/input$psize) < 9, 9, nrows * 1/(20/input$psize))