Updates to data files

app.R

@@ -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))),