Adjust filter criterion in examples

R/position-nudgestack.R

@@ -18,6 +18,7 @@
 #' ESM_prep <- ESM %>%
 #'   tidyr::gather(key = key, value = value, -date) %>%
 #'   group_by(date, key) %>%
+#'   summarize(value = mean(value)) %>%
 #'   filter(date >= "1995-01-01" & date < "1998-01-01")
 #'
 #' ggplot(data = ESM_prep, mapping = aes(x = time, y = value, fill = id)) +