TakeCareApp/app/about.R

37 lines
1.0 KiB
R
Raw Normal View History

2020-12-16 20:49:40 +01:00
library(shiny)
library(magrittr)
library(ggplot2)
library(plotly)
library(DT)
2020-12-19 19:11:19 +01:00
aboutUI <- function(id){
ns <- NS(id)
fluidPage(
2020-12-16 20:49:40 +01:00
tags$head(
2020-12-19 21:57:19 +01:00
tags$link(rel = "stylesheet", type = "text/css", href = "style.css")
2020-12-16 20:49:40 +01:00
),
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"),
2020-12-17 01:07:12 +01:00
p(id="dif"),
2020-12-16 20:49:40 +01:00
p(id="div4","Robert Tarnas"),
2020-12-17 01:07:12 +01:00
p(id="dif1"),
2020-12-16 20:49:40 +01:00
p(id="div5","Rafał Piskorski"),
2020-12-19 19:11:19 +01:00
p(id="dif2"),
2020-12-17 01:07:12 +01:00
2020-12-16 20:49:40 +01:00
)
)
2020-12-19 19:11:19 +01:00
}
2020-12-16 20:49:40 +01:00
2020-12-19 19:11:19 +01:00
aboutServer <- function(input, output, session) {
2020-12-16 20:49:40 +01:00
}