Cacher is the code snippet organizer for pro developers

output$table <- renderDataTable(kidtable,
                                  options=list(aLengthMenu = c(15,25,50), 
                                               iDisplayLength = 15,
                                               columnDefs = list(list(width = '160px', targets = c(10,11)),
                                                                 list(width = '120px', targets = c(4,5)),
                                                                 list(width = '200px', targets = 3))))