30 lines
1.0 KiB
R
30 lines
1.0 KiB
R
library(shiny)
|
|
library(magrittr)
|
|
library(ggplot2)
|
|
library(plotly)
|
|
library(DT)
|
|
|
|
ui <- fluidPage(
|
|
tags$head(
|
|
tags$link(rel = "stylesheet", type = "text/css", href = "authors.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")
|
|
|
|
)
|
|
)
|
|
|
|
server <- function(input, output, session) {
|
|
|
|
|
|
}
|
|
shinyApp(ui = ui, server = server) |