summary.tbl_df = function (object, ...) {
    dots = rlang::quos(...)
    stopifnot(length(dots) == 1)
    name = rlang::quo_name(dots[[1]])
    do(object, as_data_frame(as.list(summary(.[[name]]))))
}