JNCC/MESO
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Updates to data files

Browse Source
This commit is contained in:
Steve Pegg
2019-04-01 10:29:34 +01:00
parent 6f6249927b
commit 255462c038
11 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
app.R
View File

@@ -17,8 +17,8 @@ modules::import(bnlearn)
parser <- modules::use('Parses.R')
layers <- c("Pressures to Bio-Assemblages", "Bio-Assemblages to Output Processes", "Output Processes to Eco-system services")
transitions <- c("Pressures to Bio-Assemblages", "Pressures to Output Processes", "Pressures to Eco-system services")
layers <- c("Pressures to Bio-Assemblages", "Bio-Assemblages to Output Processes", "Output Processes to Ecosystem services")
transitions <- c("Pressures to Bio-Assemblages", "Pressures to Output Processes", "Pressures to Ecosystem services")
addResourcePath("js", "./www/js")
@@ -56,7 +56,7 @@ ui<-dashboardPage(
plotlyOutput("layer1", height="270px") %>% withSpinner(),
h4('Effect on Output Processes'),
plotlyOutput("layer2", height="270px") %>% withSpinner(),
h4('Effect on Eco-system services'),
h4('Effect on Ecosystem services'),
plotlyOutput("layer3", height="270px") %>% withSpinner()
)
)
@@ -282,7 +282,7 @@ server <- function(input, output, session) {
column(width=3, h4('Pressures')),
column(width=3, h4('Bio-assemblages')),
column(width=3, h4('Output processes')),
column(width=3, h4('Eco-system services'))
column(width=3, h4('Ecosystem services'))
),
fluidRow(
column(width=3, icon(renderStatus(1))),