Commit 9540f3d4 authored by Amine  GHOZLANE's avatar Amine GHOZLANE
Browse files

Mean parameters for normalisation

parent cc9a6efc
...@@ -306,9 +306,7 @@ CheckMasque <- function(input, values, check_mail=FALSE) ...@@ -306,9 +306,7 @@ CheckMasque <- function(input, values, check_mail=FALSE)
# HowTo = "<h6><strong>Make sure that you have click the &laquo Get key &raquo button and that you have pasted the key sent by mail </strong></h6>" # HowTo = "<h6><strong>Make sure that you have click the &laquo Get key &raquo button and that you have pasted the key sent by mail </strong></h6>"
# } # }
# #
print(check_mail)
if(is.null(Error) && is.null(values$login_email) && check_mail){ if(is.null(Error) && is.null(values$login_email) && check_mail){
print("fuck")
Error = "<h6><strong>Invalid key </strong></h6>"; Error = "<h6><strong>Invalid key </strong></h6>";
HowTo = "<h6><strong>Make sure that you have click the &laquo Get key &raquo button </strong></h6>" HowTo = "<h6><strong>Make sure that you have click the &laquo Get key &raquo button </strong></h6>"
} }
......
...@@ -568,7 +568,7 @@ body <- dashboardBody( ...@@ -568,7 +568,7 @@ body <- dashboardBody(
radioButtons("locfunc",h6(strong("Local function")),choices = c("Median"="median","Shorth"="shorth")) radioButtons("locfunc",h6(strong("Local function")),choices = c("Median"="median","Shorth"="shorth"))
), ),
column(width=3, column(width=3,
radioButtons("fitType",h6(strong("Relationship")),choices = c("Parametric"="parametric","Local"="local")) radioButtons("fitType",h6(strong("Relationship")),choices = c("Parametric"="parametric","Local"="local", "Mean"="mean"))
) )
# column(width=3,uiOutput("RefSelect")) # column(width=3,uiOutput("RefSelect"))
) )
......
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