From 9a444cec3b2c77341d9712ab11dc2a2c9590b835 Mon Sep 17 00:00:00 2001 From: corentinchoisy Date: Tue, 7 May 2024 16:37:24 +0200 Subject: [PATCH] Fixed display bug in shinyapp --- RProject/shinyapps/results-dashboard/app.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/RProject/shinyapps/results-dashboard/app.R b/RProject/shinyapps/results-dashboard/app.R index 8c20d10..ceebfb9 100644 --- a/RProject/shinyapps/results-dashboard/app.R +++ b/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",