tag_cols results in print error

[trinker]

should be

tag_cols <-function (x, ...){
    tibble::as_tibble(x[tag_names(x)])
}