diff --git a/ui.r b/ui.r new file mode 100644 index 0000000000000000000000000000000000000000..b9d9fbaba3057cc6c2767a2b014cd6373c85b1c4 --- /dev/null +++ b/ui.r @@ -0,0 +1,70 @@ +########################################################################### +## bootCI Shiny/R app ui.R ## +## ## +## Author Eugen Pircalabelu https://perso.uclouvain.be/eugen.pircalabelu ## +## For RShiny@UCLouvain http://sites.uclouvain.be/rshiny ## +## ## +## Licences : CC-BY for http://sites.uclouvain.be/RShiny ## +## GPL for source code on ## +## https://forge.uclouvain.be/rshiny_uclouvain/bootCI ## +########################################################################### + +library(shiny) +library(shinyjs) +library(RColorBrewer) +library(shinyWidgets) +library(shinycssloaders) +library(xtable) +library(shinyBS) +shinyUI(fluidPage( + headerPanel("Non-parametric Bootstrap"), + + sidebarLayout( + + 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; }') + ), + + HTML("X~Exp(μ) with μ = <br>"), + numericInput("mu", " " , min = 0,max = 100,value = 50, step=10), + + HTML("Sample size n = <br>"), + numericInput("n","",min = 10,max = 30,value = 10, step=5), + + actionButton(inputId="submit_model",label="Sample",width="150px"), + hr(), + + HTML("Number of bootstraap resamples B = <br>" ), + numericInput("B", "", value=25, min = 1, max = 50,step=1), + + HTML("Results for b-th bootstraap sample where b = <br>" ), + sliderInput("bb", "", value=1, min = 1, max = 5,step=1,animate=T), + + actionButton(inputId="refresh",label="Refresh",width="150px"), + + p(HTML("<A HREF=\"javascript:history.go(0)\">Click here to restart the experiment</A>")), + + + 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> Ce(tte) oeuvre de <span xmlns:cc="http://creativecommons.org/ns#" + property="cc:attributionName"> <font face="Courier"> RShiny@UCLouvain </font> </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/RShiny" + target="_blank"><font face="Courier"> RShiny@UCLouvain </font></a><br/> + Code source disponible sur <a href="https://forge.uclouvain.be/rshiny_uclouvain/bootCI" target="_blank">GitLab</a></p>') + + ), + + mainPanel( + plotOutput("Plot",height=800, width = "99%") + + # fluidRow(withSpinner( + # tableOutput(outputId="res_table"))) + + ) +) +) +)