<-
gt_tbl |>
gtcars ::select(mfr, model, msrp) |>
dplyr::slice(1:5) |>
dplyrgt() |>
tab_header(
title = md("Data listing from **gtcars**"),
subtitle = md("`gtcars` is an R dataset")
)
gt_tbl
Data listing from gtcars | ||
gtcars is an R dataset |
||
mfr | model | msrp |
---|---|---|
Ford | GT | 447000 |
Ferrari | 458 Speciale | 291744 |
Ferrari | 458 Spider | 263553 |
Ferrari | 458 Italia | 233509 |
Ferrari | 488 GTB | 245400 |