-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
40 lines (37 loc) · 995 Bytes
/
ui.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
# Load necessary libraries
library(shiny)
library(shinythemes)
library(readxl)
library(tidyverse)
library(devtools)
library(DT)
library(BSDA)
library(knitr)
library(rstatix)
library(stringr)
library(scales)
library(datamods)
library(bslib)
library(shiny.router)
options(shiny.maxRequestSize=1000000*1024^2)
source("t_calculators/engine/engine.R")
source("t_calculators/engine/t_test_module.R")
source("t_calculators/app_pages.R")
# Create the main UI
ui <- fluidPage(
theme = bslib::bs_theme(),
tags$head(
tags$link(rel = "stylesheet", type = "text/css", href = "style.css")
),
router_ui(
route("/", Mainpage),
route("t_test", t_page),
route("z_test", z_page),
route("f_test", f_page),
route("proportion_test", proportion_page),
route("correlation_regression", correlation_regression_page),
route("summary_statistics", summary_statistics_page),
route("distribution_calculators", distribution_page),
route("other_calculators", other_page)
)
)