I have a small R shiny app https://kormir.shinyapps.io/dt_test/
library(shiny) library(DT) ui <- fluidPage( column(4, br(),