Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Amine GHOZLANE
shaman
Commits
9540f3d4
Commit
9540f3d4
authored
Sep 13, 2017
by
Amine GHOZLANE
Browse files
Mean parameters for normalisation
parent
cc9a6efc
Changes
2
Hide whitespace changes
Inline
Side-by-side
Rfunctions/Data_Management.R
View file @
9540f3d4
...
...
@@ -306,9 +306,7 @@ CheckMasque <- function(input, values, check_mail=FALSE)
# HowTo = "<h6><strong>Make sure that you have click the « Get key » 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
){
print
(
"fuck"
)
Error
=
"<h6><strong>Invalid key </strong></h6>"
;
HowTo
=
"<h6><strong>Make sure that you have click the « Get key » button </strong></h6>"
}
...
...
ui.R
View file @
9540f3d4
...
...
@@ -568,7 +568,7 @@ body <- dashboardBody(
radioButtons
(
"locfunc"
,
h6
(
strong
(
"Local function"
)),
choices
=
c
(
"Median"
=
"median"
,
"Shorth"
=
"shorth"
))
),
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"))
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment