60 lines
1.5 KiB
R
60 lines
1.5 KiB
R
|
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) {
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
}
|