forked from SKscience/Anabel
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathapp.R
61 lines (55 loc) · 2.36 KB
/
app.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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
##################################################################################################################################################
##################################################################################################################################################
#
# ___ .__ __. ___ .______ _______ __
# / \ | \ | | / \ | _ \ | ____|| |
# / ^ \ | \| | / ^ \ | |_) | | |__ | |
# / /_\ \ | . ` | / /_\ \ | _ < | __| | |
# / _____ \ | |\ | / _____ \ | |_) | | |____ | `----.
#/__/ \__\ |__| \__| /__/ \__\ |______/ |_______||_______|
#
##################################################################################################################################################
##################################################################################################################################################
options(java.parameters = "-Xmx8000m")
library(shiny)
library(markdown)
library(shinydashboard)
library(openxlsx)
library(ggplot2)
library(reshape2)
library(DT)
library(ggExtra)
#loading all app modules
source("kobs_lin.R")
source("single_curve_analysis.R")
source("home.R")
source("download.R")
source("about.R")
source("privacy_policy.R")
# Setting app-parameter
box_colour = "success"
app_theme = "jeti.css"
# Increase upload size to 30MB
options(shiny.maxRequestSize=30*1024^2)
#############################################################################################################################
# Set shiny app ui:
#############################################################################################################################
ui =
# Top navigation bar
navbarPage("", inverse = T, collapsible = TRUE, theme = app_theme, position = c("fixed-top"),
home_UI("home"),
kobs_lin_UI("kobs_lin"),
single_curve_analysis_UI("sca"),
download_UI("Download"),
about_UI("About"),
privacy_policy_UI("Privacy Policy")
)
server = function(input, output,session){
callModule(kobs_lin,"kobs_lin")
callModule(single_curve_analysis,"sca")
callModule(home,"home")
callModule(download,"download")
callModule(about,"about")
callModule(privacy_policy,"privacy_policy")
}
shinyApp(ui,server)