2020-12-04 18:06:31 +01:00
|
|
|
library(shiny)
|
|
|
|
library(magrittr)
|
|
|
|
library(ggplot2)
|
|
|
|
library(plotly)
|
|
|
|
library(DT)
|
|
|
|
|
|
|
|
homeUI <- function(id) {
|
|
|
|
ns <- NS(id)
|
|
|
|
fluidPage(
|
|
|
|
tags$head(
|
|
|
|
tags$style(HTML("
|
|
|
|
@import url('//fonts.googleapis.com/css?family=Lobster|Cabin:400,700');
|
|
|
|
@import url('//fonts.googleapis.com/css2?family=Fjalla+One');
|
2020-12-06 19:45:27 +01:00
|
|
|
|
|
|
|
|
2020-12-04 18:06:31 +01:00
|
|
|
|
|
|
|
|
|
|
|
"))),
|
|
|
|
|
|
|
|
theme = "style.css",
|
|
|
|
|
2020-12-06 19:45:27 +01:00
|
|
|
|
2020-12-04 18:06:31 +01:00
|
|
|
# App title ----
|
|
|
|
# App title ----
|
|
|
|
titlePanel(h1("TakeCareApp", align = "center")),
|
|
|
|
h4("Aplikacja wspomagajaca diagnozowanie i monitorowanie stanu zdrowia", align = "center"),
|
|
|
|
|
|
|
|
fluidRow(column(12," HOME")%>% tagAppendAttributes(id = 'column-content')
|
|
|
|
) %>% tagAppendAttributes(id = 'row-content'),
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
fluidRow(
|
|
|
|
column(12,
|
|
|
|
tags$span("© Copyright Wszystkie prawa zastrzeżone."))%>% tagAppendAttributes(id = 'column-copyright'),
|
|
|
|
|
|
|
|
)%>% tagAppendAttributes(id = 'row-footer')
|
|
|
|
|
|
|
|
|
|
|
|
)
|
|
|
|
}
|
|
|
|
homeServer <- function(input, output) {
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|