38 lines
1004 B
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)
|
|
|
|
)
|
|
|
|
|