## ---- echo = FALSE, message = FALSE--------------------------------------
knitr::opts_chunk$set(collapse = T, comment = "#>")
options(tibble.print_min = 4L, tibble.print_max = 4L)
library(dplyr)
## ---- eval = FALSE-------------------------------------------------------
# summarise(per_day, flights = sum(flights))
## ---- eval=FALSE---------------------------------------------------------
# foo <- function(x) x*x
# summarise(per_day, flights = foo(sum(flights)) )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.