Nothing
aria_head_tags <- function(){
shiny::HTML(".shiny-input-container {margin-bottom: 0px}
.progress.active.shiny-file-input-progress { margin-bottom: 0px }
#year {margin-botton: 20px}
.checkbox { margin-top: 0px}")
}
aria_input_rfept <- function(){
shiny::fileInput("rfept", "Escolha os arquivos do sistema acad\u00eamico",
multiple = TRUE,
buttonLabel = "Arquivos",
placeholder = "Nada Selecionado",
accept = c("text/csv",
"text/comma-separated-values,text/plain",
".csv"))
}
aria_input_sistec <- function(){
shiny::fileInput("sistec", "Escolha os arquivos do Sistec",
multiple = TRUE,
buttonLabel = "Arquivos",
placeholder = "Nada Selecionado",
accept = c("text/csv",
"text/comma-separated-values,text/plain",
".csv"))
}
aria_input_years <- function(years){
shiny::selectInput("year", "Comparar a partir de:",
choices = years,
selected = "2019.1")
}
aria_input_compare_button <- function(){
shiny::div(style="display: inline-block;vertical-align:top",
shiny::uiOutput("compare_button"))
}
aria_input_download_button <- function(){
shiny::div(style="display: inline-block;vertical-align:top",
shiny::uiOutput("download_button"))
}
aria_compare_button <- function(){
shiny::actionButton("do", "Comparar")
}
aria_download_button <- function(version){
if(version == "online"){
shiny::downloadButton("download_online", "Salvar resultados")
} else {
shiny::actionButton("download_offline", "Salvar resultados")
}
}
aria_test_mode_checkbox <- function(test_mode){
if(test_mode){
shiny::checkboxInput("test_mode", "Test mode", TRUE)
}
}
#' @importFrom shiny mainPanel strong br htmlOutput
aria_main_panel <- function(version){
if(version == "online"){
mainPanel(
strong(htmlOutput("contents")))
} else{
mainPanel(
strong(htmlOutput("contents")),
br(), br(), br(), br(),
strong(htmlOutput("download_offline")))
}
}
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.