s426228/TakeCareApp
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

TAK-61

Browse Source
This commit is contained in:
Jan Przybylski 2020-12-22 00:38:21 +01:00
parent c9b00d805d
commit f6c23cdb70
1 changed files with 59 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

118
app/firmy_module.R
View File

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