quick Summary html y scale adapted

quick_summary.Rmd

@@ -66,6 +66,7 @@ meanV <- rslt[rslt$regime %in% c("BAU", "SA", "CCF") , ] %>%
    geom_line( aes(color = regime)) +
    theme(axis.text.x = element_text(angle = 90)) +
    scale_x_continuous(breaks=c(2016, 2026, 2036, 2046, 2056, 2066, 2076, 2086, 2096, 2106)) +
+   scale_y_continuous(limit = c(0,700)) +
    facet_wrap(. ~gpkg)
  plot(meanV)