router basic
This commit is contained in:
parent
4732257c23
commit
51e427a6b5
50
app/about_module.R
Normal file
50
app/about_module.R
Normal file
@ -0,0 +1,50 @@
|
||||
library(shiny)
|
||||
library(magrittr)
|
||||
library(ggplot2)
|
||||
library(plotly)
|
||||
library(DT)
|
||||
|
||||
aboutUI <- 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');
|
||||
|
||||
|
||||
"))),
|
||||
|
||||
theme = "style.css",
|
||||
|
||||
fluidRow(
|
||||
column(12,
|
||||
navbarPage("",
|
||||
tabPanel("TakeCareApp"),
|
||||
tabPanel("Firmy"),
|
||||
tabPanel("O nas"),
|
||||
tabPanel("Zaloguj")),
|
||||
|
||||
)),
|
||||
# App title ----
|
||||
|
||||
fluidRow(column(12," ABOUT")%>% 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')
|
||||
|
||||
|
||||
)
|
||||
}
|
||||
aboutServer <- function(input, output) {
|
||||
|
||||
|
||||
|
||||
}
|
||||
|
||||
125
app/app.R
125
app/app.R
@ -1,130 +1,23 @@
|
||||
library(shiny)
|
||||
library(shiny.router)
|
||||
library(magrittr)
|
||||
library(ggplot2)
|
||||
library(plotly)
|
||||
library(DT)
|
||||
|
||||
#source(".R/home_module.R",encoding="utf-8")
|
||||
#source(".R/about_module.R",encoding="utf-8")
|
||||
#source(".R/profil_module.R",encoding="utf-8")
|
||||
|
||||
ui <- 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');
|
||||
source("routing_module.R",encoding="utf-8")
|
||||
|
||||
|
||||
"))),
|
||||
|
||||
theme = "style.css",
|
||||
|
||||
fluidRow(
|
||||
column(12,
|
||||
navbarPage("",
|
||||
tabPanel("TakeCareApp"),
|
||||
tabPanel("Firmy"),
|
||||
tabPanel("O nas"),
|
||||
tabPanel("Zaloguj")),
|
||||
|
||||
)),
|
||||
# App title ----
|
||||
titlePanel(h1("TakeCareApp", align = "center")),
|
||||
h4("Aplikacja wspomagajaca diagnozowanie i monitorowanie stanu zdrowia", align = "center"),
|
||||
|
||||
|
||||
fluidRow(
|
||||
column(3,
|
||||
tags$div("Panel sterowania") %>% tagAppendAttributes(class="panel-title")
|
||||
|
||||
)%>% tagAppendAttributes(id = 'column-panel'),
|
||||
column(9,
|
||||
tabsetPanel(type = "tabs",
|
||||
tabPanel("Zakładka 1", tags$div(plotlyOutput("plot1",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper')),
|
||||
tabPanel("Zakładka 2", tags$div(plotlyOutput("plot2",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper')),
|
||||
tabPanel("Zakładka 3", tags$div(plotlyOutput("plot3",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper')),
|
||||
tabPanel("Zakładka 4", tags$div(plotlyOutput("plot4",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper')),
|
||||
tabPanel("Zakładka 5", tags$div(DT::dataTableOutput("table1",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper')),
|
||||
tabPanel("Zakładka 6", tags$div(DT::dataTableOutput("table2",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper'))
|
||||
))%>% tagAppendAttributes(id = 'column-content')
|
||||
) %>% tagAppendAttributes(id = 'row-content'),
|
||||
ui <- router$ui
|
||||
|
||||
|
||||
|
||||
fluidRow(
|
||||
column(12,
|
||||
tags$span("© Copyright Wszystkie prawa zastrzeżone."))%>% tagAppendAttributes(id = 'column-copyright'),
|
||||
|
||||
)%>% tagAppendAttributes(id = 'row-footer')
|
||||
|
||||
|
||||
)
|
||||
|
||||
server <- function(input, output) {
|
||||
|
||||
output$plot1 <- renderPlotly({
|
||||
|
||||
g<-ggplot(mpg) +
|
||||
geom_point(mapping = aes(x = displ, y = hwy))
|
||||
|
||||
gg<-ggplotly(g)
|
||||
|
||||
gg
|
||||
|
||||
})
|
||||
|
||||
output$plot2 <- renderPlotly({
|
||||
|
||||
g<-ggplot(data = mpg, mapping = aes(x = cty, y = hwy)) +
|
||||
geom_jitter()
|
||||
|
||||
gg<-ggplotly(g)
|
||||
|
||||
gg
|
||||
|
||||
})
|
||||
|
||||
output$plot3 <- renderPlotly({
|
||||
|
||||
g<-ggplot(data = mpg, mapping = aes(x = displ, y = hwy, color = drv)) +
|
||||
geom_point() +
|
||||
geom_smooth(se = FALSE)
|
||||
|
||||
gg<-ggplotly(g)
|
||||
|
||||
gg
|
||||
|
||||
})
|
||||
|
||||
output$plot4 <- renderPlotly({
|
||||
|
||||
g<-ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
|
||||
geom_point(mapping = aes(color=drv)) +
|
||||
geom_smooth(se = FALSE)
|
||||
|
||||
gg<-ggplotly(g)
|
||||
|
||||
gg
|
||||
|
||||
})
|
||||
|
||||
pl <- list(
|
||||
sSearch = "Szukaj",
|
||||
sInfo="Wyniki od _START_ do _END_ z _TOTAL_ rekordów",
|
||||
sZeroRecords="Brak rekordów",
|
||||
sEmptyTable="Pusta tabela",
|
||||
oPaginate= list(
|
||||
sFirst="Pierwsza", sPrevious="Poprzednia",sLast="Ostatnia", sNext="Następna"
|
||||
),
|
||||
sLengthMenu = "Pokaż _MENU_ rekordów na stronie"
|
||||
)
|
||||
|
||||
output$table1 <- DT::renderDataTable(iris,options = list(scrollX = TRUE,language=pl))
|
||||
|
||||
|
||||
table<-DT::renderDataTable(mpg,options = list(scrollX = TRUE,language=pl))
|
||||
output$table2 <- table
|
||||
|
||||
|
||||
|
||||
|
||||
}
|
||||
server <- shinyServer(function(input, output, session){
|
||||
router$server(input, output, session)
|
||||
})
|
||||
|
||||
shinyApp(ui=ui,server=server)
|
||||
53
app/home_module.R
Normal file
53
app/home_module.R
Normal file
@ -0,0 +1,53 @@
|
||||
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');
|
||||
|
||||
|
||||
"))),
|
||||
|
||||
theme = "style.css",
|
||||
|
||||
fluidRow(
|
||||
column(12,
|
||||
navbarPage("",
|
||||
tabPanel("TakeCareApp"),
|
||||
tabPanel("Firmy"),
|
||||
tabPanel("O nas"),
|
||||
tabPanel("Zaloguj")),
|
||||
|
||||
)),
|
||||
# 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) {
|
||||
|
||||
|
||||
|
||||
}
|
||||
|
||||
126
app/profil_module.R
Normal file
126
app/profil_module.R
Normal file
@ -0,0 +1,126 @@
|
||||
library(shiny)
|
||||
library(magrittr)
|
||||
library(ggplot2)
|
||||
library(plotly)
|
||||
library(DT)
|
||||
|
||||
profilUI <- 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');
|
||||
|
||||
|
||||
"))),
|
||||
|
||||
theme = "style.css",
|
||||
|
||||
fluidRow(
|
||||
column(12,
|
||||
navbarPage("",
|
||||
tabPanel("TakeCareApp"),
|
||||
tabPanel("Firmy"),
|
||||
tabPanel("O nas"),
|
||||
tabPanel("Zaloguj")),
|
||||
|
||||
)),
|
||||
# App title ----
|
||||
|
||||
fluidRow(
|
||||
column(3,
|
||||
tags$div("Panel sterowania") %>% tagAppendAttributes(class="panel-title")
|
||||
|
||||
)%>% tagAppendAttributes(id = 'column-panel'),
|
||||
column(9,
|
||||
tabsetPanel(type = "tabs",
|
||||
tabPanel("Zakładka 1", tags$div(plotlyOutput("plot1",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper')),
|
||||
tabPanel("Zakładka 2", tags$div(plotlyOutput("plot2",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper')),
|
||||
tabPanel("Zakładka 3", tags$div(plotlyOutput("plot3",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper')),
|
||||
tabPanel("Zakładka 4", tags$div(plotlyOutput("plot4",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper')),
|
||||
tabPanel("Zakładka 5", tags$div(DT::dataTableOutput("table1",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper')),
|
||||
tabPanel("Zakładka 6", tags$div(DT::dataTableOutput("table2",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper'))
|
||||
))%>% 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')
|
||||
|
||||
|
||||
)}
|
||||
|
||||
profilServer <- function(input, output) {
|
||||
|
||||
output$plot1 <- renderPlotly({
|
||||
|
||||
g<-ggplot(mpg) +
|
||||
geom_point(mapping = aes(x = displ, y = hwy))
|
||||
|
||||
gg<-ggplotly(g)
|
||||
|
||||
gg
|
||||
|
||||
})
|
||||
|
||||
output$plot2 <- renderPlotly({
|
||||
|
||||
g<-ggplot(data = mpg, mapping = aes(x = cty, y = hwy)) +
|
||||
geom_jitter()
|
||||
|
||||
gg<-ggplotly(g)
|
||||
|
||||
gg
|
||||
|
||||
})
|
||||
|
||||
output$plot3 <- renderPlotly({
|
||||
|
||||
g<-ggplot(data = mpg, mapping = aes(x = displ, y = hwy, color = drv)) +
|
||||
geom_point() +
|
||||
geom_smooth(se = FALSE)
|
||||
|
||||
gg<-ggplotly(g)
|
||||
|
||||
gg
|
||||
|
||||
})
|
||||
|
||||
output$plot4 <- renderPlotly({
|
||||
|
||||
g<-ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
|
||||
geom_point(mapping = aes(color=drv)) +
|
||||
geom_smooth(se = FALSE)
|
||||
|
||||
gg<-ggplotly(g)
|
||||
|
||||
gg
|
||||
|
||||
})
|
||||
|
||||
pl <- list(
|
||||
sSearch = "Szukaj",
|
||||
sInfo="Wyniki od _START_ do _END_ z _TOTAL_ rekordów",
|
||||
sZeroRecords="Brak rekordów",
|
||||
sEmptyTable="Pusta tabela",
|
||||
oPaginate= list(
|
||||
sFirst="Pierwsza", sPrevious="Poprzednia",sLast="Ostatnia", sNext="Następna"
|
||||
),
|
||||
sLengthMenu = "Pokaż _MENU_ rekordów na stronie"
|
||||
)
|
||||
|
||||
output$table1 <- DT::renderDataTable(iris,options = list(scrollX = TRUE,language=pl))
|
||||
|
||||
|
||||
table<-DT::renderDataTable(mpg,options = list(scrollX = TRUE,language=pl))
|
||||
output$table2 <- table
|
||||
|
||||
|
||||
|
||||
|
||||
}
|
||||
24
app/routing_module.R
Normal file
24
app/routing_module.R
Normal file
@ -0,0 +1,24 @@
|
||||
library(shiny)
|
||||
library(shiny.router)
|
||||
library(magrittr)
|
||||
library(ggplot2)
|
||||
library(plotly)
|
||||
library(DT)
|
||||
|
||||
source("home_module.R",encoding="utf-8")
|
||||
source("about_module.R",encoding="utf-8")
|
||||
source("profil_module.R",encoding="utf-8")
|
||||
|
||||
|
||||
|
||||
home_page <-homeUI(id="home")
|
||||
about_page <-aboutUI(id="about")
|
||||
profil_page <-profilUI(id="profil")
|
||||
|
||||
router <- make_router(
|
||||
route("home", home_page,homeServer),
|
||||
route("about", about_page,aboutServer),
|
||||
route("profil", profil_page,profilServer)
|
||||
)
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user