corentinchoisy/simul_these
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed display bug in shinyapp

Browse Source
This commit is contained in:
Corentin Choisy
2024-05-07 16:37:24 +02:00
parent 9f33e1ad26
commit 9a444cec3b
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
RProject/shinyapps/results-dashboard/app.R
View File

@ -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",