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("<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>")