This commit is contained in:
Robert Tarnas 2020-12-19 19:25:04 +01:00
parent bb9e978674
commit a0a9d37175
3 changed files with 14 additions and 7 deletions

View File

@ -42,8 +42,10 @@ server <- shinyServer(function(input, output, session){
tabPanel(a("TakeCareApp",id='takeCareApp',class = "tab-link", href = route_link("home"))), tabPanel(a("TakeCareApp",id='takeCareApp',class = "tab-link", href = route_link("home"))),
tabPanel(a("Firmy",id="tab1",class = "tab-link", href = route_link("profil"))), tabPanel(a("Firmy",id="tab1",class = "tab-link", href = route_link("profil"))),
tabPanel(a("O nas",id="tab2",class = "tab-link", href = route_link("about"))), tabPanel(a("O nas",id="tab2",class = "tab-link", href = route_link("about"))),
tabPanel(a("Obliczenia", id ="tab5",class="tab-link", href = route_link("calculator"))),
tabPanel(a("Zaloguj",id="tab3",class="tab-link", href = route_link("login"))), tabPanel(a("Zaloguj",id="tab3",class="tab-link", href = route_link("login"))),
tabPanel(a("Rejestracja",id="tab4",class="tab-link", href = route_link("register")))) tabPanel(a("Rejestracja",id="tab4",class="tab-link", href = route_link("register")))),
@ -59,7 +61,8 @@ server <- shinyServer(function(input, output, session){
tabPanel(a("Firmy",id="tab1",class = "tab-link", href = route_link("profil"))), tabPanel(a("Firmy",id="tab1",class = "tab-link", href = route_link("profil"))),
tabPanel(a("O nas",id="tab2",class = "tab-link", href = route_link("about"))), tabPanel(a("O nas",id="tab2",class = "tab-link", href = route_link("about"))),
tabPanel(a("Wyloguj",id="tab3",class = "tab-link")), tabPanel(a("Wyloguj",id="tab3",class = "tab-link")),
tabPanel(a("Profil",id="tab4",class="tab-link", href = route_link("profil")))) tabPanel(a("Profil",id="tab4",class="tab-link", href = route_link("profil")))),

View File

@ -4,7 +4,9 @@ library(ggplot2)
library(plotly) library(plotly)
library(DT) library(DT)
ui <- fluidPage( calculatorUI <- function(id){
ns <- NS(id)
fluidPage(
titlePanel("Kalkulator wskaźnika ryzyka nowotworu jajnika (IOTA LR2)"), titlePanel("Kalkulator wskaźnika ryzyka nowotworu jajnika (IOTA LR2)"),
sidebarLayout( sidebarLayout(
sidebarPanel( sidebarPanel(
@ -30,8 +32,9 @@ ui <- fluidPage(
) )
) )
) )
}
server <- function(input, output, session) { calculatorServer <- function(input, output, session) {
output$selected_var <- renderText({ output$selected_var <- renderText({
input$update input$update
@ -88,4 +91,3 @@ server <- function(input, output, session) {
}) })
} }
shinyApp(ui = ui, server = server)

View File

@ -10,7 +10,7 @@ source("about.R",encoding="utf-8")
source("profil_module.R",encoding="utf-8") source("profil_module.R",encoding="utf-8")
source("login_module.R",encoding="utf-8") source("login_module.R",encoding="utf-8")
source("register_module.R",encoding="utf-8") source("register_module.R",encoding="utf-8")
source("calculator.R", encoding = "utf-8")
@ -19,13 +19,15 @@ about_page <-aboutUI(id="about")
profil_page <-profilUI(id="profil") profil_page <-profilUI(id="profil")
login_page <-loginUI(id="login") login_page <-loginUI(id="login")
register_page <-registerUI(id="register") register_page <-registerUI(id="register")
calculator_page <- calculatorUI(id="calculator")
router <- make_router( router <- make_router(
route("home", home_page,homeServer), route("home", home_page,homeServer),
route("about", about_page,aboutServer), route("about", about_page,aboutServer),
route("profil", profil_page,profilServer), route("profil", profil_page,profilServer),
route("login", login_page,loginServer), route("login", login_page,loginServer),
route("register", register_page,registerServer) route("register", register_page,registerServer),
route("calculator", calculator_page, calculatorServer)
) )