Fixed display bug in shinyapp

RProject/shinyapps/results-dashboard/app.R

@@ -254,7 +254,7 @@ server <- function(input, output) {
 
   
   output$res <- DT::renderDataTable(df_res_r(),
-                                        options = list(columnDefs = list(list(className = 'dt-center',width=ifelse(input$dif & !is.na(input$dif),"101px","50px"), targets = "_all")),
+                                        options = list(columnDefs = list(list(className = 'dt-center',width=ifelse(input$dif & !is.na(input$dif),"119px","50px"), targets = "_all")),
                                           pageLength=100,autoWidth=T,scrollY=400,scrollX = T,server=F,buttons=c("csv","excel")),
                                         rownames = FALSE,
                                     selection="single",