update Ui

ui.R

@@ -64,44 +64,45 @@ ui <- navbarPage(title = img(src="Logo_TUM_GOE.jpg", height = "40px", width = "2
                             column(3),
                             column(6,
                                    shiny::HTML("<br><br><center> <h1>What you'll find here</h1> </center><br>"),
-                                   shiny::HTML("<h5>Text</h5>")
+                                   shiny::HTML("<h4> This shiny app provides a graphical user interface for the optimLanduse R package. Aim of the app is to simplify the usage of optimLanduse and to explain its functionality visually. It also has potential to transfer the results of the optimization to persons of interest.
+                                               </h4>")
                             ),
                             column(3)
                           ),
                           
-                          fluidRow(
-                            
-                            style = "height:50px;"),
-                          
-                          # PAGE BREAK
-                          tags$hr(),
-                          
-                          # HOW
-                          fluidRow(
-                            column(3),
-                            column(6,
-                                   shiny::HTML("<br><br><center> <h1>How it can help you</h1> </center><br>"),
-                                   shiny::HTML("<h5>Text</h5>")
-                            ),
-                            column(3)
-                          ),
-                          
-                          fluidRow(
-                            
-                            style = "height:50px;"),
-                          
-                          # PAGE BREAK
-                          tags$hr(),
-                          
-                          # WHERE
-                          fluidRow(
-                            column(3),
-                            column(6,
-                                   shiny::HTML("<br><br><center> <h1>Where it came from</h1> </center><br>"),
-                                   shiny::HTML("<h5>Text</h5>")
-                            ),
-                            column(3)
-                          ),
+                          # fluidRow(
+                          #   
+                          #   style = "height:50px;"),
+                          # 
+                          # # PAGE BREAK
+                          # tags$hr(),
+                          # 
+                          # # HOW
+                          # fluidRow(
+                          #   column(3),
+                          #   column(6,
+                          #          shiny::HTML("<br><br><center> <h1>How it can help you</h1> </center><br>"),
+                          #          shiny::HTML("<h5>Text</h5>")
+                          #   ),
+                          #   column(3)
+                          # ),
+                          # 
+                          # fluidRow(
+                          #   
+                          #   style = "height:50px;"),
+                          # 
+                          # # PAGE BREAK
+                          # tags$hr(),
+                          # 
+                          # # WHERE
+                          # fluidRow(
+                          #   column(3),
+                          #   column(6,
+                          #          shiny::HTML("<br><br><center> <h1>Where it came from</h1> </center><br>"),
+                          #          shiny::HTML("<h5>Text</h5>")
+                          #   ),
+                          #   column(3)
+                          # ),
                           
                           fluidRow(
                             
@@ -115,7 +116,7 @@ ui <- navbarPage(title = img(src="Logo_TUM_GOE.jpg", height = "40px", width = "2
                             column(3),
                             column(6,
                                    shiny::HTML("<br><br><center> <h1>How to get started</h1> </center><br>"),
-                                   shiny::HTML("<h5>Text.</h5>")
+                                   shiny::HTML("<h4>You can either upload your own dataset with expected land-use outcomes of indicators and their uncertainties (the format specifications must be strictly followed) or try the given exemplary database from the GitLab repository. Click 'Upload File' to start and 'Model' to perform the optimization and evaluate the results.</h4>")
                             ),
                             column(3)
                           )),
@@ -125,7 +126,10 @@ ui <- navbarPage(title = img(src="Logo_TUM_GOE.jpg", height = "40px", width = "2
                             sidebarPanel(
                               fileInput("file1", "Choose xlsx file", accept = ".xlsx"),
                               tags$br(),
-                              checkboxInput('colnames', 'Colnames (experimental)', FALSE)
+                              checkboxInput('colnames', 'Colnames (experimental)', FALSE),
+                              h5("The file used for upload must be of type xlsx. This file must also correspond to a certain structure 
+                                 for further processing. You can find an example data named database.xlsx by clicking the following link:"),
+                              tags$a(h5("ExampleData"), href = "https://gitlab.gwdg.de/forest_economics_goettingen/optimlanduse_shiny")
                             ),
                             mainPanel(
                               tableOutput("contents")