-
Notifications
You must be signed in to change notification settings - Fork 0
/
app.R
54 lines (46 loc) · 1.31 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
## NCMMIA = Needlessly complex multi module interfaced application
library(shiny)
library(dplyr)
library(ggplot2)
source("xModule.R")
source("yModule.R")
source("plotModule.R")
ui = shinyUI(
fluidPage(
fluidRow(
h3("The Needlessly Complex Multi Module Interfaced Application (NCMMIA)")
),
fluidRow(
column(6,
xModuleUI("xMod")
),
column(6,
yModuleUI("yMod")
)
),
fluidRow(
plotModuleUI("plotMod")
)
))
server = function(input, output, session) {
################################################################################
## Reactive Values
################################################################################
values <- reactiveValues(
x = NULL,
y = NULL)
################################################################################
## Module Calls
################################################################################
x <- callModule(xModule, "xMod")
y <- callModule(yModule, "yMod")
callModule(plotModule, "plotMod",
x = reactive(values$x),
y = reactive(values$y))
observe({
# Track reactives back from modules and store in values
values$x <- x()
values$y <- y()
})
}
shinyApp(ui = ui, server = server)