output$mytable <- renderDataTable({
if (nrow(subset(outputT8()))==0) invisible()
else subset(outputT8(),select=c(3,1,2,5,4,6,11))
},option=list(iDisplayLength=15,bSortClasses = TRUE,bAutoWidth=FALSE,
aoColumnDefs = list(list(sWidth=c("100px"), aTargets=c(list(0),list(1),list(2),list(3),list(4),list(5)))))
)
hope it helps