Commit 6a3f77a5 authored by gross47's avatar gross47
Browse files

update Ui

parent 45e7f2c7
......@@ -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")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment