Nothing
# Define UI for application
shinyUI(fluidPage(
# Disconnect message
disconnectMessage(
text = "Your session timed out or error. ",
refresh = "Reload now",
background = "#ff9900",
colour = "white",
overlayColour = "grey",
overlayOpacity = 0.3,
refreshColour = "black"
),
# Reload button
actionButton("reload", "Reload the App", style="
color: black;
background-color: #ff9900;
float: right"),
# Style uploading modal
tags$head(tags$style(".modal-body {padding: 10px}
.modal-content {-webkit-border-radius: 6px !important;-moz-border-radius: 6px !important;border-radius: 6px !important;}
.modal-dialog { width: 400px; display: inline-block; text-align: center; vertical-align: top;}
.modal-header {background-color: #ff9900; border-top-left-radius: 6px; border-top-right-radius: 6px}
.modal { text-align: center; padding-right:10px; padding-top: 24px;}
.close { font-size: 16px}")),
tags$head(
tags$style(HTML("
.shiny-notification{
position: fixed;
top: 10px;
left: calc(50% - 400px);;
width: 850px;
/* Make sure it draws above all Bootstrap components */
z-index: 2000;
background-color: #ff9900;
}
"))
),
#Disable download button until check positive
singleton(tags$head(HTML(
'
<script type="text/javascript">
$(document).ready(function() {
$("#download").attr("disabled", "true").attr("onclick", "return false;");
Shiny.addCustomMessageHandler("check_generation", function(message) {
$("#download").removeAttr("disabled").removeAttr("onclick").html("");
});
})
</script>
'
))),
br(),
tags$div(a(img(src='Logo.jpg', width=200), href="https://www.statsomat.com", target="_blank")),
h1("Principal Components Analysis",
style = "font-family: 'Helvetica';
color: #fff; text-align: center;
background-color: #396e9f;
padding: 20px;
margin-bottom: 0px;"),
h5("Statsomat/PCA",
style = "font-family: 'Helvetica';
color: #fff; text-align: center;
background-color: #2fa42d;
padding: 5px;
margin-top: 0px;"),
br(),
fluidRow(
column(5, offset=1,
wellPanel(style = "background: #adc7de;",
h3("Upload"),
# File input
fileInput("file", "Choose CSV file",
accept = c(
"text/csv",
"text/comma-separated-values",
".csv"),
buttonLabel = "Browse...",
placeholder = "No file selected"),
# Input: Select encoding ----
radioButtons("fencoding", "Encoding",
choices = c(Auto = "unknown",
"UTF-8" = "UTF-8"),
selected = "unknown", inline=TRUE),
# Input: Select decimal ----
radioButtons("decimal", "Decimal",
choices = c(Auto = "auto",
Comma = ",",
Dot = "."),
selected = "auto", inline=TRUE),
tags$b("By clicking the Browse button and uploading a file, you agree to the Statsomat",
style="color: #808080;"),
tags$a(href="https://statsomat.com/terms", target="_blank", "Terms of Use.", style="
font-weight: bold;")
),
wellPanel(style = "background: #adc7de;",
h3("Select Variables"),
h5("Max 25 continuous. Only blanks as missings. "),
uiOutput("selection1")
),
wellPanel(style = "background: #ff9900", align="center",
h3("Generate the Report"),
radioButtons('rcode', 'Include R Code', c('Yes','No'), inline = TRUE),
h5("Click the button to generate the report"),
actionButton("generate", "", style="
height:145px;
width:84px;
padding-top: 3px;
color:#ff9900;
background-color: #ff9900;
background-image: url('Button.gif');
border: none;
outline: none;
box-shadow: none !important;
")
),
wellPanel(style = "background: #ff9900", align="center",
h3("Download the Report"),
h5("Click the button to download the report"),
downloadButton("download", "", style="
height:145px;
width:84px;
padding-top: 3px;
color:#ff9900;
background-color: #ff9900;
border-color: #ff9900;
background-image: url('Button.gif');")
)
), # column
column(5,
wellPanel(style = "background: #fff;", includeHTML("www/Description.html")),
wellPanel(style = "background: #fff;", includeHTML("www/Instructions.html")),
wellPanel(style = "background: #fff;", includeHTML("www/Secure.html")),
wellPanel(style = "background: #fff;", includeHTML("www/OpenSource.html")),
wellPanel(style = "background: #fff;", includeHTML("www/Contact.html"))
), # column
column(1,)
), # fluidrow
includeHTML("www/Footer.html"),
hr()
))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.