library(tidyverse)
datatable(mpg, options = list(scrollx = TRUE))