Description de l'interface

ui.R

+##################################
+# ui.R modified on 24/10/2019    #
+# by Alain Guillet               #
+# wider numeric cell than before #
+##################################
+
+library(shiny)
+
+# Define UI for zplot
+shinyUI(pageWithSidebar(
+
+  # Application title
+  headerPanel("Probabilité associée à une valeur de X~N(µ;σ²) ou à un intervalle entre deux valeurs de X"),
+
+  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", 'input[type="number"] { width: 70px; }'),
+        tags$style(type="text/css", ".jslider { max-width: 350px; }"),
+        tags$style(type='text/css', ".well { max-width: 400px; }"),#class of the from inside sidebarPanel
+        tags$style(type='text/css', ".span4 { max-width: 400px; }")#span4 is the span of sidebarPanel (span8 is for the mainPanel)
+      ),
+    conditionalPanel(condition = "input.Tabset!=3",
+      h5(HTML("Paramètres de la distribution X~N(μσ,²) :")),
+      numericInput("mx", "µ :", 25),
+      br(),
+      numericInput("sx", "σ :", 5),
+      br()
+    ),
+    conditionalPanel(condition = "input.Tabset==1",
+      h5(HTML("x dont on désire la probabilité associée :")),
+      numericInput("x", "x :", 30),
+      br(),
+      selectInput("sens", "Probabilité de type :",
+      list("P(X ≤ x)" = "inf", 
+	    "P(X ≥ x)" = "sup",
+	    "P(X = x)" = "equal"))
+    ),
+    conditionalPanel(condition = "input.Tabset==2",
+      h5(HTML("x<sub>1</sub> et x<sub>2</sub> dont on désire la probabilité P(x<sub>1</sub> &le; X &le; x<sub>2</sub>)&nbsp;:")),
+      numericInput("x1", HTML("x<sub>1</sub> :"), 20),
+      br(),
+      numericInput("x2", HTML("x<sub>2</sub> :"), 30)
+    ),
+    conditionalPanel(condition = "input.Tabset==3",
+      h5(HTML("Table de Z~N(0,1) pour :")),
+      selectInput("sensTable", "Probabilités de type :",
+      list("P(Z ≤ z)" = "inf", 
+	    "P(Z ≥ z)" = "sup")),
+      selectInput("signeZ", "Valeurs de :",
+      list("Z ≥ 0" = "pos",
+	    "Z ≤ 0" = "neg") 
+	    )
+    ),
+    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="http://i.creativecommons.org/l/by/2.0/be/80x15.png" /></a> Cette &oelig;uvre 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>Code source disponible sur <a href="https://github.com/uclouvain-selt/shiny/tree/master/xtoz" 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=100" /></a></p>')
+  ),
+
+  mainPanel(
+    tabsetPanel(id="Tabset",selected=1,
+      tabPanel(
+	"Une valeur",
+	plotOutput("zPlot"),
+	htmlOutput("Text"),
+	value=1
+      ),
+      tabPanel(
+	"Un intervalle",
+	plotOutput("zPlotInt"),
+	htmlOutput("TextInt"),
+	value=2
+      ),
+      tabPanel(
+	"Table de Z~N(0,1)",
+	htmlOutput("Table"),
+	value=3
+      )
+    )
+  )
+))