TakeCareApp/app/routing_module.R

38 lines
1004 B
R

library(shiny)
library(shiny.router)
library(magrittr)
library(ggplot2)
library(plotly)
library(DT)
source("home_module.R",encoding="utf-8")
source("about.R",encoding="utf-8")
source("profil_module.R",encoding="utf-8")
source("login_module.R",encoding="utf-8")
source("register_module.R",encoding="utf-8")
source("calculator.R", encoding = "utf-8")
source("firmy_module.R", encoding = "utf-8")
home_page <-homeUI(id="home")
about_page <-aboutUI(id="about")
profil_page <-profilUI(id="profil")
login_page <-loginUI(id="login")
register_page <-registerUI(id="register")
calculator_page <- calculatorUI(id="calculator")
firmy_page <- firmyUI(id="firms")
router <- make_router(
route("home", home_page,homeServer),
route("about", about_page,aboutServer),
route("profil", profil_page,profilServer),
route("login", login_page,loginServer),
route("register", register_page,registerServer),
route("calculator", calculator_page, calculatorServer),
route("firms", firmy_page, firmyServer)
)