Commit 99025f24 authored by svolant's avatar svolant
Browse files

rajout verif version R

parent 10cfc741
...@@ -2059,7 +2059,7 @@ shinyServer(function(input, output,session) { ...@@ -2059,7 +2059,7 @@ shinyServer(function(input, output,session) {
if(!is.null(resDiff)) if(!is.null(resDiff))
{ {
## Check the R version ## Check the R version
# if(as.numeric(R.Version()$major)<=3 && as.numeric(R.Version()$minor) <=1.2){ if(as.numeric(R.Version()$major)<=3 && as.numeric(R.Version()$minor) <=1.2){
box(title="Contrasts (New)",width = NULL, status = "primary", solidHeader = TRUE,collapsible = TRUE,collapsed = FALSE, box(title="Contrasts (New)",width = NULL, status = "primary", solidHeader = TRUE,collapsible = TRUE,collapsed = FALSE,
fluidRow( fluidRow(
column(width=3,selectInput("Select1_contrast","Compare","")), column(width=3,selectInput("Select1_contrast","Compare","")),
...@@ -2068,7 +2068,7 @@ shinyServer(function(input, output,session) { ...@@ -2068,7 +2068,7 @@ shinyServer(function(input, output,session) {
column(width=3,br(),actionButton("AddContrastEasy","Add",icon = icon("plus"))) column(width=3,br(),actionButton("AddContrastEasy","Add",icon = icon("plus")))
) )
) )
# } }
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment