From b24ea6a1bc4e61963b9813ab41ae65a9e34bc616 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Fri, 13 Nov 2015 02:01:43 -0200
Subject: [PATCH] Close issue#1 com arquivos de template adicionados
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
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.
---
shinyApps/template.R | 67 ++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 67 insertions(+)
create mode 100644 shinyApps/template.R
diff --git a/shinyApps/template.R b/shinyApps/template.R
new file mode 100644
index 0000000..bf5509d
--- /dev/null
+++ b/shinyApps/template.R
@@ -0,0 +1,67 @@
+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")
+}
+
--
GitLab