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")
  ),
  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) {


}