Commit e8f06fd9 authored by svolant's avatar svolant
Browse files

print removed

parent 28c99149
......@@ -130,9 +130,7 @@ BaseContrastEasy <- function(input,names,namesfile,target)
## Get the selected modalities
M1 = input$Select1_contrast
M2 = input$Select2_contrast
print(M1)
print(M2)
if(length(input$Interaction2)>0) F1 = input$Select3_contrast
## Get the name of the parameter corresponding to the modalities
InterVar = input$InterestVar
......
......@@ -935,7 +935,7 @@ shinyServer(function(input, output,session) {
if(!is.null(resDiff))
{
## 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,
fluidRow(
column(width=3,selectInput("Select1_contrast","Compare","")),
......@@ -944,7 +944,7 @@ shinyServer(function(input, output,session) {
column(width=3,br(),actionButton("AddContrastEasy","Add",icon = icon("plus")))
)
)
}
# }
}
......
Supports Markdown
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