From f6c23cdb7015f12da04c0d360aa528b252b343d9 Mon Sep 17 00:00:00 2001
From: Jan Przybylski <plaljahn@gmail.com>
Date: Tue, 22 Dec 2020 00:38:21 +0100
Subject: [PATCH] TAK-61

---
 app/firmy_module.R | 118 ++++++++++++++++++++++-----------------------
 1 file changed, 59 insertions(+), 59 deletions(-)

diff --git a/app/firmy_module.R b/app/firmy_module.R
index 0f08649..d988eb9 100644
--- a/app/firmy_module.R
+++ b/app/firmy_module.R
@@ -1,59 +1,59 @@
-library(shiny)
-library(magrittr)
-library(ggplot2)
-library(plotly)
-library(DT)
-
-firmyUI <- function(id) {
-  ns <- NS(id)
-  fluidPage(
-    tags$head(
-      tags$style(HTML("
-      @import url('//fonts.googleapis.com/css?family=Lobster|Cabin:400,700');
-      @import url('//fonts.googleapis.com/css2?family=Fjalla+One');
-  
-
-
-      
-                    "))),
-    
-    theme = "style.css",
-    
-    
-    # App title ----
-    # App title ----
-    
-    #  h4("Aplikacja wspomagajaca diagnozowanie i monitorowanie stanu zdrowia", align = "center"),
-    
-    fluidRow(
-      column(12, align="center",
-             h1('Firmy')
-      )
-    ),
-    
-    fluidRow(column(4,
-                    div(div("GlaxoSmithKline"),img(src="gsk.png", href= "https://pl.gsk.com/pl/",height = 150, width = 150)))%>% tagAppendAttributes(class = 'column-tile'),
-             column(4,
-                    div(div("Bayer"),img(src="bayer.png", href="https://www.bayer.com/pl/pl/poland-home", height = 150, width = 150)))%>% tagAppendAttributes(class = 'column-tile'),
-             column(4,
-                    div(div("BioFarm"),img(src="biofarm.png", href= "https://www.biofarm.pl",height = 150, width = 150)))%>% tagAppendAttributes(class = 'column-tile')
-             
-    ) %>% tagAppendAttributes(id = 'row-tiles'),
-    
-    
-    
-    fluidRow(
-      column(12,
-             tags$span("© Copyright Wszystkie prawa zastrzeżone."))%>% tagAppendAttributes(id = 'column-copyright'),
-      
-    )%>% tagAppendAttributes(id = 'row-footer')
-    
-    
-  )
-}
-
-firmyServer <- function(input, output) {
-  
-  
-  
-}
+library(shiny)
+library(magrittr)
+library(ggplot2)
+library(plotly)
+library(DT)
+
+firmyUI <- function(id) {
+  ns <- NS(id)
+  fluidPage(
+    tags$head(
+      tags$style(HTML("
+      @import url('//fonts.googleapis.com/css?family=Lobster|Cabin:400,700');
+      @import url('//fonts.googleapis.com/css2?family=Fjalla+One');
+  
+
+
+      
+                    "))),
+    
+    theme = "style.css",
+    
+    
+    # App title ----
+    # App title ----
+    
+    #  h4("Aplikacja wspomagajaca diagnozowanie i monitorowanie stanu zdrowia", align = "center"),
+    
+    fluidRow(
+      column(12, align="center",
+             h1('Firmy')
+      )
+    ),
+    
+    fluidRow(column(4,
+                    div(div("GlaxoSmithKline"),img(src="gsk.png", a("GlaxoSmithKline" ,href= "https://pl.gsk.com/pl/"),height = 150, width = 150)))%>% tagAppendAttributes(class = 'column-tile'),
+             column(4,
+                    div(div("Bayer"),img(src="bayer.png", a("Bayer",href="https://www.bayer.com/pl/pl/poland-home"), height = 150, width = 150)))%>% tagAppendAttributes(class = 'column-tile'),
+             column(4,
+                    div(div("BioFarm"),img(src="biofarm.png", a("BioFarm",href= "https://www.biofarm.pl"),height = 150, width = 150)))%>% tagAppendAttributes(class = 'column-tile')
+             
+    ) %>% tagAppendAttributes(id = 'row-tiles'),
+    
+    
+    
+    fluidRow(
+      column(12,
+             tags$span("© Copyright Wszystkie prawa zastrzeżone."))%>% tagAppendAttributes(id = 'column-copyright'),
+      
+    )%>% tagAppendAttributes(id = 'row-footer')
+    
+    
+  )
+}
+
+firmyServer <- function(input, output) {
+  
+  
+  
+}