TakeCareApp/app/about.R

37 lines
1.0 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")
),
mainPanel(
p(id="div0","Kim jesteśmy?"),
tags$style(HTML("hr {position: absolute;width: 300px;height: 0px;left: 124px;top: calc(50% - 0px/2 - 118px);border: 0.5px solid #028090;}")),
p(id="div1","Jesteśmy młodym i dynamicznym zespołem, który dopiero co wkracza na rynek komercyjnych aplikacji. Tworząc aplikację TakeCareApp przyświecał nam cel poszerzenie dostępności diagnozy medycznej i umożliwienie szybkiego i wygodnego odczytania wyników. "),
p(id="div2","Nasza ekipa składa się z trzech członków i są to:"),
p(id="div3","Jan Przybylski"),
p(id="dif"),
p(id="div4","Robert Tarnas"),
p(id="dif1"),
p(id="div5","Rafał Piskorski"),
p(id="dif2"),
)
)
}
aboutServer <- function(input, output, session) {
}