s426228/TakeCareApp
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

TAK-64

Browse Source
This commit is contained in:
Jan Przybylski 2020-12-22 00:21:49 +01:00
parent 9288442304
commit c9b00d805d
1 changed files with 48 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

98
app/home_module.R
View File

@ -1,50 +1,48 @@
library(shiny) library(shiny)
library(magrittr) library(magrittr)
library(ggplot2) library(ggplot2)
library(plotly) library(plotly)
library(DT) library(DT)
homeUI <- function(id) { homeUI <- function(id) {
ns <- NS(id) ns <- NS(id)
fluidPage( fluidPage(
tags$head( tags$head(
tags$style(HTML(" tags$style(HTML("
@import url('//fonts.googleapis.com/css?family=Lobster|Cabin:400,700'); @import url('//fonts.googleapis.com/css?family=Lobster|Cabin:400,700');
@import url('//fonts.googleapis.com/css2?family=Fjalla+One'); @import url('//fonts.googleapis.com/css2?family=Fjalla+One');
"))), "))),
theme = "style.css", theme = "style.css",
fluidRow(column(12, fluidRow(column(12,
h1("TakeCareApp"))%>% tagAppendAttributes(id = 'column-title') h1("TakeCareApp"))%>% tagAppendAttributes(id = 'column-title')
) %>% tagAppendAttributes(id = 'row-title'), ) %>% tagAppendAttributes(id = 'row-title'),
fluidRow(column(4, fluidRow(column(4,
div(div("Monitoruj swój stan zdrowia"),img(src="observ.png",height = 150, width = 150)))%>% tagAppendAttributes(class = 'column-tile'), div(div("Monitoruj swój stan zdrowia"),img(src="observ.png",height = 150, width = 150)))%>% tagAppendAttributes(class = 'column-tile'),
column(4, column(4,
div(div("Generuj raporty"),img(src="raport.png",height = 150, width = 150)))%>% tagAppendAttributes(class = 'column-tile'), div(div("Generuj raporty"),img(src="raport.png",height = 150, width = 150)))%>% tagAppendAttributes(class = 'column-tile')
column(4,
div(div("Wykorzystaj uczenie maszynowe"),img(src="brain.png",height = 150, width = 150)))%>% tagAppendAttributes(class = 'column-tile') ) %>% tagAppendAttributes(id = 'row-tiles'),
) %>% tagAppendAttributes(id = 'row-tiles'),
fluidRow(
column(12,
fluidRow( tags$span("© Copyright Wszystkie prawa zastrzeżone."))%>% tagAppendAttributes(id = 'column-copyright'),
column(12,
tags$span("© Copyright Wszystkie prawa zastrzeżone."))%>% tagAppendAttributes(id = 'column-copyright'), )%>% tagAppendAttributes(id = 'row-footer')
)%>% tagAppendAttributes(id = 'row-footer')
)
}
) homeServer <- function(input, output) {
}
homeServer <- function(input, output) {
}
}