From 9d22a112223b4440fca2e8c6ea9aad7e9e69af6f Mon Sep 17 00:00:00 2001
From: Alain Guillet <alain.guillet@uclouvain.be>
Date: Fri, 7 Aug 2020 15:50:15 +0200
Subject: [PATCH] Fichier UI.R.
---
ui.R | 153 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 153 insertions(+)
create mode 100644 ui.R
diff --git a/ui.R b/ui.R
new file mode 100644
index 0000000..8faf2ec
--- /dev/null
+++ b/ui.R
@@ -0,0 +1,153 @@
+## simpleIC Shiny/R app ui.R
+##
+## Author(s) :
+## -----------
+## J.J.
+## Orginal version by Grégoire Vincke http://www.uclouvain.be/gregoire.vincke
+## For Statistical eLearning Tools http://sites.uclouvain.be/selt/
+##
+## Licences :
+## ---------
+## CC-BY for the web page http://sites.uclouvain.be/selt/shiny/testhypic
+## see http://creativecommons.org/licenses/by/2.0/be/ for more informations
+##
+## GPLv2 for source code on https://github.com/uclouvain-selt/shiny
+## See LICENCE.tx or http://www.gnu.org/licenses/old-licenses/gpl-2.0.html for more informations
+
+library(shiny)
+shinyUI(pageWithSidebar(
+ headerPanel("Intervalles de confiance à la moyenne"),
+
+ conditionalPanel(
+ condition = "input.visM == false",
+ sidebarPanel(
+ tags$head(
+ tags$style(type="text/css", "label { display: inline; }"),
+ tags$style(type="text/css", '.checkbox input[type="checkbox"],.radio input[type="radio"] { float: none; }'),
+ tags$style(type="text/css", ".jslider { max-width: 250px; }"),
+ tags$style(type='text/css', ".well { max-width: 300px; }"),#class of the from inside sidebarPanel
+ tags$style(type='text/css', ".span4 { max-width: 310px; }"),#span4 is the span of sidebarPanel (span8 is for the mainPanel)
+ tags$style(type='text/css', "#complementinfos { width: 150px; }"),
+ tags$style(type='text/css', "#CVk { width: 150px; }"),
+ tags$style(type='text/css', "select#display { width: 150px; }"),
+ tags$style(type='text/css', "#mainInputs {margin : 0px 0px 4px 0px; }"),
+ tags$script(type="text/javascript",src="js/scripts.js")
+ ),
+ ## Take sample
+ ## Population
+ h5("Paramètres de la population d'origine:"),
+ checkboxInput("muKn",HTML("μ : moyenne de la population d'origine"),FALSE),
+ br(),
+ conditionalPanel(
+ condition = "input.muKn == true",
+ sliderInput("mx1","",min = 0,max = 60,value = sample(c(30:35),1), step=1)
+ ),
+ checkboxInput("sigKn",HTML(" σ : écart-type de la population d'origine"),FALSE)
+ ,
+ conditionalPanel(
+ condition = "input.sigKn == true",
+ sliderInput("sx","",min = 0,max = 10,value = sample(seq(from = 2, to = 3.5, by = 0.5),1), step=0.5)# sample(c(3:15),1) ->4
+ ),
+
+ ## Sampling
+ h5("Paramètres de l'échantillonnage :"),
+ sliderInput("n","n : nombre d'individus par échantillon :",min = 2,max = 50,value = 10, step=1),
+ sliderInput("ns","Nombre d'échantillons prélevés :",min = 1,max = 50,value = 1, step=1),#ns:number of samples
+
+ ## IC parameter
+
+ h5("Paramètres des IC :"),
+ checkboxInput("icPl",HTML("Afficher les intervalles de confiance"),FALSE),
+ br(),
+ conditionalPanel(
+ condition = "input.empPl == true && input.icPl == true",
+ selectInput("thresholds", "Seuils critiques :",
+ list("Afficher les formules théoriques" = "formula",
+ "Afficher le calcul détaillé" = "calcul",
+ "Afficher le résultat" = "result"))
+ ),
+ conditionalPanel(
+ condition = "input.icPl == true",
+
+ selectInput("CVk","Modèle :",
+ c("empirique" = "eCVk",
+ "σ connu" = "vCVk",
+ "σ inconnu" = "sCVk"))
+ ),
+ conditionalPanel(
+ condition = "input.CVk =='eCVk' && input.icPl == true",
+ HTML("c : demi amplitude des IC : [x̄ ± c ]")),
+ conditionalPanel(
+ condition = "input.CVk =='vCVk' && input.icPl == true",
+ HTML("c : seuil critique des IC : [x̄ ± c σ / √n ]")),
+ conditionalPanel(
+ condition = "input.CVk =='sCVk' && input.icPl == true",
+ HTML("c : seuil critique des IC : [x̄ ± c s / √n ]")),
+ conditionalPanel(
+ condition = "input.icPl == true",
+ sliderInput("k","",min = 1,max = 25,value = 5, step=0.5)),
+ conditionalPanel(
+ condition = "input.icPl == true",
+ selectInput("cvPl","Indiquer la couverture par les IC :",
+ c("non" = "non",
+ "oui" = "oui",
+ "pour μ de la population d'origine" = "parOri",
+ "pour une valeur alternative μ''" = "parAlt"))
+ ),
+ conditionalPanel(
+ condition = "input.cvPl == 'parAlt' && input.icPl == true",
+ HTML("pour une valeur alternative μ'' de valeur :"),
+ sliderInput("mx0","",min = 0,max = 60,value = 35, step=1)
+ ),
+ conditionalPanel(
+ condition = "input.cvPl == 'oui' && input.icPl == true",
+ HTML("par un paramètre de valeur :"),
+ sliderInput("mx","",min = 0,max = 60,value = 35, step=1)
+ ),
+ conditionalPanel(
+ condition = "input.cvPl != 'non' && input.icPl == true",
+ selectInput("freqPl","Afficher % couverture:",
+ c("non" = "freqPlnon",
+ "oui" = "freqPloui"))
+ ),
+ ## Graphic parameter
+ h5("Paramètres graphiques :"),
+ checkboxInput("empPl",HTML("Afficher les statistiques descriptives"),TRUE),br(),
+
+ checkboxInput("showreality",HTML("Afficher la densité d'origine"),FALSE),
+ sliderInput("nss","Nombre d'échantillons affichés :",min = 1,max = 50,value = 7, step=1),#nss: number of samples to show
+ selectInput("display", "Display :",
+ list("Defaut" = "default",
+ "1024x768" = "1024",
+ "800x600" = "800")),
+ HTML('<hr style="border:1px solid #ccc;"/>'),
+ HTML('<a rel="license" href="http://creativecommons.org/licenses/by/2.0/be/"><img alt="Licence Creative Commons" style="border-width:0" src="img/cc_by_80x15.png" /></a> Ce(tte) oeuvre de <span xmlns:cc="http://creativecommons.org/ns#" property="cc:attributionName">Statistical eLearning Tools</span> est mise à disposition selon les termes de la <a rel="license" href="http://creativecommons.org/licenses/by/2.0/be/">licence Creative Commons Attribution 2.0 Belgique</a>.'),
+ HTML('<p>Détails sur l\'utilisation de cette ressource sur <a href="http://sites.uclouvain.be/selt/ressources/194683" target="_blank">Statistics eLearning Tools</a><br/> Code source disponible sur <a href="https://github.com/uclouvain-selt/shiny/tree/master/simpleic" target="_blank">Github</a></p><p><a href="http://www.uclouvain.be/" target="_blank" title="Copyright - Université Catholique de Louvain"><img alt="Copyright - Université Catholique de Louvain" style="border-width:0" src="img/UCL_2018.png" width=150 /></a></p>')
+ )
+ ),
+
+
+ mainPanel(
+ HTML("<div id='mainInputs'>"),
+ actionButton("takesample","Echantillonner"),actionButton("reset","Reset"),checkboxInput("visM",HTML("Plein écran"),FALSE),
+ HTML("</div>"),
+ tabsetPanel(id="Tabset",selected=1,
+ tabPanel(
+ "Vue graphique",
+ plotOutput("plotEmp",height='100%'),
+ #verbatimTextOutput("test1"),
+ value=1),
+ tabPanel("Données",value=2,
+ ## conditionalPanel(
+ ## condition = "input.visM0 == true",
+ ## checkboxInput("visM1",HTML("Demasquer le menu"),FALSE)),
+ tableOutput("DataTable")
+
+ )#,
+# tabPanel("Test",value=3,
+# tableOutput("test1")
+# )
+ )
+ )
+))
+
--
GitLab