DT::renderDataTable reduce size

[cowa]

I render one table as like this

output$mytable12 <- DT::renderDataTable({
A<-as.array(tdata$xxx)
T<- as.array(tdata$yyy)
IN<-intersect(A,T)
DT::datatable((as.matrix(IN)),class = 'cell-border stripe',
caption = "xxxxx",colnames ="xxxx")

How to reduce the size and put all the values in center
Please find attached screen shot

[woodward]

Check out https://datatables.net/reference/option/
I think you need

options = list(
  paging = TRUE,
  pageLength = 5,
  columnDefs = list(list(className = "dt-center", targets = "_all"))
)
# https://stackoverflow.com/questions/50912519/select-the-number-of-rows-to-display-in-a-datatable-based-on-a-slider-input/50944393
# https://stackoverflow.com/questions/35749389/column-alignment-in-dt-datatable