Code

library(tidyverse)
library(gt)

df <- mtcars |> 
  select(1:5) |> 
  filter(disp >= 400)

gt(df)

library(tidyverse)
library(gt)

df <- mtcars |> 
  select(1:5) |> 
  filter(disp >= 400)

gt(df)