47 lines
1.5 KiB
R
47 lines
1.5 KiB
R
library(shiny)
|
|
library(magrittr)
|
|
library(ggplot2)
|
|
library(plotly)
|
|
library(DT)
|
|
|
|
aboutUI <- function(id){
|
|
ns <- NS(id)
|
|
|
|
|
|
fluidPage(
|
|
tags$head(
|
|
tags$link(rel = "stylesheet", type = "text/css", href = "style.css")
|
|
),
|
|
column(12,
|
|
h1("Kim jesteśmy?", align = "center")%>% tagAppendAttributes(id = 'about-header'),
|
|
br(),
|
|
h4("Jesteśmy młodym dynamicznym zespołem wdrażającym się w świat tworzenia profesjonalnych aplikacji.
|
|
Tworząc aplikację TakeCareApp przyświecał nam cel poszerzenie dostępności diagnozy medycznej i umożliwienie szybkiego i wygodnego odczytania wyników." ),
|
|
h4("Nasz zespół składa się z"),
|
|
br(),
|
|
|
|
fluidRow(column(4,
|
|
div("Jan Przybylski"),img(src="jp.png", height = 150, width = 150))%>% tagAppendAttributes(class = 'column-author'),
|
|
column(4,
|
|
div("Rafał Piskorski"),img(src="rafal.png", height = 150, width = 150))%>% tagAppendAttributes(class = 'column-author'),
|
|
column(4,
|
|
div("Robert Tarnas"),img(src="robert.png", height = 150, width = 150))%>% tagAppendAttributes(class = 'column-author'),
|
|
|
|
)%>% tagAppendAttributes(id = 'row-content'),
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
)%>% tagAppendAttributes(id = 'about-page')
|
|
)
|
|
}
|
|
|
|
aboutServer <- function(input, output, session) {
|
|
|
|
|
|
}
|