library(huxtable) library(dplyr) data = rbind(mtcars |> tibble::rownames_to_column('Car'), mtcars |> tibble::rownames_to_column('Car')) |> mutate(Car = factor(Car)) |> arrange(Car) |> head(10) |> mutate(Car = as.character(Car)) |> select(Car, cyl)
ht <- as_hux(data, add_colnames = T)|> slice(1:3) |> merge_cells(1:2, 1) |> set_bottom_border(2, everywhere, 0.4) |> huxtable::set_caption('Title') |> set_caption_pos(value = 'topleft') ht
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.