Commit 6a5be93a authored by Holger Brandl's avatar Holger Brandl

more eyefriendly ci width

parent 1a623b17
......@@ -206,7 +206,7 @@ app <- shinyApp(
}
if (is.element("plot_ci", input$options)) {
plot <- plot + geom_errorbar(aes(ymin=rep_values_mean-rep_values_ci, ymax=rep_values_mean+rep_values_ci), size = 0.2, position=pd)
plot <- plot + geom_errorbar(aes(ymin=rep_values_mean-rep_values_ci, ymax=rep_values_mean+rep_values_ci), size=0.2, width = 0.3, position=pd)
}
if (is.element("plot_line", input$options) || is.element("plot_ci", input$options)) {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment