Skip to content
Snippets Groups Projects
Commit b24ea6a1 authored by Eduardo E. R. Junior's avatar Eduardo E. R. Junior
Browse files

Close issue#1 com arquivos de template adicionados 

Elaborado o arquivo template.R torna modificações de layout aplicáveis
a todas as aplicações shiny do diretório shinyApps/. O script shell
shinyApp facilita a criação e execução de aplicativos.
parent c8e979ce
No related branches found
No related tags found
1 merge request!1Issue#1
Show whitespace changes
Inline Side-by-side
Showing
with 67 additions and 0 deletions
shinyApps/template.R 0 → 100644
+ 67
− 0
View file @ b24ea6a1
template <- function(title) {
##-------------------------------------------
## Cria estilo iguir para as tags utilizadas no template
cat("
<head>
<style>
table.iguir {
margin-left: auto;
margin-right: auto;
margin-top: 1em;
margin-bottom: 1em;
background-color: rgba(0, 0, 0, 0);
border: none;
border-top: 4px solid #A96CBA;
border-bottom: 4px solid #A96CBA;
border-left: 0px;
border-right: 0px;
border-collapse: collapse;
width: 80%;
}
td.iguir {
border-bottom: 0px;
border-top: 0px;
border-left: 0px;
border-right: 0px;
padding-left: 20px;
padding-right: 20px;
padding-top: 10px;
padding-bottom: 10px;
background-color: rgba(0, 0, 0, 0);
}
h1.iguir {
color: black;
background-color: rgba(0, 0, 0, 0);
font-weight: bold;
font-size: 1.8em;
font-family: Ubuntu;
}
h2.iguir {
color: rgba(83, 83, 83, 0.8);
background-color: rgba(0, 0, 0, 0);
font-weight: bold;
font-size: 1.5em;
font-family: Ubuntu;
}
</style>
</head>", "
<table class = 'iguir'>
<td class = 'iguir'>
<h1 class = 'iguir'>
Interactive Graphical User Interface with R - IGUIR
</h1>
<h2 class = 'iguir'>", title, "
</h2>
</td>
<td class = 'iguir' align='right'>
<img src = 'http://200.17.213.89/~eduardo/images/iguir2.svg' height = '128' width = '128'> </img>
</td>
</table>", sep = "\n")
}
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment