TakeCareApp/app/routing_module.R

38 lines
1004 B
R
Raw Normal View History

2020-12-04 18:06:31 +01:00
library(shiny)
library(shiny.router)
library(magrittr)
library(ggplot2)
library(plotly)
library(DT)
source("home_module.R",encoding="utf-8")
2020-12-19 19:11:19 +01:00
source("about.R",encoding="utf-8")
2020-12-04 18:06:31 +01:00
source("profil_module.R",encoding="utf-8")
2020-12-12 12:38:54 +01:00
source("login_module.R",encoding="utf-8")
source("register_module.R",encoding="utf-8")
2020-12-19 19:25:04 +01:00
source("calculator.R", encoding = "utf-8")
2020-12-19 20:18:46 +01:00
source("firmy_module.R", encoding = "utf-8")
2020-12-04 18:06:31 +01:00
2020-12-19 19:11:19 +01:00
2020-12-04 18:06:31 +01:00
home_page <-homeUI(id="home")
about_page <-aboutUI(id="about")
profil_page <-profilUI(id="profil")
2020-12-12 12:38:54 +01:00
login_page <-loginUI(id="login")
register_page <-registerUI(id="register")
2020-12-19 19:25:04 +01:00
calculator_page <- calculatorUI(id="calculator")
2020-12-19 20:18:46 +01:00
firmy_page <- firmyUI(id="firmy")
2020-12-04 18:06:31 +01:00
router <- make_router(
route("home", home_page,homeServer),
route("about", about_page,aboutServer),
2020-12-12 12:38:54 +01:00
route("profil", profil_page,profilServer),
route("login", login_page,loginServer),
2020-12-19 19:25:04 +01:00
route("register", register_page,registerServer),
2020-12-19 20:18:46 +01:00
route("calculator", calculator_page, calculatorServer),
route("firmy", firmy_page, firmyServer)
2020-12-04 18:06:31 +01:00
)