45 lines
1.2 KiB
R
45 lines
1.2 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")
|
|
),
|
|
fluidPage(
|
|
h1("Kim jestesmy?", align = "center"),
|
|
br(),
|
|
h4("Jestesmy mlodym dynamicznym zespolem wdrazajacym sie w swiat tworzenia profesjonalnych aplikacji"),
|
|
h4("Nasz zespol sklada sie z:"),
|
|
br(),
|
|
|
|
fluidRow(column(4,
|
|
div(div("Jan Przybylski"),img(src="jp.png", height = 150, width = 150)))%>% tagAppendAttributes(class = 'column-tile'),
|
|
column(4,
|
|
div(div("Rafal Piskorski"),img(src="rafal.png", height = 150, width = 150)))%>% tagAppendAttributes(class = 'column-tile'),
|
|
column(4,
|
|
div(div("Robert Tarnas"),img(src="robert.png", height = 150, width = 150)))%>% tagAppendAttributes(class = 'column-tile'),
|
|
|
|
),
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
)
|
|
)
|
|
}
|
|
|
|
aboutServer <- function(input, output, session) {
|
|
|
|
|
|
}
|