TakeCareApp/app/about.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) {


}